简单的ASP分页代码（测试正确）第1/2页

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