简单的ASP分页代码(测试正确)第1/2页
简单的ASP分页代码(测试正确)第1/2页
发布时间:2016-12-29 来源:查字典编辑
摘要:本文匆匆已经全面测试,支持ASP+ACCESS以及ASP+SQL,请修改相关部分就可以了。注意,匆匆谢绝基础问题回答,已经本代码已经很简单,...

本文匆匆已经全面测试,支持ASP+ACCESS以及ASP+SQL,请修改相关部分就可以了。

注意,匆匆谢绝基础问题回答,已经本代码已经很简单,如果还不懂可以参阅本站其他栏目。

<>

<%'以上为包含数据库衔接文件

'--------------------------------------------查询开始数据库

setrs=server.CreateObject("adodb.recordset")

rs.open"select*frombookswhereid="&id&"orderbyiddesc",conn,1,1

iferr.number<>0then

response.write"数据库中无数据"

endif

'------------------------------------------分页开始

ifrs.recordcount=0then

respose.write"没有数据"

else

rs.PageSize=10'每页记录条数

iCount=rs.RecordCount'记录总数

iPageSize=rs.PageSize

maxpage=rs.PageCount

page=request("page")

ifNotIsNumeric(page)orpage=""then

page=1

else

page=cint(page)

endif

ifpage<1then

page=1

elseifpage>maxpagethen

page=maxpage

endif

rs.AbsolutePage=Page

ifpage=maxpagethen

x=iCount-(maxpage-1)*iPageSize

else

x=iPageSize

endif

Fori=1Tox

当前1/2页12下一页阅读全文

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新ASP教程学习
热门ASP教程学习
编程开发子分类