asp留言板分页错误，帮忙看下

来源：百度知道编辑：UC知道时间：2024/09/22 03:38:02

分页错误，不知道哪错了

<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from Feedback where online='1' "
keywords=request("keywords")
if keywords<>"" then sql=sql+ " and Comments like '%"&keywords&"%' "
sql=sql + "order by top desc,Postdate desc"
rs.open sql,conn,1
if not (rs.eof and rs.bof) then '如果有留言时，就显示留言。此行的if与倒数第6行的end if相对应

if pages=0 or pages="" then pages=20000 '每页留言条数
rs.pageSize = pages '每页记录数
allPages = rs.pageCount '总页数
page = Request("page") '从浏览器取得当前页
'if是基本的出错处理

If not isNumeric(page) then page=1

if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) >= allPages then
page = allPages
end if
pages = pages - 1

response.write "<table border=0 width=538 align=center><

分页的时候要带着URL参数走

对照这个看一下

精简版asp分页

<%
'连接数据库
'执行sql 改你要的sql
set rs=server.CreateObject("adodb.recordset")%>
rs.open "select * from news order by id desc ",conn,1,3
下面的代码就复制用可以了
'分页
i=50 '每页显示多少条
rs.pagesize=i '页尺寸
pu=request("pu") '读取页码
if pu="" then pu=1
if cint(pu)<="0" then pu=1
if cint(pu)>rs.pagecount then pu=rs.pagecount
if not rs.eof then rs.absolutepage=cint(pu) '没有记录时不会出错
'显示记录
if not rs.eof then
do while not rs.eof and i=>1
response.write rs("字段")'显示字段
'就这里改你要的，其它复制用就可以
rs.movenext
i=i-1
loop
end if
%>
当前第 <%=pu%> 页；分
<%=rs.pagecount%> 页；
共 <%=rs.recordcount%> 条记录；
每页<%=i%>条记录
<a href="?pu=1">首页</a>
<a href="?pu

帮忙找下asp分页的错误帮我看下asp分页代码,哪里错误 asp 分页代码出错，高手来帮忙看下谢谢高手帮忙,asp分页显示有错误 asp错误，帮忙看下谢谢！ ASP程序错误,帮忙看下帮忙看一下ASP 分页问题 asp留言板出现错误 ASP分页错误问题求助关于ASP留言板分页及倒序