本文匆匆已经全面测试，支持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下一页阅读全文