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

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

最后

以上就是羞涩人生为你收集整理的简单的ASP分页代码（测试正确）第1/2页的全部内容，希望文章能够帮你解决简单的ASP分页代码（测试正确）第1/2页所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。