已理解的asp分页技术

来源:百度文库 编辑:神马文学网 时间:2024/04/20 08:43:07
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") & "
")
response.Write(rs("tt") & "
")
n=n+1
rs.movenext                        ‘显示页面的数据
wend
%>
-------------------------------------------
共:<%=tatalpages%>页 当前为:<%=nowpage%>页
<%if nowpage>1 then%>
上一页
<%else%>
上一页
<%end if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage then %>
<%=k%>
<%else%>
<%=k%>
<%end if%>
<%next%><<%if nowpage < tatalpages then%>
下一页
<%else%>
下一页
<%end if%>                              ‘加上页码连接
<%if nowpage<>1 then%>
首页
<%else%>
首页
<%end if%>
<%if nowpage<>tatalpages then %>
末页
<%else%>
末页
<%end if%>