Access2000数据库80万记录通用快速分页类_ASP技巧

主要思路: 用一条语句统计(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页跳到最后一页不多于 350 毫秒

适用范围: 用于普通分页. 不适用于有较复杂的查询时: 如条件为"[Title] Like '%最爱%'", 查询的时间大大增加, 就算 Title 字段作了索引也没用. :(

<%@LANGUAGE = "VBScript" CODEPAGE="936"%>

<%Option Explicit%>

<%

Dim intDateStart

intDateStart = Timer()

Rem ## 打开数据库连接

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

function f__OpenConn()

Dim strDbPath

Dim connstr

strDbPath = "../db/test.mdb"

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

connstr = connstr & Server.MapPath(strDbPath)

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

conn.open connstr

End function

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

Rem ## 关闭数据库连接

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

function f__CloseConn()

If IsObject(conn) Then

conn.close

End If

Set conn = nothing

End function

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

Rem 获得执行时间

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