asp每页显示20个记录,两页,怎么做当前页和总页数?

来源:百度知道 编辑:UC知道 时间:2024/05/26 05:39:33
谢谢

<%
if not rs.eof then
total=rs.recordcount//记录总数 rs.pagesize=20 //显示记录数
maxpage=rs.pagecount //最大页码数
curpage=clng(request("page")) //当前页
if curpage=""or curpage=0 then
curpage=1
end if
if curpage>maxpage then
curpage=maxpage
end if
if not curpage=1 then
rs.move (curpage-1)*rs.pagesize //移动到某条记录
end if
for i=1 to rs.pagesize and not rs.eof
rs("id")
rs("title")
rs("content")
rs("time")
...
rs.movenext
if rs.eof then exit for
next
else
response.Write("暂无信息")
end if
rs.close
%>