1. 论坛系统升级为Xenforo,欢迎大家测试!
    排除公告

小弟又有新问题了,分页,谢谢

本帖由 cigarette2006-08-11 发布。版面名称:新人报道

  1. cigarette

    cigarette New Member

    注册:
    2005-12-12
    帖子:
    9
    赞:
    1
    代码:
    <!--#include file="conn.asp"-->
    <%
    Set Rs=Server.CreateObject("ADODB.Recordset")
    Sql="select id,name,pass,age,mail,url from info order by id desc"
    Rs.open Sql,conn,1,1
    %>
    <%
    rs.pagesize=3
    pagecount=rs.pagecount
    page=int(request("page"))
    if page<=0 then page=1
    if request("page")="" then page=1
    rs.absolutepage=page
    %>
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>ASP读取数据库练习</title>
    </head>
    <body>
    <div align="center">
    
    <% for i=1 to rs.pagesize %>
       <table width="740" height="29" border="0" align="center">
        <tr>
          <td width="72" height="25"><%=rs("id")%></td>
          <td width="131"><a href="read.asp?id=<%=rs("id")%>"><%=rs("name")%></td></a>
          <td width="131"><%=rs("pass")%></td>
          <td width="101"><%=rs("age")%></td>
          <td width="131"><%=rs("mail")%></td>
          <td width="148"><%=rs("url")%></td>
        </tr>
      </table>
        
    	<%
      rs.movenext
        next
       %>
       
    <p align="center">
    <% if page=1 and not page=pagecount then %>
    第一页上一页
    <a href="list.asp?page=<%=page+1%>">下一页</a>
    <a href="list.asp?page=<%=pagecount%>">最后一页</a>
    <% elseif page<>1 and not page=pagecount then%>
    <a href="list.asp?page=1">第一页</a>
    <a href="list.asp?page=<%=page-1%>">上一页</a>
    <a href="list.asp?page=<%=page+1%>">下一页</a>
    <a href="list.asp?page=<%=pagecount%>">最后一页</a>
    <% elseif page=pagecount then%>
    <a href="list.asp?page=1">第一页</a>
    <a href="list.asp?page=<%=page-1%>">上一页</a>
    下一页 最后一页
    <% end if %>
      <p><a href="addnew.asp">发布信息</a> </p>
    <p><a href="del.asp">删除信息</a></p>
    <p><a href="xiugai.asp">修改信息</a></p>
    <p>分页技术</p>
    </div>
    </body>
    </html>
    <%
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
    %>
    
    上面是分页的一个页面。。。
    rs.pagesize=3 这里定义了显示三条,数据库里有3条或者3的整数倍的时候 分页正常
    但是不是的话 例如5条记录 点下一条的时候就提示错误。。错误内容如下
    错误类型:
    ADODB.Field (0x80020009)
    BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。
    /list.asp
    麻烦给小弟看下怎么解决?小弟刚开始学习