注册 登录
编程论坛 ASP技术论坛

请高手帮忙解决一下显示问题

majian1010 发布于 2008-08-15 10:27, 786 次点击
请高手帮忙解决一下
<%   
sql = "select * from b_name order by id desc"
set rs=server.CreateObject("adodb.recordset")
rs.Open " b_name ", Session("ObjConn"), , ,2  
%>
<%
    n=0
   do while not rs.EOF
%>
<a href= "dt.asp?id=<%=rs("id")%>""><%=trim(rs("title"))%></a>
<%
response.Write("<br>")
n=n+1
if n>11 then
exit do
end if
rs.movenext
loop
rs.close()
set rs=nothing
%>


现在输出时成一列显示如下
11
22
33
44
55
66
77
88
99
00


我想让显示为
11    22    33
44    55    66
77    88    99
00


请问怎么能实现!  谢谢了!
3 回复
#2
yms1232008-08-15 10:46
<%
   Dim i
    n=0
   i=1
   do while not rs.EOF
   i=i+1
   IF i Mod 3 = 0 Then
      response.Write("<br>")
   Else
%>   
<a href= "dt.asp?id=<%=rs("id")%>""><%=trim(rs("title"))%></a>
<%
   End IF
n=n+1
if n>11 then
exit do
end if
rs.movenext
loop
#3
2008-08-15 11:00
response.Write("<br>")
n=n+1

改成

n=n+1
if n%3=0 then
   response.Write("<br>")
esle
   response.write"&nbsp;&nbsp;"
end if
#4
majian10102008-08-15 11:32
非常感谢
1