ASP简单的分页处理

熊海
熊海

在处理多的数据时,我们就需要对数据进行分页显示了,在一些初学者中,分页是一个头痛的事,起码对于我来说,刚开始对分页还是非常迷糊的,下面的分类代码清晰的对每个环节都做出了说明,希望能给新手一些帮助:

<%
'链接数据库
Set conn=Server.CreateObject("Adodb.Connection")
connstr="provider=Microsoft.JET.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")
conn.open connstr
Set rs=Server.CreateObject("Adodb.Recordset")
sql="Select * from info"
rs.open sql,conn,1,1

rs.pagesize=5 '每页记录条数
curpage=Request.QueryString("curpage") '将URL参数curpage传给curpage变量
if curpage="" then curpage=1
rs.absolutepage=curpage '将本页设为curpage设置的页数

'对数据进行循环
for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
------------------分页需要显示的内容-------------------
<%
rs.movenext
next
%>
当前第<%=curpage%>页,共有<%=rs.pagecount%>页,共有:<%=rs.recordcount%>条记录
<%if curpage=1 then%>
首页
<%else%>
<a href="?curpage=1">首页</a>
<%end if%>

<%if curpage=1 then%>
上一页
<%else%>
<a href="?curpage=<%=curpage-1%>">上一页</a>
<%end if%>

<%if rs.pagecount<curpage+1 then%>
下一页
<%else%>
<a href="?curpage=<%=curpage+1%>">下一页</a>
<%end if%>

<%if rs.pagecount<curpage+1 then%>
尾页
<%else%>
<a href="?curpage=<%=rs.pagecount%>">尾页</a>
<%end if%>


支付宝打赏支付宝 微信
微信扫一扫
0 条评论

评论:

发送