神马品牌网雅马哈吉他实体店:asp里怎样实现每行只显示3条记录
来源：百度文库 编辑：神马品牌网 时间：2024/04/24 10:59:04
asp里怎样实现每行只显示3条记录。
比如有表里9条记录，我想让这9条记录分为3行显示，每行显示3条。
谁能给出正确答案~！
采用2楼办法，写成这样，但还是一行显示一条记录哦
<%
sub ar_fl()
set rs=server.createobject("adodb.recordset")
sql="select * from [fl]"
rs.open sql,conn,1,3
i=1
do until rs.eof
if i mod 3=1 then response.write "<tr>"
response.write "<td>"&rs("title")&"</td>"
if i mod 3=1 then response.write "</tr>"
rs.movenext
loop
rs.close
end sub
%>
比如有表里9条记录，我想让这9条记录分为3行显示，每行显示3条。
谁能给出正确答案~！
采用2楼办法，写成这样，但还是一行显示一条记录哦
<%
sub ar_fl()
set rs=server.createobject("adodb.recordset")
sql="select * from [fl]"
rs.open sql,conn,1,3
i=1
do until rs.eof
if i mod 3=1 then response.write "<tr>"
response.write "<td>"&rs("title")&"</td>"
if i mod 3=1 then response.write "</tr>"
rs.movenext
loop
rs.close
end sub
%>
做一个变量i，存贮当前记录号的，每次rs.movenext后累加。
dim i
i=1
do until rs.eof
if i mod 3=1 then response.write "<tr>"
response.write "<td>"+要输出的内容+"</td>"
if i mod 3=1 then response.write "</tr>"
rs.movenext
loop
rs.close
rs.movefirst
i=1
While not rs.eof
if(i%3==0) then
response.write vbcrlf
(or response.write \"<br>\")
end if
i=i+1
rs.movenext
Wend