分页代码
<% if rs.eof and rs.bof then%>
<tr>
<td height="25" colspan="3"><div align="center" class="style1">
<marquee>
没有找到相应条件的记录
</marquee>
</div></td>
</tr>
<%else%>
<%
dim c
c="1"
rs.PageSize = 20
'首先利用rs对象(实例）的pagesize属性设定每页要显示的记录条数;
Page = CLng(Request("Page"))
'string型转化为long型
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
'rs对象的属性pageCount是显示记录集对象(实例)rs现在包含了多少页的记录；
%>
<%
'循环显示每条记录
rs.AbsolutePage = Page
'rs对象的属性AbsolutePage是指当前记录所在的位置是第几页；
'把页码赋给absolutepage属性从而知当前页的首条记录号
For i = 1 To rs.PageSize
%>
这里放要循环的内容，循环体
<%
rs.MoveNext
If rs.EOF Then Exit For
'当记录检索指针已经指到数据表中最后一条记录上的时候，退出for...next的循环语句；
Next
end if
%>
</table>
<%if c="1" then%>
<table width="100%" height="35" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="780" class="hwz"><div align="right">
<%
If Page <> 1 Then
Response.Write "[<A HREF=user.asp?Page=1>首页</A>]"
Response.Write "[<A HREF=user.asp?Page=" & (Page-1) & ">前页</A>]"
End If
If Page <> rs.PageCount Then
Response.Write "[<A HREF=user.asp?Page=" & (Page+1) & ">下页</A>]"
Response.Write "[<A HREF=user.asp?Page="&rs.PageCount & ">尾页</A>]"
End If
Response.Write "当前记录:<font color=#FF0000>"&page&"</font>/"
Response.Write "<font color=#FF0000>"&rs.PageCount&"</font>页-"
Response.Write "每页<font color=#FF0000>"&rs.pagesize&"</font>条记录-"
Response.Write "共有记录<font color=#FF0000>"&rs.recordcount&"</font>条"
'每一页的显示
%>
</div></td>
</tr>
</table>
<%end if%>