简单的ASP分页代码(测试正确)第1/2页
程序员文章站
2022-06-15 15:48:02
本文匆匆已经全面测试,支持asp+access以及asp+sql,请修改相关部分就可以了。 注意,匆匆谢绝基础问题回答,已经本代码已经很简单,如果还不懂可以参阅本站其他栏目...
本文匆匆已经全面测试,支持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
注意,匆匆谢绝基础问题回答,已经本代码已经很简单,如果还不懂可以参阅本站其他栏目。
<!--#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