ASP中记录的分页

2022-07-15 80酷酷网 80kuku.com

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

好了，闲话少说，下面就是代码了：



<body bgcolor="#b9befb">
<center>联系人</center>
<a href="mnew.asp">添加</a>


<%
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)
%>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" width="100%">
<tr align="center">
<td>姓名</td>
<td>性别</td>
<td>家庭电话</td>
<td>办公电话</td>
<td>移动电话</td>
<td>居住地址</td>
<td>公司名称</td>
<td>公司地址</td>
<td>职位</td>
<td colspan=2>操作</td>
</tr>
<%do while not rs.eof and size<rs.pagesize%> 
<tr align="center" font size=2>
<td>
<%=rs("name")%> 　</td>
<td>
<%=rs("sex")%>　</td>
<td>
<%=rs("home_tel")%> 　</td>
<td>
<%=rs("company_tel")%> 　</td>
<td>
<%=rs("mobile")%> 　</td>
<td>
<%=rs("home_address")%> 　</td>
<td>
<%=rs("company_name")%> 　</td>
<td>
<%=rs("company_address")%> 　</td>
<td>
<%=rs("zhiwei")%> 　</td>
<td align=center><a href="mmod.asp?name=<%=rs("name")%>">修改</a></td>
<td align=center><a href="mdel.asp?name=<%=rs("name")%>">删除</a></td>
</tr>
<%rs.movenext
size=size+1
loop%> 
</table>
</center>
</div>
<table border=0 width=95%>
<tr>
<td>共<%=rs.pagecount%>页</td>
<% if page=1 then%> 
<td>首页</td><td>上一页</td>
<%else%> 
<td><a href=mate.asp?currentpage=1>首页</a></td>
<td><a href=mate.asp?currentpage=<%=page-1%> >上一页</a></td>
<%end if%>

<%if cint(page)=rs.pagecount then%> 
<td>下一页</td><td>尾页</td>
<%else%> 
<td><a href=mate.asp?currentpage=<%=page+1%>>下一页</a></td>
<td><a href=mate.asp?currentpage=<%=rs.pagecount%>>尾页</a></td>
&l