UC知道asp分页程序出现错误
来源：百度知道 编辑：UC知道 时间：2024/04/30 03:43:42
分页程序如下：
Else
do while not rs.eof
'<!--分页程序-->
dim n,perpage,total,m
total=rs.recordcount
perpage=15
m=total mod perpage
if m=0 then
n=int(total/perpage)
else
n=int(total/perpage)+1
end if
ppage=request("Page")
if ppage<>"" then
ppage=cint(ppage)
else
if ppage<1 or ppage="" then
ppage=1
end if
end if
if ppage*perpage>total and not ((ppage-1)<total) then
ppage=1
end if
if ppage>n then
ppage=1
end if
rs.pagesize=perpage
rs.absolutepage=ppage
' <!--分页结束-->
%>
ppage为当前页，n为总页数 运行是它总是提示ADODB.Recordset '800a0bb9' 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
而且特别费服务器资源。
还有那个rs.absolutepage=ppage这行也经常出错，不知道为什么。
Else
do while not rs.eof
'<!--分页程序-->
dim n,perpage,total,m
total=rs.recordcount
perpage=15
m=total mod perpage
if m=0 then
n=int(total/perpage)
else
n=int(total/perpage)+1
end if
ppage=request("Page")
if ppage<>"" then
ppage=cint(ppage)
else
if ppage<1 or ppage="" then
ppage=1
end if
end if
if ppage*perpage>total and not ((ppage-1)<total) then
ppage=1
end if
if ppage>n then
ppage=1
end if
rs.pagesize=perpage
rs.absolutepage=ppage
' <!--分页结束-->
%>
ppage为当前页，n为总页数 运行是它总是提示ADODB.Recordset '800a0bb9' 参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
而且特别费服务器资源。
还有那个rs.absolutepage=ppage这行也经常出错，不知道为什么。
你把分页写到死循环里面,没死机就不错啦..慢是小事情
把do while not rs.eof 放在你的
' <!--分页结束-->
之后试试
你给出的代码只是显示当前页的记录集,并未给出显示页码部分的代码和循环部分,没法给你准确答案哦.
ppage=request("Page")
if ppage<>"" then ppage=cint(ppage)
ppage这个是字符型的，你把cint(page)赋给它当然参数类型不匹配。