|
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%> |
|
|
