简单的ASP分页代码（测试正确） |
|
本文标签：简单的ASP分页代码（测试正确） 本文匆匆已经全面测试，支持ASP+ACCESS以及ASP+SQL，请修改相关部分就可以了 。 注意，匆匆谢绝基础问题回答，已经本代码已经很简单，如果还不懂可以参阅本站其他栏目 。 <!--#include file="conn.asp"--> <% 以上为包含数据库衔接文件 --------------------------------------------查询开始数据库 set rs=server.CreateObject("adodb.recordset") rs.open "select * from books where id="&id&" order by id desc",conn,1,1 if err.number<>0 then response.write "数据库中无数据" end if ------------------------------------------分页开始 if rs.recordcount=0 then respose.write "没有数据" else rs.PageSize =10 每页记录条数 iCount=rs.RecordCount 记录总数 iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if For i=1 To x |
