本文匆匆已经全面测试，支持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分页代码（测试正确）第1/2页】相关文章：
★ 用QuickWAP组件结合ASP建设Wap站点第1/2页