ASP分页详解

最新推荐文章于 2019-06-25 11:03:00 发布

justmuch

最新推荐文章于 2019-06-25 11:03:00 发布

阅读量1.2k

点赞数 1

分类专栏： ASP 文章标签： asp 数据库 bbs 公告服务器 file

ASP 专栏收录该内容

14 篇文章

订阅专栏

如果你使用过目前众多网站上的电子公告板程序的话，那你应该会知道电子公告板程序为了提高页面的读取速度，一般不会将所有的帖子全部在一页中罗列出来，而是将其分成多页显示，每页显示一定数目的帖子数，譬如 20 条。想不想了解如何实现分页显示？请看本文！
　　那么究竟如何才能做到将数据库的查询结果分页显示呢？其实方法有很多，但主要有两种：
　　一、将数据库中所有符合查询条件的记录一次性的都读入 recordset 中，存放在内存中，然后通过 ADO Recordset 对象所提供的几个专门支持分页处理的属性： PageSize( 页大小 )、 PageCount( 页数目 ) 以及AbsolutePage( 绝对页 ) 来管理分页处理。　　二、根据客户的指示，每次分别从符合查询条件的记录中将规定数目的记录数读取出来并显示。
　　两者的主要差别在于前者是一次性将所有记录都读入内存然后再根据指示来依次做判断分析从而达到分页显示的效果，而后者是先根据指示做出判断并将规定数目的符合查询条件的记录读入内存，从而直接达到分页显示的功能。
　　我们可以很明显的感觉到，当数据库中的记录数达到上万或更多时，第一种方法的执行效率将明显低于第二种方法，因为当每一个客户查询页面时都要将所有符合条件的记录存放在服务器内存中，然后在进行分页等处理，如果同时有超过 100 个的客户在线查询，那么 ASP 应用程序的执行效率将大受影响。但是，当服务器上数据库的记录数以及同时在线的人数并不是很多时，两者在执行效率上是相差无几的，此时一般就采用第一种方法，因为第一种方法的 ASP 程序编写相对第二种方法要简单明了得多。
　　在这里作者就以我们常见的 ASP BBS 程序为例，来给大家分析一下如何在 BBS 程序里实现分页显示功能，由于我们一般使用的 BBS 程序的数据库记录数和同时访问的人数都不会太多，所以以下程序实例是使用的先前所介绍的第一种分页显示方法。
　　进行 ADO 存取数据库时的分页显示，其实就是对 Recordset 的记录进行操作。所以我们首先必须了解 Reordset 对象的属性和方法：
　　 BOF 属性：目前指标指到 RecordSet 的第一笔。
　　 EOF 属性：目前指标指到 RecordSet 的最后一笔。
　　 Move 方法：移动指标到 RecordSet 中的某一条记录。
　　 AbsolutePage 属性：设定当前记录的位置是位于哪一页
AbsolutePosition 属性：目前指标在 RecordSet 中的位置。
　　 PageCount 属性：显示 Recordset 对象包括多少“页”的数据。
　　 PageSize 属性：显示 Recordset 对象每一页显示的记录数。
　　 RecordCount 属性：显示 Recordset 对象记录的总数。
　　下面让我们来详细认识一下这些重要的属性和方法
　　一、 BOF 与 EOF 属性
通常我们在 ASP 程序中编写代码来检验 BOF 与 EOF 属性，从而得知目前指标所指向的 RecordSet 的位置，使用 BOF 与 EOF 属性，可以得知一个 Recordset 对象是否包含有记录或者得知移动记录行是否已经超出该Recordset 对象的范围。
　　如： < % if not rs.eof then ... %>
　 < % if not (rs.bof and rs.eof) %>
　　若当前记录的位置是在一个 Recordset 对象第一行记录之前时， BOF属性返回 true，反之则返回 false。
　　若当前记录的位置是在一个 Recordset 对象最后一行记录之后时，EOF 属性返回 true，反之则返回 false。
　BOF 与 EOF 都为 False：表示指标位于 RecordSet 的当中。
　　BOF 为 True：目前指标指到 RecordSet 的第一笔记录。
EOF 为 True：目前指标指到 RecordSet 的最后一笔记录。
　　BOF 与 EOF 都为 True：在 RecordSet 里没有任何记录。
　　二、 Move 方法
　　您可以用 Move 方法移动指标到 RecordSet 中的某一笔记录，语法如下：
　　rs.Move NumRecords,Start
　　这里的“rs”为一个对象变量，表示一个想要移动当当前记录位置的Recordset 对象；“NumRecords”是一个正负数运算式，设定当前记录位置的移动数目；“start”是一个可选的项目，用来指定记录起始的标签。
所有的 Recordset 对象都支持 Move 方法，如果 NumRecords 参数大于零，当前记录位置向末尾的方向移动；如果其小于零，则当前记录位置向开头的方向移动；如果一个空的 Recordset 对象调用 Move 方法，将会产生一个错误。
　　 MoveFirst 方法：将当前记录位置移至第一笔记录。
　　 MoveLast 方法：将当前记录位置移至最后一笔记录。
　　 MoveNext 方法：将当前记录位置移至下一笔记录。
MovePrevious 方法：将当前记录位置移至上一笔记录。
　　 Move [n] 方法：移动指标到第 n 笔记录， n 由 0 算起。

rs.pagesize--->定义一页显示记录的条数
rs.recordcount--->统计记录总数
rs.pagecount---->统计总页数
这几个函数相信大家都很快就明白意识了，不过还有一个函数它的用法可能理解起来难一点
rs.absolutepage--->将数据库指针移动到当前页要显示的数据记录的第一条记录，比如有20条记录的一个数据库，我们分为10条记录显示一页，当你的页面为2时，通过使用rs.absolutepage将指针移动到第11条记录处，依次类推....
3.大家明白原理后我们开始来看一段分页的程序，其中的一些文件我就不一一详细讲解了，不明白的朋友可以先看

http://www.2yup.com/asp/forum/branch.asp?pid=55084&pn=5
--------------------------------------------------

<%
dim m,n
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from message order by time desc"
rs.open sqlstr,conn,3,3
rs.pagesize=10 '定义一页显示的记录数目
tatalrecord=rs.recordcount '获取记录总数目
tatalpages=rs.pagecount '获取分页的数目
rs.movefirst
----------------------------
nowpage=request("page") '用request获取当前页数，注意page是自己定义的变量并非函数
--------------------------
if nowpage&"x"="x" then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if
--------------------------------
rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录
-------------------------------
%>
---------------------------------------------
<%
n=1
while not rs.eof and n<=rs.pagesize
response.Write(rs("user") & "<br>")
response.Write(rs("tt") & "<br>")
n=n+1
rs.movenext '显示页面的数据
wend
%>
-------------------------------------------
共:<%=tatalpages%>页当前为:<%=nowpage%>页
<%if nowpage>1 then%>
<a href="fy.asp?page=<%=nowpage-1%>">上一页</a>
<%else%>
上一页
<%end if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage then %>
<a href="fy.asp?page=<%=k%>"><%=k%></a>
<%else%>
<%=k%>
<%end if%>
<%next%>
<%if nowpage < tatalpages then%>
<a href="fy.asp?page=<%=nowpage+1%>">下一页</a>
<%else%>
下一页
<%end if%> '加上页码连接
<%if nowpage<>1 then%>
<a href="fy.asp?page=<%=1%>"> 首页</a>
<%else%>
首页
<%end if%>
<%if nowpage<>tatalpages then %>
<a href="fy.asp?page=<%=tatalpages%>">末页</a>
<%else%>
末页
<%end if%>
------------------------------------------------
这样一个分页的就OK了，呵呵:)