换行分页循环代码
<%
if request("page")="" then
page=1
elseif request("page")<1 then
page=1
else
page=request("page")
end if
rs.PageSize=12 '每页显示几个记录
rs.AbsolutePage=page
if rs.RecordCount=0 then
Response.Write "没有记录"
else
%>
<%
if rs.eof then
Response.Write "没有相关记录"
else
response.write ("<table width=500 border=0 cellspacing=0 cellpadding=1><tr>")
for ipage=1 to rs.pagesize
'response.write ("<td>")
%>
[color=red]<td>循环的内容</td>[/color]
<%
'response.write ("</td>")
j=j+1
m=4 '假如您是一行4条记录。修改成需要的一行几条
If j>m-1 Then
Response.Write "</tr><tr>"
j=0
End If
rs.movenext
if rs.eof then exit for
next
Response.Write "</tr></table>"
%>
<%
end if
end if
'下面的member.asp换成是和本文件一样的文件名
%>
<div align="center"> <%=rs.recordcount%>条记录
当前第<%=page%>页/共有<%=rs.pagecount%>页<a href="Untitled-1.asp?page=1"><font color="#000000">首页</font></a>
<% if page<>1 then %>
<a href="Untitled-1.asp?page=<%=(page-1)%>"><font color="#000000">下页</font></a>
<%else%>
上页
<% end if %>
<% if page<>rs.pagecount then
if page+1>rs.pagecount then
page=rs.pagecount-1
end if
'上面的修正了如果下页没有数据依然可以点击下去的错误
%>
<a href="Untitled-1.asp?page=<%=(page+1)%>"><font color="#000000">下页</font></a>
<%else%>
下页
<% end if %>
<a href="Untitled-1.asp?page=<%=rs.pagecount%>"><font color="#000000">尾页</font></a></div>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>