ASP 페이지 클래스
50,000 개의 레코드에서 테스트 한 것은 Ado의 기록보다 훨씬 빠릅니다.
<%
'********************************************************************************************************************************************************************* 누군가
'특정 사용
dimstrdbpath
Dimconnstr
DIMMP
setmp = newMypage
strdbpath = "fenye/db.mdb"
connstr = "제공자 = 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
응답자 ( "AAAA") & "<br>"
rs.movenext
향하게 하다
mp.pagedispaly ()
'********************************************************************************************************************************************************************* 누군가
급류
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 ( "Total")
mypage_pagetotal = cint (mypage_recordtotal/mypage_pagesize)
mypage_strsql = formatmypage_strsql (strsql)
setmypage_rs = mypage_conn.execute (mypage_strsql)
디미
i = 0
whilenotmypage_rs.eofandi <(mypage_pageabsolute-1)*mypage_pagesize
i = i+1
mypage_rs.movenext