简单的ASP分页代码（测试正确）第12页
2018-09-06 13:15
本文匆匆已经全面测试，支持ASP+ACCESS以及ASP+SQL，请修改相关部分就可以了。
注意，匆匆谢绝基础问题回答，已经本代码已经很简单，如果还不懂可以参阅本站其他栏目。
<!--#includefile=conn.asp-->
<%以上为包含数据库衔接文件
--------------------------------------------查询开始数据库
setrs=server.CreateObject(adodb.recordset)
rs.openselect*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
12下一页阅读全文
上一篇：AJAX简单应用实例-弹出层
下一篇：用户注册及跟踪代码（二）