asp分页显示

之前用asp的时候写的代码，做个记录。

当前页码：
pageno=cint(request("pageno"))

'数据库定位
rs.PageSize=30 '每页从数据库获取的行数,随意修改
rs.AbsolutePage=pageno

'显示本页内容

dim showcount=0
do while (not rs.eof and showcount<rs.PageSize )
   显示每条内容
   showcount=showcount+1
rs.movenext
loop

'显示页码选择即 “分页 1，2，3...”
if rs.pagecount>1 then
queries="..." '定义url的其他参数
response.write("分页: ")
outpages rs.pagecount,pageno,queries 
end if

（今天看这篇很早前写的文章，显示页码选择的代码太乱了，删除。大家自己写一个也不费劲。）