Una clase de página ASP
Probado en 50,000 registros, es mucho más rápido que el de Ado
<%
'******************************************************************************
'Uso específico
Dimstrdbpath
Dimconnstr
DMMP
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 ("Seleccionar*FromTable1", Conn, 29)
mientras que
Response.Writers ("AAAA") y "<br>"
Rs.Movenext
encaminarse a
MP.PagedIspaly ()
'******************************************************************************
Clase de clase
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
endpropertía
publicPropertyletPageSize (intPageSize)
Mypage_pagesize = cint (intpagesize)
endpropertía
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