高考问答虞梦巴拉拉小魔仙剧照:如何实现两列显示
来源：百度文库 编辑：高考问答 时间：2024/05/01 05:19:31
<%
filename="../js/new.js"
if request("body")<>"" then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write request("body")
fout.close
set fout=nothing
set fso=nothing
mskrindex="ok"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成暴笑真人js</title>
</head>
<body>
<%if mskrindex="ok" then%>
<table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" cellpadding="0">
<tr>
<td width="100%"><font color="#FF0000">·</font>成功生成暴笑真人js,时间<%=Now()%><br><font color="#FF0000">·</font><a target="_blank" href="<%=filename%>"><%=filename%></a></td>
</tr>
</table>
<%else%>
<table border="0" cellspacing="0" width="90%" align="center">
<form name="frmAnnounce" method="post" action="Js_new.asp">
<tr>
<td>
<b><font color="red">生成暴笑真人js 生成文件</font>:<a target="_blank" href="<%=filename%>"><%=filename%></a> </b></td>
</tr>
<tr>
<td align="center"><textarea rows="20" name="body" cols="80">
<!--#include file="conn.asp"-->
document.writeln("<table width=96% border=0 cellspacing=2 cellpadding=0 align=center>");
<%
m=0
set rs=conn.execute("SELECT top 12 joke_id,joke_title,joke_updatetime,joke_hits FROM joke order by joke_updatetime desc")
if not Rs.eof then
do while not rs.eof
m=m+1
%>
document.writeln("<tr><td><a href=\"Joke_Show.asp?Joke_ID=<%=rs("joke_id")%>\" target=\"_blank\">·<%=rs("joke_title")%></a></td></tr>");
<%
if m>=12 then exit do
rs.movenext
loop
else
%>
document.writeln("<tr><td> 尚无笑话</td></tr>");
<%
end if
rs.close
set rs=nothing
%>
document.writeln("</table>");
</textarea></td>
</tr>
<tr>
<td align="center">
<input name="change" class=buttonface value="生成(JS)" type='submit'> </td>
</tr>
</form>
</table>
<%
end if
%>
</body>
</html>
这段代码如何实现两列显示,一列显示6个数值??
filename="../js/new.js"
if request("body")<>"" then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write request("body")
fout.close
set fout=nothing
set fso=nothing
mskrindex="ok"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成暴笑真人js</title>
</head>
<body>
<%if mskrindex="ok" then%>
<table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" cellpadding="0">
<tr>
<td width="100%"><font color="#FF0000">·</font>成功生成暴笑真人js,时间<%=Now()%><br><font color="#FF0000">·</font><a target="_blank" href="<%=filename%>"><%=filename%></a></td>
</tr>
</table>
<%else%>
<table border="0" cellspacing="0" width="90%" align="center">
<form name="frmAnnounce" method="post" action="Js_new.asp">
<tr>
<td>
<b><font color="red">生成暴笑真人js 生成文件</font>:<a target="_blank" href="<%=filename%>"><%=filename%></a> </b></td>
</tr>
<tr>
<td align="center"><textarea rows="20" name="body" cols="80">
<!--#include file="conn.asp"-->
document.writeln("<table width=96% border=0 cellspacing=2 cellpadding=0 align=center>");
<%
m=0
set rs=conn.execute("SELECT top 12 joke_id,joke_title,joke_updatetime,joke_hits FROM joke order by joke_updatetime desc")
if not Rs.eof then
do while not rs.eof
m=m+1
%>
document.writeln("<tr><td><a href=\"Joke_Show.asp?Joke_ID=<%=rs("joke_id")%>\" target=\"_blank\">·<%=rs("joke_title")%></a></td></tr>");
<%
if m>=12 then exit do
rs.movenext
loop
else
%>
document.writeln("<tr><td> 尚无笑话</td></tr>");
<%
end if
rs.close
set rs=nothing
%>
document.writeln("</table>");
</textarea></td>
</tr>
<tr>
<td align="center">
<input name="change" class=buttonface value="生成(JS)" type='submit'> </td>
</tr>
</form>
</table>
<%
end if
%>
</body>
</html>
这段代码如何实现两列显示,一列显示6个数值??