频道直达 - 学院 - 下载 - 交易 - 特效 - 字库 - 手册 -排名-工具- 繁體
网页教学网站开发 设为首页
加入收藏
联系我们
建站搜索: 常用广告代码   用户注册 | 用户登陆
您当前的位置:中国建站之家 -> 网站开发设计技术教程 -> asp教程 -> Asp中如何快速分页

Asp中如何快速分页

作者:未知  来源:转载  发布时间:2005-7-25 21:18:27  发布人:acx

减小字体 增大字体

近日一直在研究如何才能写出高小的分页算法,大概整理了一下,思路如下:

首先数据库里需要有一个自动编号字段(ID)。然后第一次访问的时候,取出所有记录,定制好每页的记录数PageSize,计算出页数,然后根据页数建立一个一维数组PageId(PageCount),PageId(0)保存记录初试条件,然后对应每个元素保存每页对应的ID边界码

1,ID边界码:如果数据库记录ID记录序列如下 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16
假设需要按照ID 顺序排序的话 ,PageSize = 5, Pagecount = 4 ,PageId(4)
数组PageId的值分别为PageId(0) = 1, PageId(1) = 5 ,PageId(2) = 10,PageId(3) = 15 ,PageId(4) = 16
当访问第 i 页的时候就直接找 [PageId(i-1) , PageId(i) ) 之间的记录,这样可以保证每次取的记录都只是PageSize 条记录。
假设需要按照ID倒序排列的话,
数组PageId的值分别为PageId(0) = 16 , PageId(1) = 12 , PageId(2) = 7 ,PageId(3) = 2, PageId(4) = 1, 当访问第 i 页的时候就直接查找ID属于[ PageId(i-1) , PageId(i) )


将数组PageId()保存在Application()中,以便访问,这样,只是第一次访问分页程序的时候便初始化Application()。代码部分如下:(下面称为新程序)

<%
Time1 = Timer()
Dim Conn
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.open "Driver={MicroSoft Access Driver (*.mdb)};Dbq="&Server.MapPath("db.mdb")

Dim Page,PageCounts,PageId,PageList
Dim Rs,Sql
Dim IsInit,i

IsInit = False ''标志为,用来判断Application("PageId")是否初始化
PageList = 20 ''设置每页显示20条数据
Set Rs = Server.CreateObject("Adodb.Recordset")
Page = Request.QueryString("Page") ''注意页码需要检查类型

If IsEmpty(Application("PageId")) Then ''如果Application("PageId")还未初始化,则先进行初始化
Response.Write("Init app!<br>")
Sql = "Select * From test Order By Id Desc" ''假定这里是按照ID倒序排列
Rs.open Sql,Conn,1,1 ''得到记录集对象

If Not (Rs.Eof or Rs.Bof) Then
Rs.PageSize = PageList ''设置每页记录数
PageCounts = Rs.PageCount
ReDim PageId(PageCounts) ''重新定义数组PageId
For i = 0 To PageCounts ''开始给数组 PageId() 赋值
If Rs.eof Then Exit For
PageId(i) = Rs("ID")
Rs.Move (PageList)
Next
Rs.MoveLast
PageId(PageCounts) = Rs("ID")
Application.Lock()
Application("PageId") = PageId
Application.UnLock()
End If
Rs.Close
End If
IdStart = Clng(Application("PageId")(Page-1))
IdEnd = Clng(Application("PageId")(Page))
Sql = "Select * from test where id<="&IdStart&" and id>"&IdEnd&" "
Rs.open Sql,Conn,1,1
While Not Rs.eof
Response.Write(rs(0)&"--"&rs(1))
Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing


For i = 1 To Ubound(Application("PageId"))
Response.Write("<a href=''Test1.asp?Page="&i&"''>"&i&"</a> ")
Next
Time2 = Timer()

Response.Write("<br>"&(Time2-Time1)*1000)
''Application.Contents.Remove("PageId")
%>

传统分页代码如下:(下面称为旧程序)
<%
Time1 = Timer()
Dim Conn
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.open "Driver={MicroSoft Access Driver (*.mdb)};Dbq="&Server.MapPath("db.mdb")

Dim Page,PageCounts,PageList
Dim Rs,Sql

PageList = 20
Page = Request.QueryString( "Page" )
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "Select * from test order by id desc"
Rs.Open Sql,Conn,1,1

If Page = "" Then Page = 1
If Not( Rs.eof Or Rs.Bof ) Then
Rs.PageSize = PageList
PageCounts = Rs.PageCount
Rs.AbsolutePage = Page
End If

For i = 1 to PageList
If Rs.eof Then Exit For
Response.Write(Rs(0)&"-----"&Rs(1)&"<br>")
Rs.MoveNext
next

For i = 1 To PageCounts
Response.Write("<a href=''Test.asp?Page="&i&"''>"&i&"</a> ")
Next
Time2 = Timer()

Response.Write("<br>"&(Time2-Time1)*1000)
%>

其实,总体的思想就是,建立一个Application("PageId")全局数组,每个元素都保存页面所区记录的ID区间,比如,Application("PageId")(0) 保存第一个元素的ID,然后Application("PageId")(1)保存下一页的第一个ID…………依次类推,当需要访问第 i 页的时候,就直接查找ID在 [ Application("PageId")(i-1) , Application("i") ) 里面的记录集,这样,每次只用查找需要的记录数,而不需要每次都把所有记录都查找一遍,但是,这个方法是在第一次访问的时候,即需要创建数组Application("PageId")的时候比较慢一点,当第N次访问的时候 (N>1)速度就快将近10倍,我采用上面2个程序测试:
1,数据库记录有32000条记录,旧程序访问一页需要500毫秒左右,新程序只是第一次访问的时候达到这个时间,然后每次都只需要55毫秒左右。
2,将数据增加到64000条记录,旧程序访问一页需要1000毫秒左右,新程序也是第一次访问的时候达到这个似乎件, 后面每次仍然还是保持在55毫秒左右。
3,将数据增加到128000条记录,旧程序访问一页需要1900毫秒左右,新程序第一次访问需要2300毫秒左右,然后每次访问只需要70毫秒左右。
这里需要注意的是数据库每改动一次,Application("PageId") 就需要重新赋值!

研究心得:(首先谢谢叶子(DVBBS)的心得)尽量不要用自带的分页程序,Rs.RecordCount 很耗资源。依次,估计Rs.PageCount ……也耗资源,而且用Rs.GetRows()效果也很明显提高。

经过比较,叶子的算法在记录比较靠前的时候速度以及效率是比较高的。但是不太稳定,有时(很少)会从30毫秒左右跳到1-200毫秒。到了后面效率就明显下降到50-80毫秒,越后效率越低。新算法第一次效率比较低下,大约在500毫秒左右,但是比较稳定,后面一般哦度是50毫秒左右,而且随着库的记录数变化,这个速度依然如此。不会有什么变化。下次就把叶子和我的算法结合起来试试,不过叶子的算法确实是很不错D,具备通用性。我这个只能拿来聊聊了。



将本文收藏到QQ书签与更多好友分享
[打 印]
[] [返回上一页] [收 藏]
∷相关文章评论∷    (评论内容只代表网友观点,与本站立场无关!) [更多评论...]
精彩推荐
热门文章
· 注册码大全二
· 注册码大全四
· 注册码大全一
· 要10G免费网络硬盘的请进..
· 通过google 赶快来赚美金..
· 注册码大全十
· 头像-qq头像(qq新头像)4..
· 让你轻松架设FTP服务器1..
· 注册码大全三
· 梦幻背景图片7
· 卡通动物图片6
· 网页制作素材-按钮素材2..
· 让你轻松架设FTP服务器5..
· 风景图片8
· 注册码大全九
· 让你轻松架设FTP服务器2..
关注此文读者还看过
· Photoshop应用实例 打造..
· 雅虎、网易领航电邮革命..
· ASP.NET编程实例ABC(2)
· 循序渐进学习Ajax的途径..
· 短线的新浪也是短视的新..
· 用FLASH MX制作动画卡通..
· ASP.NET ViewState 初探..
· remote script文档(转载..
· Iasp+Apache+W98简单试用..
· DreamWeaver,经典50问(4..
· 即时通讯排名出炉 QQ居首..
· Google推出系列企业级搜..
· 病毒作者大骂瑞星 狂言今..
· FlashMX经典实例(2)
· 制作HTML网页之你应该避..
· ASP进阶教程Ⅵ:留言簿在..
相关文章
· ASP中FSO的神奇功能 - 文件..
· 通过实例讲解来学习ASP中的..
· ASP基础教程之学习ASP中子程..
· 实例详细讲解ASP教程之ASP中..
· asp中的多条件组合查询实现..
· 关于Asp中代码与页面的分离..
· 技巧:ASP中用Request对象获..
· 浅谈ASP中Web页面间的数据传..
· ASP中各种数据库连接代码
· 轻松实现ASP中页面限权访问..
· 轻松实现ASP中页面限权访问..
· 轻松实现ASP中页面限权访问..
· 在ASP中使用事务控制
· 在ASP中常见的错误80004005..
· Asp中如何快速分页!
· 在ASP中使用SQL语句之7:ORD..
关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 - 人才招聘
网站合作、内容监督、商务咨询:QQ: 9576619
Copyright ? 2005--2008 中国建站之家版权所有
粤ICP备05092265号