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