فئة من صفحة ASP
تم اختباره على 50000 سجل ، إنه أسرع بكثير من السجل في 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.Openconnstr
setrs = mp.execute ("SELECT*fromtable1" ، conn ، 29)
whilenotrs.eof
Response.writers ("AAAA") و "<br>"
Rs.Movenext
ويند
mp.pagedispaly ()
'********************************************************************************
classMyPage
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
PublicFunctionPageExecute (StrSQL)
myPage_PageAbsolute = myPage_PageAbsoluteRequest ()
mypage_totalstrsql = formatmypage_totalstrsql (strsql)
setMypage_totalrs = mypage_conn.execute (mypage_totalstrsql)
mypage_recordtotal = mypage_totalrs ("المجموع")
mypage_pageTotal = cint (mypage_recordtotal/mypage_pagesize)
mypage_strsql = formatmypage_strsql (strsql)
setmypage_rs = mypage_conn.execute (mypage_strsql)
ديمي
أنا = 0
whiLenotMypage_Rs.eofandi <(myPage_PageAbsolute-1)*myPage_pagesize
i = i+1
mypage_rs.movenext