快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

ASP中记录的分页

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

好了,闲话少说,下面就是代码了:

<!--#include file="dbconn.asp"-->

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

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

<%end if%>
<%end if%> </font>
</tabel>

</table>

</body>

代码是不是很菜呀,不管你有何看法,或者你有更好的实现分页的方式,都欢迎参与评论。

另外说一下,我在asp.net里面也写了几篇有关DataGrid的文章,欢迎大家浏览,并参与评论。要害字里面都有DataGrid。
返回类别: 教程
上一教程: ASP深度揭密
下一教程: 搜索按钮(客户端表单)

您可以阅读与"ASP中记录的分页"相关的教程:
· ADO存取数据时如何实现留言记录的分页显示
· ASP构造大数据量的分页SQL语句
· ASP中利用数组实现数据库记录的批量录入方式
· 利用ASP实现对表的分页浏览
· ASP中通过GETROWS实现数据库记录分页的一段代码
    微笑服务 优质保证 索取样品