本文匆匆已经全面测试，支持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
12下一页阅读全文
注意，匆匆谢绝基础问题回答，已经本代码已经很简单，如果还不懂可以参阅本站其他栏目。
<!--#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
12下一页阅读全文
标签：
简单的ASP分页代码（测试正确）
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！
如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
桃源资源网 Design By www.nqtax.com
暂无“简单的ASP分页代码（测试正确）第1/2页”评论...