คลาสของหน้า 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.openconnstr
setrs = mp.execute ("เลือก*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
ปลายทาง
PublicPropertyletPagesize (intpagesize)
mypage_pagesize = cint (intpagesize)
ปลายทาง
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)
Dimi
i = 0
whilenotmypage_rs.eofandi <(mypage_pageabsolute-1)*mypage_pagesize
i = i+1
mypage_rs.movenext