|
| |
<%
'Search &
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,session("sqlconnect"),1,1 ''记录移动、只读
cnt=rs.recordcount
rs.PAGESIZE=22
pagesize=rs.PAGESIZE
PgCounter=rs.PageCount
Page=SafeRequest("Page",1)
if pgcounter<>0 then
If Page="" Then
Pageno=1
Else
Pageno=Cint(Page)
End If
If Pageno<>1 Then
PageUp=Pageno-1
Else
PageUp=1
End If
If Pageno<>PgCounter Then
PageDown=Pageno+1
Else
PageDown=PgCounter
End If
If PgCounter>0 Then
rs.absolutepage=pageno 'pageno指示当前页
End If
else
pageno=0
end if
rowcount=RS.pagesize
do while not rs.eof and rowcount>0
%>
|
|
|
|
|
|
|
<%
rs.movenext
rowcount=rowcount-1
loop
rs.close
set rs=nothing
%>
|
|
