A class of asp page
Tested on 50,000 records, it's much faster than the one in Ado
<%
'************************************************************************************
'Specific usage
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)
whilenotrs.eof
response.writers("aaaa")&"<br>"
rs.MoveNext
wend
mp.pageDispaly()
'************************************************************************************
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("total")
MyPage_PageTotal=Cint(MyPage_RecordTotal/MyPage_PageSize)
MyPage_StrSql=FormatMyPage_StrSql(strSql)
setMyPage_RS=MyPage_Conn.execute(MyPage_StrSql)
dimi
i=0
whilenotMyPage_RS.eofandi<(MyPage_PageAbsolute-1)*MyPage_PageSize
i=i+1
MyPage_RS.MoveNext