本文匆匆已经全面测试，支持ASP+ACCESS以及ASP+SQL，请修改相关部分就可以了。
注意，匆匆谢绝基础问题回答，已经本代码已经很简单，如果还不懂可以参阅本站其他栏目。

<!--#includefile="conn.asp"-->
<%'以上为包含数据库衔接文件
'--------------------------------------------查询开始数据库

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
12下一页阅读全文