关于段ASP代码的分列显示------急!!!!

来源:百度知道 编辑:UC知道 时间:2024/06/07 23:37:48
sub nxvip()
set rsnx1=server.createobject("adodb.recordset")
sqlnx1= "select top 8 id,biaoti,fbsj from xinxi where yz=1 and tuijian=1 order by fbsj desc,id desc"
rsnx1.open sqlnx1,conn,1,1
do while not rsnx1.eof
response.write "<font color=""#336699"" style=""font-size: 12pt"">·</font><A target=_blank href=""x.asp?cnmai="&rsnx1("id")&""" >"&left(rsnx1("biaoti"),20)&"</a><br>"
rsnx1.movenext
loop
rsnx1.close
set rsnx1=nothing
end sub
我想在表格中分两列来显示,请问哪位大虾帮忙解决哈
在线等

sub nxvip()
dim tmp
set rsnx1=server.createobject("adodb.recordset")
sqlnx1= "select top 8 id,biaoti,fbsj from xinxi where yz=1 and tuijian=1 order by fbsj desc,id desc"
rsnx1.open sqlnx1,conn,1,1
do while not rsnx1.eof
tmp=tmp+1
response.write "<font color=""#336699"" style=""font-size: 12pt"">·</font><A target=_blank href=""x.asp?cnmai="&rsnx1("id")&""" >"&left(rsnx1("biaoti"),20)&"</a> "
if tmp mod 2 =0 then response.Write("<br />")
rsnx1.movenext
loop
rsnx1.close
set rsnx1=nothing
end sub

<%
dim i,j
i=1 '记录显示的个数
j=2 '设置每行显示的列数
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>