asp分页代码介绍

2013 年 11 月 5 日5380

【赛迪网讯】本文介绍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的post参数curpage传递给curpage变量，这个curpage将得到浏览者想要到达的页数，同时用if语句将没有传递到curpage参数的页直接赋于第一页的值

if curpage="" then curpage=1

rs.absolutepage=curpage '这个也是个内置的属性，，它代表的意思就是将curpage变量的数值指定为当前页

%>




<%




for i= 1 to rs.pagesize '利用for循环在每页显示rs.pagesize属性中指定的记录数




if rs.eof then '当最后一页达不到指定记录时就退出循环，以免出错




exit for




end if




%>




<%=rs("record_info")%><br>




<%




rs.movenext '用rs.movenext方法将rs记录集往下移一条记录




next




%>




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




当前第<%=curpage%>页<br/> 




共有<%=rs.pagecount%>页<br/>




共有：<%=rs.recordcount%>条记录<br/>