foxty [原作]
(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/asp/) 近日一直在研究如何才能写出高小的分页算法,大概整理了一下,思路如下:
首先数据库里需要有一个自动编号字段(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")
'www.knowsky.com
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("Pa