ASPページのクラス
50,000のレコードでテストされていますが、ADOのレコードよりもはるかに高速です
<％
'************************************************************************************
'特定の使用法
dimstrdbpath
DimconnStr
dimmp
setmp = newMypage
strdbpath = "fenye/db.mdb"
connstr = "provider = microsoft.jet.oledb.4.0; dataSource ="
connstr = connstr＆server.mappath（strdbpath）
setConn = server.createObject（ "adodb.connection"）
conn.openconnstr
setrs = mp.execute（ "select*fromtable1"、conn、29）
wherenotrs.eof
Response.Writers（ "aaaa"）＆ "<br>"
rs.movenext
ウェンド
mp.padeispaly（）
'************************************************************************************
ClassMypage
privatemypage_conn、mypage_strsql、mypage_totalstrsql、mypage_rs、mypage_totalrs
privatemypage_pagesize
privatemypage_pageabsolute、mypage_pagetotal、mypage_recordtotal
privatemypage_url
publicPropertyletconn（strconn）
setMypage_conn = strconn
Endproperty
publicPropertyletPagesize（intpagesize）
mypage_pagesize = cint（intpagesize）
Endproperty
publicFunctionPageExecute（strsql）
mypage_pageabsolute = mypage_pageabsoluterequest（）
mypage_totalstrsql = formatmypage_totalstrsql（strsql）
setmypage_totalrs = mypage_conn.execute（mypage_totalstrsql）
mypage_recordtotal = mypage_totalrs（ "合計"）
mypage_pagetotal = cint（mypage_recordtotal/mypage_pagesize）
mypage_strsql = formatmypage_strsql（strsql）
setmypage_rs = mypage_conn.execute（mypage_strsql）
ディミ
i = 0
whileenotmypage_rs.eofandi <（mypage_pageabsolute-1）*mypage_pagesize
i = i+1
mypage_rs.movenext