ASP中记录的分页

导读：
　　今天又遇到一个网友问DataGrid分页的问题，很明显这位网友也是初学ASP。其实许多刚入门的朋友经常会因为遇到这样的小问题着急得很，花费很长时间来解决，特别是身边又没有朋友可以讨论的时候，那种心情我是理解的，鉴于这种情况，我打算把我写的一个同学录中的一个页面发布出来，这个页面主要涉及到DataGrid分页问题。希望我们小菜鸟一族共同进步，争取早日不菜，呵呵。
　　好了，闲话少说，下面就是代码了：
　　
　　
　　 联系人
　　 添加

　　
　　<%

sql="select * from mates order by name"

set rs=server.CreateObject("adodb.recordset")

rs.open sql,conn,1,1

session("name")=rs("name")

if not rs.eof then

rs.pagesize=2

page=request.querystring("currentpage")

if page="" then page=1

rs.AbsolutePage=cint(page)

%>　　sql="select * from mates order by name"

　　set rs=server.CreateObject("adodb.recordset")

　　rs.open sql,conn,1,1

　　session("name")=rs("name")

　　if not rs.eof then

　　rs.pagesize=2

　　page=request.querystring("currentpage")

　　if page="" then page=1

　　rs.AbsolutePage=cint(page)

　　%>
　　

　　
　　













<>　　






















　　 　　

姓名

　　

性别

　　

家庭电话

　　

办公电话

　　

移动电话

　　

居住地址

　　

公司名称

　　

公司地址

　　

职位

　　

操作

　　 　　<%do while not rs.eof and size 　　

<%=rs("name")%>

　　

<%=rs("sex")%>

　　

<%=rs("home_tel")%>

　　

<%=rs("company_tel")%>

　　

<%=rs("mobile")%>

　　

<%=rs("home_address")%>

　　

<%=rs("company_name")%>

　　

<%=rs("company_address")%>

　　

<%=rs("zhiwei")%>

　　

">修改

　　

">删除

　　 　　<%rs.movenext size=size+1 loop%>　　size=size+1 　　loop%> 　　
　　
　　

　　











　　 　　

共<%=rs.pagecount%>页

　　<% if page=1 then%> 　　

首页

尾页

　　<%else%> 　　

>下一页

　　

>尾页

　　 　　<%end if%> 　　<%end if%> 　　 　　
　　
　　代码是不是很菜呀，不管你有何看法，或者你有更好的实现分页的方法，都欢迎参与评论。
　　另外说一下，我在ASP.net里面也写了几篇有关DataGrid的文章，欢迎大家浏览，并参与评论。关键字里面都有DataGrid。

本文转自
http://study.qqcf.com/web/242/28154.htm