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

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



下一篇

bjtime.cn