Kelas Halaman ASP
Diuji pada 50.000 catatan, jauh lebih cepat daripada yang ada di ADO
<%
'****************************************************************************
'Penggunaan khusus
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 ("pilih*fromtable1", conn, 29)
whilenotrs.eof
response.writers ("aaaa") & "<br>"
rs.movenext
pergi ke
mp.pagedispaly ()
'****************************************************************************
Classmypage
PrivateMypage_conn, mypage_strsql, mypage_totaltrsql, 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_pageAbsolutequest ()
Mypage_totalstrsql = formatMypage_totalstrsql (strsql)
setmypage_totalrs = mypage_conn.execute (mypage_totaltrsql)
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