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