Access 2000 数据库 80 万记录通用快速分页类

Access 2000 数据库数据库 80 万记录通用快速分页类万记录通用快速分页类

Access 2000 数据库 80 万记录通用快速分页类

代码本人优化过，测试通过

主要思路: 用一条语句统计(Count)出记录数(而不在查询时获得 RecordCount 属性), 缓存在 Cookies 中, 跳转时就不用再次统

计. 使用 ADO 的 AbsolutePage 属性进行页面跳转即可. 为方便调用而写成类, 代码主要地方已有说明

硬件环境: AMD Athlon XP 2600+, 256 DDR

软件环境: MS Windows 2000 Advanced Server + IIS 5.0 + Access 2000 + IE 6.0

测试结果: 初次运行在 250(首页) - 400(末页)毫秒, (记录数缓存后)在页面间跳转稳定在 47 毫秒以下.第1页跳到最后一页不多

Rem ## 打开数据库连接

Rem #################################################################

function f__OpenConn()

Dim strDbPath

Dim connstr

strDbPath = "fenye/db.mdb"

connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

connstr = connstr & Server.MapPath(strDbPath)

Set conn = Server.CreateObject("Adodb.Connection")

conn.open connstr

conn.close

End If

Set conn = nothing

End function

Rem #################################################################

Rem 获得执行时间

Rem #################################################################

function getTimeOver(iflag)

Dim tTimeOver

If iflag = 1 Then

End function

Rem #################################################################

Class Cls_PageView

Private sbooInitState

Private sstrCookiesName

Private sstrPageUrl

Private sstrPageVar

Private sstrTableName

Private sstrFieldsList

Private sstrCondiction