简单的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/4页
下一个：asp下实现替换远程文件为本地文件并保存远程文件的代码