帮忙看个ASP的循环及分页的问题

来源：百度知道 编辑：UC知道 时间：2024/05/10 12:29:54
数据库都已链接好，是从表xyld里读取字段img，name,xrdw的内容，但要将这些内容分为循环成两列三行，怎么循环啊

<%
dim rs,strsql
set rs=server.CreateObject("ADODB.recordset")
strsql="select * from users where level=0 order by id desc"
rs.open strsql,conn,1,1
IF Rs.Recordcount>0 Then
Rs.PageSize=6'每页最多显示多少条记录
Page=Clng(Request.QueryString("Page"))
IF Page>Rs.PageCount Then Page=Rs.PageCount
IF Page<1 Then Page=1
Rs.Absolutepage=Page
For i=1 To Rs.PageCount
IF i Mod 2=1 Then Response.write"<tr>"
%>
<td>

</td>
<%IF i Mod 2=0 Then Response.write"</tr>"
rs.movenext
IF Rs.Eof Then Exit For
Next
%>
<tr><td colspan="3">当前页码<%=Page&"/"&Rs.PageCount%> <a href="?Page=1">首页</a> <a href="?Page=<%=Page-1%>">上一页</a> <a href="?Page=<%=Page+1%>">下一页</a> <a href="?Page=<%=Rs.Page