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

今天我算掉阴沟了,竟然在分页上难住了,GO,来帮我解决吧

本帖由 notnull2006-03-22 发布。版面名称:后端开发

  1. notnull

    notnull New Member

    注册:
    2005-09-27
    帖子:
    11,720
    赞:
    37
    数据库里有6条记录,但通过分页,结果永远只显示同一条记录。代码如下:
    代码:
                       <%set rs=conn.execute("select * from zhaoping order by id desc")%>
                             <%if rs.eof and rs.bof then%>
    Have no the news temporarily
    <%else
     if request("page")="" then 
    session("page")=1
    if session("page")<1 then session("page")=1
    else
    session("page")=request("page")
     end if
    rs.pagesize=1
     'rs.AbsolutePage=session("page")
    %>
    <% do while not rs.eof and i<rs.pagesize %>
    <% if i mod 2 =0 then%>
    <%end if%> 

    这是前面的循环开始

    后面的分页处的:
    代码:
    <td height="20" colspan="2">当前<%=session("page")%>/<%=rs.pagecount%>页&nbsp;<a href="zhaopin.asp?page=1" class="ye">第一页</a>
                            <% if session("page")<>1 then%>
                            <a href="zhaopin.asp?page=<%=(session("page")-1)%>" class="ye">上一页</a>
                            <% end if%>
                            <% if session("page")<>rs.pagecount then %>
                            <a href="zhaopin.asp?page=<%=(session("page")+1)%>" class="ye">下一页</a>
                            <%elseif session("page")=rs.pagecount then%>
                            <% end if%>
                            <a href="zhaopin.asp?page=<%=rs.pagecount%>" class="ye">最后一页</a> 
                            </td>

    555555555
    都没脸发出来
    看在丢老脸的份上,帮忙解决先
     
  2. srsman

    srsman Active Member

    注册:
    2005-11-08
    帖子:
    1,920
    赞:
    6
    在做招聘网??
     
  3. 亚马逊的雨季

    亚马逊的雨季 New Member

    注册:
    2005-09-05
    帖子:
    1,984
    赞:
    12
    'rs.AbsolutePage=session("page")

    你这一行注释了,根本就没有指定当前页码。
     
  4. notnull

    notnull New Member

    注册:
    2005-09-27
    帖子:
    11,720
    赞:
    37
    不注释,就出现错误了
     
  5. 亚马逊的雨季

    亚马逊的雨季 New Member

    注册:
    2005-09-05
    帖子:
    1,984
    赞:
    12
    AbsolutePage 貌似 ADO 的用法,你使用的语法并非 ADO 的。

    set rs=conn.execute("select * from zhaoping order by id desc")

    你改为

    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open "select * from zhaoping order by id desc", conn, 1, 1

    试试看咯。

    :)
     
  6. Tameway

    Tameway New Member

    注册:
    2005-09-06
    帖子:
    1,286
    赞:
    8
    路过。。。
     
  7. notnull

    notnull New Member

    注册:
    2005-09-27
    帖子:
    11,720
    赞:
    37
    今天早上之前已经改成这个了
    很是郁闷
     
  8. notnull

    notnull New Member

    注册:
    2005-09-27
    帖子:
    11,720
    赞:
    37
    已经解决
     
  9. 亚马逊的雨季

    亚马逊的雨季 New Member

    注册:
    2005-09-05
    帖子:
    1,984
    赞:
    12
    怎么解决的?分享一下。
     
  10. notnull

    notnull New Member

    注册:
    2005-09-27
    帖子:
    11,720
    赞:
    37
    改了数据查询语句
    原来掉了游标,注释掉的不注释。:mummy:

    看来~~要认真一点
     
  11. 亚马逊的雨季

    亚马逊的雨季 New Member

    注册:
    2005-09-05
    帖子:
    1,984
    赞:
    12
    对游标的使用一向不了解。

    :(