在ASP中轻松实现记录集分页显示的方法_Web开发_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

在ASP中轻松实现记录集分页显示的方法

作者：闵涛文章来源：闵涛的学习笔记点击数：1526 更新时间：2010/1/10 0:17:05

　　大家都知道在Dreamwerver中可以很方便地实现记录集的分页显示，但是生成的代码的确很庞大，影响了网页的显示速度，看起来条理也不是很清晰，那么，可不可以用简单的方式实现同样的功能呢？当然可以，笔者通过以下一些简单的代码就实现了记录集的分页显示，现在拿出来大家一起分享。

　　主要代码如下:

以下是代码片段：
＜%
　If rs1.recordcount＞0 Then ' 记录集不为空则处理记录
　　rs1.pagesize = 10 ' 设置每页显示的记录数
　　num=rs1.recordcount ' 记录总数
　　pagenum=rs1.pagecount ' 页总数
　　page=request("page") ' 获取页码的原始信息
　　' 处理页码原始信息的开始！
　　If page ＜＞ "" then
　　　page = cint(page)
　　if err.number ＜＞ 0 then
　　　err.clear
　　　page = 1
　　end if
　　if page ＜ 1 then
　　　page = 1
　　end if
　else
　　page = 1
　End if
　if page*rs1.pagesize ＞ num and not((page-1)*rs1.pagesize ＜ num)then
　　page=1
　end if
　' 处理页码原始信息的结束！设置当前页码
　rs1.absolutepage = page
%＞
＜!--判断当前页是否是最后一页，并根据判断设置记录的重复显示--＞
＜% if page＜＞pagenum then
　　　lablenum=rs1.pagesize
　　else
　　　lablenum=num-(page-1)*rs1.pagesize
　　end if
　　for i=1 to lablenum
%＞
＜tr bgcolor="#FFFFFF"＞
　＜td height="25"＞＜div align="center"＞＜%=(rs1.Fields.Item("id").Value)%＞＜/div＞＜/td＞
　＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("名称").Value)%＞＜/div＞＜/td＞
　＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("地址").Value)%＞＜/div＞＜/td＞
　＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("类别").Value)%＞＜/div＞＜/td＞
　＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("最后修改").Value)%＞＜/div＞＜/td＞
　＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("修改人").Value)%＞＜/div＞＜/td＞
＜/tr＞
＜%
　rs1.movenext
next
%＞
＜!--当前页的记录显示结束，以下代码为记录集分页链接代码--＞
＜table width="70%" border="0" align="center" cellpadding="0" cellspacing="0"＞
　＜tr＞
　　＜td height="35"＞
　　　＜div align="right"＞
　　　　＜font color="#333333"＞
　　　　　共有＜%=num%＞个链接 |
　　　　　＜a href=linkadmin.asp?page=1＞首页＜/a＞ |
　　　　　＜%if page＞1 then%＞＜a href=linkadmin.asp?page=＜%=page-1%＞＞＜%end if%＞上一页＜/a＞ |
　　　　　＜%if page＜pagenum then%＞＜a href=linkadmin.asp?page=＜%=page+1%＞＞＜%end if%＞下一页＜/a＞ |
　　　　　＜a href=linkadmin.asp?page=＜%=pagenum%＞＞尾页＜/a＞ |
　　　　　　页次:＜%=page%＞/＜%=pagenum%＞页 |
　　　　　　共＜%=pagenum%＞页
　　　　＜/font＞
　　　＜/div＞
　　＜/td＞
　＜/tr＞
＜/table＞
＜!--记录集分页链接代码结束，记录集为空时执行以下代码--＞
＜%else%＞
＜tr bgcolor="#FFFFFF"＞
＜td height="25" colspan="6"＞＜div align="center"＞＜% response.Write("没有结果可显示！") %＞
＜/div＞＜/td＞
＜/tr＞
＜%
end if
rs1.Close()
Set rs1 = Nothing
%＞

好了，很简单吧！只要简单地修改一下就能插入到你的网页显示记录的地方了，赶快试试吧！
[Web开发]一个关于ASP运行时间计算的代码  [Web开发]ASP:检测含有中文字符串的实际长度
[Web开发]asp 中英文字符长度检测判断函数  [Web开发]安全维护 IIS asp 站点的高级技巧
[Access]ASP&SQL让select查询结果随机排序的实现方法  [Web开发]ASP字符串截取函数
[Web开发][asp]关键词只替换一次的写法  [Web开发]Asp无组件生成缩略图方法详解
[Web开发]asp编程中优化数据库方法详解  [Web开发]三种方法教你asp如何去除html标记

教程录入：mintao 责任编辑：mintao

上一篇教程： loop调用discuz大全

下一篇教程： asp+sqlserver 分页方法（不用存储过程）

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· Web开发  · 网页制作
· 平面设计  · 网站运营
· 网站推广  · 搜索优化
· 建站心得  · 站长故事
· 互联动态

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……