<%@Idioma = vBscript%>
<%OpcionExplicit%>
<%
REM 在 ASP 中通过 GetROWS 实现数据库记录分页的一段代码
Dimistart, ioffset
istart = request ("inicio")
ioffset = request ("offset")
ifnotisnumérico (istart) orlen (istart) = 0then
istart = 0
demás
istart = cint (istart)
endif
ifnotisnumérico (ioffset) orlen (ioffset) = 0then
ioffset = 30
demás
ioffset = cint (ioffset)
endif
Response.write "Visioning" e Ioffset & "RecordsStartingAtRecord" & istart & "<br>"
Dimobjconn, objrs
Setobjconn = server.createObject ("ADODB.Connection")
'objconn.open "dsn = mp3"
dimconnstr
dimdb
db = "csnjimageman.mdb"
Connstr = "Provider = Microsoft.Jet.OLEDB.4.0; DataSource =" & Server.mappath ("" & db & "")
objconn.openconnstr
Setobjrs = server.createObject ("ADODB.Recordset")
objrs.open "Seleccionar*deMageInfo", Objconn
Dimaresults
aresults = objrs.getrows
objrs.clar
Setobjrs = nada
objconn.close
Setobjconn = nada
Dimirows, Icols, Irowloop, iColloop, istop
IROWS = UBOUND (ARESULTS, 2)
icols = Ubound (aresults, 1)
Ifirows> (ioffset+istart) entonces
istop = ioffset+istart-1
Demás
istop = irows
Endif
Forirowloop = istarttoistop
Foricolloop = 0toicols
Response.WriteArSults (ICOLLOOP, IROWLOOP) y ""
Próximo
Response.Write "<br>"
Próximo
Response.Write "<P>"
ifistart> 0
'Showprevlink
Response.write "<ahref =" "getrows.asp? Start =" & istart-ioffset & _
"& Offset =" & ioffset & "" "> anterior" & ioffset & "</a>"
endif
ifistop <irowsthen
'ShowsExtlink
Response.write "<ahref =" "getrows.asp? Start =" & istart+ioffset & _
"& Offset =" & ioffset & ""> Next "& ioffset &" </a> "
endif
%>