pg=clng(request("page"))'设置一个存放页的变量
'此处链接你的数据库
if not rs.eof then
rs.pagesize=2'设置每页多少个记录
if request("page")="" then
pg=1
rs.absolutepage=1
else
rs.absolutepage=request("page")
end if
end if
'此处放你的其他程序
<%for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>
'此处放你的记录
<%rs.movenext
next
%>
----下面是分页
<form action=你的页面.asp method=post>'此表单为你在文本框输入页数,直接跳转
<td height="19" colspan="8" class="f">
<% if pg<1 then pg=1
if pg>rs.pagecount then pg=rs.pagecount
if pg<>1 then
response.write "[<a href=你的页面.asp?page=1>第一页</a>] "
response.write "[<a href=你的页面.asp?page="&(pg-1)&">上一页</a>] "
end if
if pg<>rs.pagecount then
response.write "[<a href=你的页面.asp?page="&(pg+1)&">下一页</a>] "
response.write "[<a href=你的页面.asp?page="&rs.pagecount&">最后一页</a>] "
end if
%>
输入页数:
<input size=3 name="page">
[记录共<font color=CE3100><%=rs.recordcount%></font>条/<font color=CE3100><%=rs.PageCount%></font>页/当前第<font color=CE3100><%=pg%></font>页]