复制代码代码如下 : <%@language = vbscript%>
<%옵션 출현%>
<%
rem 中通过 asp p getrows 实现数据库记录分页的一段代码
Dimistart, ioffset
istart = 요청 ( "시작")
ioffset = request ( "오프셋")
ifnotisnumeric (istart) orlen (istart) = 0then
istart = 0
또 다른
istart = cint (istart)
endif
ifnotisnumeric (ioffset) orlen (ioffset) = 0then
ioffset = 30
또 다른
ioffset = cint (ioffset)
endif
응답. "보기"& ioffset & "RecordsStartingeateCord"& istart & "<br>"
Dimobjconn, objrs
setobjconn = server.createObject ( "adodb.connection")
'objconn.open "dsn = mp3"
Dimconnstr
DIMDB
db = "csnjimageman.mdb"
connstr = "제공자 = microsoft.jet.oledb.4.0; dataSource ="& server.mappath ( ""& db & "")
objconn.openconnstr
setObjrs = server.createObject ( "adodb.recordset")
objrs.open "select*fromimageinfo", objconn
dimaresults
aresults = objrs.getrows
objrs.close
setobjrs = 아무것도 없습니다
objconn.close
setobjconn = 아무것도
Dimirows, Icols, Irowloop, Icolloop, Istop
irows = ubound (Aresults, 2)
icols = ubound (Aresults, 1)
ifirows> (ioffset+istart)
istop = ioffset+istart-1
또 다른
istop = irows
endif
포리로 루프 = istarttoistop
foricolloop = 0toicols
response.writearesults (icolloop, irowloop) & "" "
다음
응답. "<br>"
다음