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页跳到最后一页不多于 350 毫秒

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

%@LANGUAGE   %
% %
%
  intDateStart
 intDateStart  
 
 
   f__OpenConn
    strDbPath
    connstr
   strDbPath  
   connstr   
   connstr   connstr  strDbPath
    conn   
   conn connstr
   
 
 
 
 
   f__CloseConn
    conn 
    conn
    
    conn  nothing
   
 
 
 
  getTimeOveriflag
   tTimeOver
   iflag   
   tTimeOver    intDateStart  true
   getTimeOver    tTimeOver  
  
   tTimeOver    intDateStart    true
   getTimeOver    tTimeOver  
   
  
 
  Cls_PageView
   sbooInitState
   sstrCookiesName
   sstrPageUrl
   sstrPageVar
   sstrTableName
   sstrFieldsList
   sstrCondiction
   sstrOrderList
   sstrPrimaryKey
   sintRefresh
  
   sintRecordCount
   sintPageSize
   sintPageNow
   sintPageMax
  
   sobjConn
  
   sstrPageInfo
  
    Class_Initialize
    ClearVars
   
   
    class_terminate
    sobjConn  nothing
   
  
    ClearVars
   sbooInitState  False
   sstrCookiesName  
   sstrPageUrl  
   sstrPageVar  
   sstrTableName  
   sstrFieldsList  
   sstrCondiction  
   sstrOrderList  
   sstrPrimaryKey  
   sintRefresh  
   
   sintRecordCount  
   sintPageSize  
   sintPageNow  
   sintPageMax  
   
  
  
     strCookiesName
   sstrCookiesName  
   
  
  
     strPageUrl
   sstrPageUrl  
   
  
  
     strTableName
   sstrTableName  
   
  
  
     strFieldsList
   sstrFieldsList  
   
  
  
     strCondiction
       
    sstrCondiction    
   
    sstrCondiction  
    
   
  
  
     strOrderList
       
    sstrOrderList    
   
    sstrOrderList  
    
   
  
  
     strPrimaryKey
   sstrPrimaryKey  
   
  
  
     intPageSize
   sintPageSize  toNum 
   
  
  
     objConn
    sobjConn  
   
  
  
     intPageNow
   sintPageNow  toNum 
   
  
  
     strPageVar
   sstrPageVar  
   
  
  
     intRefresh
   sintRefresh  toNum 
   
  
  
     intPageNow
   intPageNow  singPageNow
   
  
  
     strPageInfo
   strPageInfo  sstrPageInfo
   
  
  
     arrRecordInfo
     sbooInitState 
     
    
   
    rs sql
   sql    sstrFieldsList  _
      sstrTableName  _
    sstrCondiction  _
    sstrOrderList
   
    rs  
   rs sql sobjConn  
    rseof  rsbof 
    rsPageSize  sintPageSize
    rsAbsolutePage  sintPageNow
     rseof  rsbof 
     arrRecordInfo  rsgetrowssintPageSize
    
     arrRecordInfo  
     
   
    arrRecordInfo  
    
   rs
    rs  nothing
   
  
  
    InitRecordCount
   sintRecordCount  
    sbooInitState   
    sintTmp
   sintTmp  toNum  sstrCookiesName -1
    sintTmp    sintRefresh  
     sql rs
    sql    sstrPrimaryKey    _
       sstrTableName  _
     sstrCondiction
     rs  sobjConnsql
     rseof  rsbof 
     sintTmp  
    
     sintTmp  rs
     
    sintRecordCount  sintTmp
    
      sstrCookiesName  sintTmp
   
    sintRecordCount  sintTmp
    
   
  
  
    InitPageInfo
   sstrPageInfo  
    sbooInitState   
   
    surl   
   surl  sstrPageUrl   
     surl     
    surl  surl    sstrPageVar  
   
    surl  surl    sstrPageVar  
    
   
    sintPageNow    sintPageNow  
    sintRecordCount  sintPageSize   
    sintPageMax  sintRecordCount  sintPageSize
   
    sintPageMax  sintRecordCount  sintPageSize  
    
    sintPageNow  sintPageMax  sintPageNow  sintPageMax
   
    sintPageNow   
    sstrPageInfo  
   
    sstrPageInfo  sstrPageInfo    surl  
    sstrPageInfo  sstrPageInfo    surl  sintPageNow    
    
   
    sintPageMax  sintPageNow   
    sstrPageInfo  sstrPageInfo  
   
    sstrPageInfo  sstrPageInfo    surl  sintPageNow    
    sstrPageInfo  sstrPageInfo    surl  sintPageMax  
    
   
   sstrPageInfo  sstrPageInfo    sintPageNow    sintPageMax  
   sstrPageInfo  sstrPageInfo    sintRecordCount    sintPageSize  
   
  
  
    toNums Default
   s  s  
    s    s 
    toNum  s
   
    toNum  Default
    
   
  
  
    InitClass
   sbooInitState  True
    sobjConn  sbooInitState  False
    InitRecordCount
    InitPageInfo   
   
  
  strLocalUrl
 strLocalUrl  
 
  intPageNow
 intPageNow  
 
  intPageSize strPageInfo
 intPageSize  
 
  arrRecordInfo i
  Conn
 f__OpenConn
   clsRecordInfo
   clsRecordInfo  New Cls_PageView
  
  clsRecordInfostrTableName  
  clsRecordInfostrPageUrl  strLocalUrl
  clsRecordInfostrFieldsList  
  clsRecordInfostrCondiction  
  clsRecordInfostrOrderList  
  clsRecordInfostrPrimaryKey  
  clsRecordInfointPageSize  
  clsRecordInfointPageNow  intPageNow
  
  clsRecordInfostrCookiesName  
  clsRecordInfostrPageVar  
  
  clsRecordInfointRefresh  
  clsRecordInfoobjConn  Conn
  clsRecordInfoInitClass
  
  arrRecordInfo  clsRecordInfoarrRecordInfo
  strPageInfo  clsRecordInfostrPageInfo
   clsRecordInfo  nothing
 f__CloseConn
%
html
head
meta http-equiv content
title分页测试/title
style type
!--
PageView {
 font-size ;
}
PageView td {
 border-right-style solid;
 border-bottom-style solid;
 border-right-color #E0E0E0;
 border-bottom-color #E0E0E0;
 border-right-width ;
 border-bottom-width ;
}
PageView table {
 border-left-style solid;
 border-top-style solid;
 border-left-color #E0E0E0;
 border-top-color #E0E0E0;
 border-top-width ;
 border-left-width ;
}
trHeader {
 background #EFF7FF;
 font-size ;
 font-weight bold;
 line-height %;
 text-align center;
}
--
/style
style type
!--
body {
 font-size ;
}
alink {
 color #993300;
 text-decoration none;
}
avisited {
 color #003366;
 text-decoration none;
}
ahover {
 color #0066CC;
 text-decoration underline;
}
aactive {
 color #000000;
 text-decoration none;
}
table {
 font-size ;
}
--
/style
/head
body
table width border cellspacing cellpadding
  tr
  tdnbsp;% strPageInfo%/td
 /tr
/table
div 
  table width border cellspacing cellpadding
    tr  
    tdID/td
    td描述/td
    td日期/td
  /tr
 %
   arrRecordInfo 
    i   to arrRecordInfo 
 %
  tr
    tdnbsp;% arrRecordInfo i%/td
    tdnbsp;% arrRecordInfo i%/td
    tdnbsp;% arrRecordInfo i%/td
  /tr
 %
   
   
 %
/table
/div
table width border cellspacing cellpadding
  tr 
  tdnbsp;% strPageInfo%/td
 /tr
/table
table width border cellspacing cellpadding
  tr 
    td alignnbsp;% getTimeOver%/td
  /tr
/table
/body
/html
转自：http://blog.csdn.net/xiaoyuehen/archive/2005/01/17/257202.aspx