Eine Klasse von ASP -Seite
Auf 50.000 Rekorde getestet, ist es viel schneller als das in ADO
<%
'************************************************
'Spezifische Verwendung
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.pageSispaly ()
'************************************************
Klassenmypage
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
Endproperschaft
PublicPropertyletPageSize (intpageSize)
MyPage_pageSize = cint (intpageSize)
Endproperschaft
publicFunctionPageExecute (STRSQL)
Mypage_pageabSolute = myPage_pageabSoluterequest ()
MyPage_totalStrsql = formatmypage_totalStrsql (STRSQL)
setMypage_totalrs = mypage_conn.execute (myPage_totalStrsql)
Mypage_recordtotal = mypage_totalrs ("Gesamt")
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