tatalrecord=rs.recordcount ‘获取记录总数目
tatalpages=rs.pagecount ‘获取分页的数目
rs.movefirst
----------------------------
nowpage=request("page") ‘用request获取当前页数，注意page是自己定义的变量并非函数
--------------------------
if nowpage&"x"="x" then ‘处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) ‘将页码转换成数字型
end if
--------------------------------
rs.absolutepage=nowpage ‘将指针移动到当前显示页的第一条记录
-------------------------------
%>
---------------------------------------------
<%
n=1
while not rs.eof and n<=rs.pagesize
response.Write(rs("user") & "<br>")
response.Write(rs("tt") & "<br>")
n=n+1
rs.movenext ‘显示页面的数据
wend
%>
-------------------------------------------
共:<%=tatalpages%>页 当前为:<%=nowpage%>页
<%if nowpage>1 then%>
<a href="fy.asp?page=<%=nowpage-1%>">上一页</a>
<%else%>
上一页
<%end if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage then %>
<a href="fy.asp?page=<%=k%>"><%=k%></a>
<%else%>
<%=k%>
<%end if%>
<%next%><<%if nowpage < tatalpages then%>
<a href="fy.asp?page=<%=nowpage+1%>">下一页</a>
<%else%>
下一页
<%end if%> ‘加上页码连接
<%if nowpage<>1 then%>
<a href="fy.asp?page=<%=1%>"> 首页</a>
<%else%>
首页
<%end if%>
<%if nowpage<>tatalpages then %>
<a href="fy.asp?page=<%=tatalpages%>">末页</a>
<%else%>
末页
<%end if%>
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请
点击举报。
