透彻掌握ASP分页技术很详细的分析

首先，来看看效果！

看看功能：分页程序首先读取每页预置的记录条数，在此是5条，其它将在下页中显示，同时提示当前页数、总页数、总记录数，当显示的页数为第一页时，“首页”、“上一页”链接失效，当显示的页数为最后页时，“下一页”、“尾页”链接失效。

接下来，以实例的方式告诉大家怎么一步步的做出这种分页效果。

首先，数据库中字段record_info存在于info表中（学习ASP分页的时候估计你对数据库也有了一定的了解），先链接数据库并将一个记录集打开，以下代码：

以下为引用的内容：

<%
Set conn=Server.CreateObject("Adodb.Connection")
connstr="provider=Microsoft.JET.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")
conn.open connstr
Set rs=Server.CreateObject("Adodb.Recordset")
sql="Select * from info"
rs.open sql,conn,1,1
%>

这段代码不详解，相信初入门的都会，具体的解释可以看看《手把手教你用ASP做留言本》教程，接下来这是分页中比较重要的部分，了了三行而已：

以下为引用的内容：

<%
rs.pagesize=5
curpage=Request.QueryString("curpage")
rs.absolutepage=curpage
%>

第二句：

rs.pagesize =5，这个什么意思呢？它就是在Recordset对象中的一个内置属性，它的作用是指定每页的记录条数，设置为5时，每5条记录放在一起成一页，比如实例中共有21条记录，那么，使用rs.pagesize分页后，这21条记录将分成5页进行显示。

第三句：

这里主要是用于翻页的功能，将URL的post参数curpage传递给curpage变量，这个curpage将得到浏览者想要到达的页数。（运行一下实例就会明白）

第四句：

rs.absolutepage，这个也是个内置的属性，，它代表的意思就是将curpage变量的数值指定为当前页。

现在开始可以让记录循环显示了：

以下为引用的内容：

<%
for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<%=rs("record_info")%><br>
<%
rs.movenext
next
%>

第二句：利用for循环在每页显示rs.pagesize属性中指定的记录数。

第三、四、五句：这句意思是当最后一页达不到指定记录时就退出循环，以免出错。

第七句：绑定从数据库取出的record_info字段，就是叫这字段内的记录循环显示的。

第九句：用rs.movenext方法将rs记录集往下移一条记录。

第十句：for循环语句。

另外可以用<%=curpage%>读出当前页次，用<%=rs.pagecount%>读出总页数，用<%= rs.recordcount%>读出总记录数。例如：“当前第<%=curpage%>页，共有<%= rs.pagecount%>页，共有：<%=rs.recordcount%>条记录”。

在显示首页、上页、下页、尾页功能上，采用了if...else...语句，比较好懂。

以下为引用的内容：

<%if curpage=1 then%>
首页
<%else%>
<a href="?curpage=1">首页</a>
<%end if%>

<%if curpage=1 then%>
上一页
<%else%>
<a href="?curpage=<%=curpage-1%>">上一页</a>
<%end if%>

<%if rs.pagecount<curpage+1 then%>
下一页
<%else%>
<a href="?curpage=<%=curpage+1%>">下一页</a>
<%end if%> <%if rs.pagecount<curpage+1 then%>
尾页
<%else%>
<a href="?curpage=<%=rs.pagecount%>">尾页</a>
<%end if%>

理解一下：

首页：这个使用当前页是否为第一页时判别，如果当前为第一页（也就是首页），那么显示首页两字，没有链接，否则提供直接跳转到首页的链接。

上一页：当前为第一页时，链接失效，反过来，链接到当前面的上一页，这里使用：<%=curpage-1%>，就是用当前的页数减去1，得到上一页。

下一页：这里需要使用rs.pagecount这个属性来比较，假如总页数小于当前页数加1的值，那表明这就是第后一页，链接将失效，否则链接到下一页。

尾页：和下一页的功能一样判定出是最后页时链接失效，否则将当前页指定为rs.pagecount(总页数)。

这个教程到此结束，经过讲解，大家应该对ASP的分页技术有较深的理解了吧？有问题可以通过在blog留言的方式和我联系。

赞 (0)

相关推荐

  • flash和asp分页的一点心得与flash脚本

    看了这个的一些帖子,学到了很多东西,现在和大家一起分享  flash现在只是一个显示的功能,过程中看了一些别人的东西,觉得分页似乎有很简单的实现方式.基本上都是用xml传送的.显示用 list 组件和 datagrid 都可以,这里我用的是动态文本,因为觉得组件用的太麻烦了.所以用了蠢办法,没办法,找不到更好的~~~下面代码中的 list[..]就是动态文本的名趁,一次显示15条 //显示程序如下: //桢名称 "list"  stop();  var logList = new XM

  • 简单的ASP分页代码（测试正确）第1/2页

    本文匆匆已经全面测试,支持ASP+ACCESS以及ASP+SQL,请修改相关部分就可以了. 注意,匆匆谢绝基础问题回答,已经本代码已经很简单,如果还不懂可以参阅本站其他栏目. <!--#include file="conn.asp"--> <% '以上为包含数据库衔接文件 '--------------------------------------------查询开始数据库 set rs=server.CreateObject("adodb.records

  • asp分页生成html的程序脚本代码

    这是asp分页列表生成静态页面得asp小程序脚本 复制代码 代码如下: <!--#include file="conn.asp"-->  <html><head><TITLE>分页测试</TITLE><LINK href="inc/style.css" type=text/css rel=stylesheet></head>  <%strHead=strHead&&qu

  • ASP分页类(支持多风格变换)

    ASP分页类(支持多风格变换)

    这个分页使用的是0游标,也就是Rs.Open Sql,Conn,0,1.但是感觉也快不了多少,10万条数据的分页时间300多豪秒之间. 复制代码 代码如下: <% '****************************** '名称:分页类 '日期:2005/12/3 '作者:西楼冷月 '网址:www.xilou.net | www.chinaCMS.org '描述:无 '版权:转载请注名出处,作者 '****************************** Class Page Priv

  • 彻底掌握ASP分页技术杂谈

    彻底掌握ASP分页技术杂谈

    近段时间看了一些论坛上面关于分页的ASP程序依然有许多的关注者,但里面只有代码,没有详细的解释,对于初学者来说,这样总是得不到真正的掌握,此次我将针对分页技术进行详解,让大家来理解ASP分页,好了,一起来对分页程序来次透彻的了解吧! 首先,来看看演示 !看看功能:分页程序首先读取每页预置的记录条数,在此是5条,其它将在下页中显示,同时提示当前页数.总页数.总记录数,当显示的页数为第一页时,"首页"."上一页"链接失效,当显示的页数为最后页时,"下一页&qu

  • asp下计算分页的几种方法

    <%     '计算分页的几种方法 '// iRecordCount为要计算的页面总数     '// iRecordCount为记录集数     '// iPageSize为每页记录数 '// 一:     If iRecordCount Mod iPageSize = 0 Then         iPageCount = Int(iRecordCount / iPageSize)     Else         iPageCount = Int(iRecordCount / iPageS

  • ASP分页时计算页面总数的几种算法小结

    下面是我从网上找到三种ASP分页时计算页面总数的方法,此方法仅为分页时计算页面总数,并非整个分页代码: 方法一 复制代码 代码如下: ' HTMer_RecordCount为要计算的页面总数 ' HTMer_RecordCount为记录集数 ' HTMer_PageSize为每页记录数 If HTMer_RecordCount Mod HTMer_PageSize=0 Then HTMer_PageCount=Int(HTMer_RecordCount/HTMer_PageSize) Else

  • 叶子asp分页类

    名称: 叶子asp分页类 Name: ShowoPage(vbs class) RCSfile: ReadMe.txt Revision: 0.12.20051114.f Author: Yehe(叶子) Released: 2005-11-14 09:40:13 Descript: ASP分页类,支持access/mssql/mysql/sqlite Contact: QQ:311673 MSN:myehe@msn.com GT:mmyehe@gmail.com WebSite: http:/

  • asp分页（自己整理的2个分页程序）

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/19

  • 易心asp分页类 v1.0

    易心asp分页类v1.0 复制代码 代码如下: <%  class Ex_SplitPageCls  '==========================================================================  '易心asp分页类v1.0  '作者:易心 QQ:343931221  '个人网站 www.ex123.net www.bo56.com   '演示地址:www.ex123.net/show/page  '转载请保留此信息  '========

  • js实现ASP分页函数 HTML分页函数

    复制代码 代码如下: <!-- //ASP分页函数 function ShowListPage(page,Pcount,TopicNum,maxperpage,strLink,ListName){     var alertcolor = '#FF0000';     maxperpage=Math.floor(maxperpage);     TopicNum=Math.floor(TopicNum);     page=Math.floor(page);     var n,p;     i

  • asp分页的一个类

    asp分页的一个类  在50,000条记录下测试过,速度比ado的那个要快多了 <% '************************************************************************************ '具体用法 Dim strDbPath Dim connstr Dim mp Set mp = New MyPage strDbPath = "fenye/db.mdb" connstr  = "Provider=M

随机推荐