Question

请教如下asp代码如何更改为两列显示，现在是一列，不大好看，谢谢！下面是代码

<%
dim shu,news,bigclassid,smallclassid,specialid,order,time,path,click,title
bigclassid=checkstr(request.querystring("bigclassid"))
typeid=checkstr(request.querystring("typeid"))
smallclassid=checkstr(request.querystring("smallclassid"))
specialid=checkstr(request.querystring("specialid"))
shu=checkstr(request.querystring("shu"))
order=checkstr(request("order"))
time=checkstr(request.querystring("time"))
title=checkstr(request.querystring("title"))
click=checkstr(request.querystring("click"))
Path = "./"
if shu<>"" then '显示数目，不加为10
ss=shu
else
ss=50
end if
if order="click" then '排序方式，click为按点击率
oo="click"
else
oo="newsid"
end if
if time="1" then '显示时间，0为不显示
tt=0
else
tt=1
end if
if click="0" then '显示点击数，0为不显示
cc=0
else
cc=1
end if
if title<>"" then '显示数目，不加为10
nn=title
else
nn=50
end if
if typeid<>"" then
set rs=conn.execute("SELECT top "&ss&" * FROM news where typeid=cint("&typeid&") and checkked=1 order by "&oo&" asc")
else
if bigclassid<>"" then
set rs=conn.execute("SELECT top "&ss&" * FROM news where bigclassid=cint("&bigclassid&") and checkked=1 order by "&oo&" asc")
else
if smallclassid<>"" then
set rs=conn.execute("SELECT top "&ss&" * FROM news where smallclassid=cint("&smallclassid&") and checkked=1 order by "&oo&" asc")
else
if specialid<>"" then
set rs=conn.execute("SELECT top "&ss&" * FROM news where specialid=cint("&specialid&") and checkked=1 order by "&oo&" asc")
else
set rs=conn.execute("SELECT top "&ss&" * FROM news where checkked=1 order by "&oo&" asc")
end if
end if
end if
end if
if rs.eof and rs.bof then %>
document.write('暂时没有列表');
<% else
do while not rs.eof

title=trim(rs("title"))
title=replace(title,"<br>","")
if strcomp(left(title,nn),title)<0 then
%>
document.write(' · <font class=3><A href="<%=path%>showzy.asp?NewsID=<%=rs("NewsID")%>" title="<%=title%>" target="_blank"><%=left(title,nn)%></A><%if tt=1 then%><FONT color="#666666">   </FONT><font class="3"><font color="#666666">    </font></font><br><%end if%></font>');
<%else%>
document.write(' · <font class=3><A href="<%=path%>showzy.asp?NewsID=<%=rs("NewsID")%>" title="<%=title%>" target="_blank"><%=left(title,nn)%></A><%if tt=1 then%><FONT color="#666666">  </FONT><font class="3"><font color="#666666">    </font></font><br><br><%end if%></font>');
<%
end if
rs.movenext
loop
end if
Rs.Close
set Rs=nothing
conn.close
set conn=nothing
%>

Answer 1

楼主悬赏分都没有。。。。。。。。。。。
具体做法比较麻烦
拿table布局为例。
tr为一行，一行中存在两个td就是两列
在现在的基础上需要写一个嵌套循环，两个td为内循环，tr为外循环。
还有一种办法
依据数据表里面的id字段进行两次查询，奇数数据显示在左，偶数显示在右