查看完整版本: 在asp中通过getrows实现数据库记录分页的一段代码

在asp中通过getrows实现数据库记录分页的一段代码

%@ Language = VBSCRIPT %
!oIb$N4z
` % Option Explicit %&F,ez$V9V
%L P!{*{L$Y/c
rem 在asp中通过getrows实现数据库记录分页的一段代码\9l5F.tZ`0j0t,^
Dim iStart, iOffset
S4d%zR8F u'A:] qx iStart = Request("Start")wnqn5G4rw*H
iOffset = Request("Offset") 8BMu#}5]YL
x8_CB*Y,lc5SW
  
}FK8Xr)`#@)|)x n/I'R!Cs5M `mI:Z
if Not IsNumeric(iStart) or Len(iStart) = 0 then-h Ctc/l/Y&AfS
iStart = 0
(k&BXmH else3u[;? E;FUr$z
iStart = CInt(iStart)
iS~T t)T"FF end if  
(R#t7x.iVg(B $^s"p8KU"A9to4s t
if Not IsNumeric(iOffset) or Len(iOffset) = 0 then;B7UIV\Ow
iOffset = 30
!Riu8a^3u4DO
Q else,E,~nt7B'F&?g
iOffset = Cint(iOffset)!Y _:R \!e+^y:to
end if  'z*w3a'U qI
{j&ui(S
A
Response.Write "Viewing "  iOffset  " records starting at record "  iStart  "BR"  LY]M"Y(o
lS-n$v/^,k2h^%x
Dim objConn, objRS3~gU$jNG.e(^d:UTx;C
Set objConn = Server.CreateObject("ADODB.Connection")
p4G J0H7K)na Pj 'objConn.Open "DSN=MP3"-plH
KqG
dim connstr^6^ {(m)u+N;`N
dim db"AX,N ^D1P
db="csnjimageman.mdb"
s`(W4]!O/hn;u"h connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  Server.MapPath(""db"")
W9kTB!x$eMN[ objconn.Open connstr  nf4P/N9FY2H

C Phr)M9J'V?\ Set objRS = Server.CreateObject("ADODB.Recordset")}4`+gO,@:TS
objRS.Open "SELECT * FROM imageinfo", objConn  Nb&p { ZTHj

$Y4}dW*l#`+K[:er Dim aResults
.@P z+~'m3` a"r(Y aResults = objRS.GetRows  
^'W:Ye _r6~wy
1I*\ r2_l.~P objRS.Close{j5J$Oj"V%t
Set objRS = Nothing  
U:ND2E`mI8] 6O l@'j(@U&o7}
objConn.Closevy I,UUC'F2P
Set objConn = Nothing  KP}SR0F
m9M&Fi|,wC

3wap|UX Dim iRows, iCols, iRowLoop, iColLoop, iStop
i
n6e-q| iRows = UBound(aResults, 2)&@Wf p.]+k_1D1f4@W
iCols = UBound(aResults, 1)  
D9o
A3w5A
+~!Kz'YX If iRows  (iOffset   iStart) Then_Q2hw0v!\k/H
iStop = iOffset   iStart - 16Ad&OEM~
Else
+T7J s%{ZQM!r iStop = iRows
_$_ra%V6w End If  %a(||/~)f[,m

j${am*c For iRowLoop = iStart to iStop
9X'ID N9i!WN/R For iColLoop = 0 to iCols
@9Td@ m_ Response.Write aResults(iColLoop, iRowLoop)  " "h;z8Xj&mE
Nextk/z+K b^
Response.Write "BR"
d"d%YG#dY Next    nq j~ py
m
H1y-^ qz
mZ&a
Response.Write "P"'fI cj2YZ,mfo
if iStart  0 then6B'zFr)CQ,Q/~6j'sr#A
'Show Prev link+^2Myj]
Response.Write "A HREF=""GetRows.asp?Start="  iStart-iOffset  _
d*YU0F Y "Offset="  iOffset  """Previous "  iOffset  "/A"x3fL_\C*EK1Q
end if  
yK{It_
Du3c2y p/BCI if iStop  iRows then

bqT9XL 'Show Next link
k xQ~o6lE9] Response.Write " A HREF=""GetRows.asp?Start="  iStart iOffset  _*@SLn2Yw3g@M/\
"Offset="  iOffset  """Next "  iOffset  "/A"
!ie(w'Ke end if
s+K+x6v[8D %