28,408
社区成员




<% set rsl=server.CreateObject("adodb.recordset")
sqll="select * from msg order by rowid DESC,rowid limit 0,10"
rsl.open sqll,connLite,1,1
if rsl.eof then
response.Write“""
response.End()
else
rsl.PageSize =10
iCount=rsl.RecordCount
iPageSize=rsl.PageSize
maxpage=rsl.PageCount
page=request.form("page")
if Not IsNumeric(page) or page="" then
page=1
nextpages=0
else
page=cint(page)
nextpages=cint(page)
end if
if page<1 then
page=1
nextpages=0
elseif page>maxpage then
page=maxpage
nextpages=0
end if
nextpages=page+1
if nextpages>maxpage then
nextpages=0
else
nextpage=page+1
end if
nextpage=page+1
if nextpage>maxpage then
nextpage=0
else
nextpage=page+1
end if
rsl.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
end if
For i=1 To x
response.Write“""
rsl.movenext
next
rsl.close
set rsl=nothing
%>