Une classe de page ASP
Testé sur 50 000 enregistrements, c'est beaucoup plus rapide que celui de ADO
<%
'****************************************************************************************
'Utilisation spécifique
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.OpenConstr
setrs = mp.execute ("select * fromTable1", Conn, 29)
whilenotrs.eof
Response.Writers ("AAAA") & "<br>"
Rs.MovEnext
se promener
mp.pagedispaly ()
'****************************************************************************************
Classe de classe
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
PublicFonctionPageExecute (STRSQL)
MyPage_pageAbsolute = myPage_pageAbSoluteRequest ()
MyPage_TotalStrsql = formatmypage_totalstrsql (strSQL)
setmypage_totalrs = mypage_conn.execute (mypage_totalstrstrsql)
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
whilelenotmypage_rs.eofandi <(mypage_pageAbsolute-1) * mypage_pagesize
i = i + 1
Mypage_rs.movènext