编程论坛 » ASP技术论坛 » 请高手帮忙解决一下显示问题

majian1010 发表于 2008-8-15 10:27

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

请高手帮忙解决一下
<%   
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


请问怎么能实现！  谢谢了!

yms123 发表于 2008-8-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

BOSS级菜鸟 发表于 2008-8-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

majian1010 发表于 2008-8-15 11:32

非常感谢

[tk04] [tk04] [tk04]

查看完整版本: 请高手帮忙解决一下显示问题