Класс страницы ASP
Протестировано на 50 000 записей, это намного быстрее, чем в Ado
<%
'***************************************************************
'Конкретное использование
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*Outtable1", conn, 29)
Пока
response.writers ("aaaa") & "<br>"
Rs.movenext
Венд
mp.pagedispaly ()
'***************************************************************
ClassMypage
privatemypage_conn, mypage_strsql, mypage_totalstrsql, mypage_rs, mypage_totalrs
privatemypage_pagesize
privatemypage_pageabesolute, mypage_pagetotal, mypage_recordtotal
privatemypage_url
publicpropertyletconn (strconn)
setmypage_conn = strconn
EndProperty
publicpropertyletletpagesize (intpagesize)
Mypage_pagesize = cint (intpagesize)
EndProperty
publicfunctionPageExecute (strsql)
Mypage_pageabesolute = mypage_pageabebolureteRequest ()
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)
дими
i = 0
В то время как MyPage_pagesize <(mypage_pageabesolute-1)*mypage_pagesize
i = i+1
Mypage_rs.movenext