Uma classe de página asp
Testado em 50.000 registros, é muito mais rápido que o de ADO
<%
'*************************************************
'Uso específico
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 ("Selecione*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_pageababsolute, mypage_pagetotal, mypage_recordtotal
privatemypage_url
PublicPropertyLetConn (STRConn)
setmypage_conn = strconn
EndProperty
publicPropertyLetPagesize (intpagesize)
Mypage_pagesize = cint (intpagesize)
EndProperty
PublicFunctionPageExecute (STRSQL)
Mypage_pageababsolute = 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