简单的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

当前1/2页 12下一页阅读全文