asp 分两列显示

来源:百度知道 编辑:UC知道 时间:2024/06/14 04:30:41
下面的一段代码只能是这样显示
1
2
3
4
5
我想让它变成两列的
如1 2
3 4
5 求高手们帮帮忙了,先谢谢了
set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * FROM Flash_class where parent="&parent
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then
class_ = "暂无分类"
else
do while not rs1.eof
class_str = replace(class_mb,"{class}",""&rs1("class")&"")
class_str = replace(class_str,"{classid}",""&rs1("classid")&"")
class_=class_&class_str
rs1.movenext
loop
rs1.close
set rs1=nothing
end if
关键是我的源码没有表格代码

<table align="center" cellpadding="0" cellspacing="0" border="0" width="779">
<%
set rs=server.CreateObject("ADODB.Recordset")
rs.Open "Select * from User",conn
Dim intCount
intCount=0
While Not rs.eof
intCount=intCount+1
If intCount mod 2 <>0 Then
response.write "<tr>"
End If
%><td height=20>
<%=rs("Userid")%></td>
<td><%=rs("Username")%></td>
<%

If intCount mod 2 <>0 Then
response.write "</tr>"
End If
rs.movenext
wend %></table>

同意楼上。