| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 907 人关注过本帖
标题:求助:一段asp翻页代码错误,实在找不出错在哪里了
只看楼主 加入收藏
zyz153
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2011-10-17
结帖率:0
收藏
已结贴  问题点数:0 回复次数:6 
求助:一段asp翻页代码错误,实在找不出错在哪里了

在网上找了很久类似这样的代码,也找不到原因,请高手帮忙耐心解决。感激不尽。

这种代码和我原来碰到过的不一样,情况是不显示翻页,数据库调用倒是没错。


<%
           set rs=server.createobject("adodb.recordset")
          sql="select * from news where mytype="&tp&"  order  by id desc"
          rs.open sql,conn,1
         
          rs.pagesize=25'每页显示多少条
          pagecount=rs.pagecount '总页数
         
             if rs.bof and rs.eof then
              response.write ""
              else
                     
              page=clng(request.querystring("page"))
              if page<1 then page=1
              if page>rs.pagecount then page=rs.pagecount
              rs.absolutepage=page  '跳到多少页
  
              for i=1 to rs.pagesize
          %>
                          <tr>
                            <td width="84%" height="32" align="left" bgcolor="<% If i mod 2=0  Then %>#F4F9FC<% Else %>#ffffff<% End If %>">&nbsp;<font color="#2D5D7D">·</font>&nbsp;<a href="show.asp?id=<%=rs("id")%>" target="_blank"><span style="font-size:14px;"><%=left(rs("bt"),34)%></span></a></td>
                            <td width="16%" align="center" bgcolor="<% If i mod 2=0  Then %>#F4F9FC<% Else %>#ffffff<% End If %>"><a href="show.asp?id=<%=rs("id")%>" target="_blank"><span style="font-family:Arial, Helvetica, sans-serif; font-size:10px; color:#999999;">(<%= rs("riqi") %>)</span></a></td>
                          </tr>
                          <%
         rs.movenext
         if rs.eof then exit for
         next
         end if
         %>
                        </table>
                          <table width="95%" border="0" cellpadding="0" cellspacing="0">
                            <tr>
                              <td height="22" align="center">&nbsp;&nbsp;&nbsp;&nbsp;
                                                        
                                <span style="color:#666666">[共<%=rs.pagecount%>页&nbsp;当前第<%=page%>页&nbsp;<%
    if page<=1 then
       Response.Write("首页&nbsp;&nbsp;")
       Response.Write ("上一页")
    else
      Response.Write("<a href='?tp="&tp&"&Page=1' class='list'>首页</a>&nbsp;&nbsp;")
      Response.Write("<a href='?tp="&tp&"&Page=" & (Page-1) & "' class='list'>上一页</a>")

    end if
    response.write "&nbsp;&nbsp;"
    if page>=Rs.PageCount then
        Response.Write ("")
        Response.Write("&nbsp;&nbsp;")
    else
          Response.Write("<a href='?tp="&tp&"&Page=" & (Page+1) & "' class='list'></a>")
          Response.Write("&nbsp;&nbsp;<a href='?tp="&tp&"&Page=" & rs.pagecount & "' class='list'></a>")
    end if

%>]
搜索更多相关主题的帖子: sql 数据库 where order 网上 
2011-10-17 15:49
zyz153
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2011-10-17
收藏
得分:0 
请高手告知一下啊,真的是急死我了,这是从网上下载下来的程序,谁知道还短斤少两的。
2011-10-17 15:50
wangjy500
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:13
帖 子:457
专家分:2569
注 册:2010-7-11
收藏
得分:7 
有什么错误提示,也不说

QQ:63572063
2011-10-17 21:02
若渴
Rank: 2
等 级:论坛游民
帖 子:22
专家分:27
注 册:2011-10-8
收藏
得分:7 
回复 楼主 zyz153
<%
set rs=server.createobject("adodb.recordset")
          sql="select * from news where mytype="&tp&"  order  by id desc"
          rs.open sql,conn,1
         
          rs.pagesize=25'每页显示多少条
         
        
         If Request("page")<>"" Then
             ipage=Cint(Request("page"))
             If ipage < 1 Then ipage=1  '页码小于1,则显示第一页
              '当大于总页码的时候,显示最后一页
             If ipage>rs.PageCount Then ipage=rs.PageCount
         Else
                    ipage=1
         End If
        
         rs.AbsolutePage=ipage
%>
               For i=0 to rs.pagesize-1
                  If  rs.EOF OR rs.BOF Then Exit For
 
                          <tr>
                            <td width="84%" height="32" align="left" bgcolor="<% If i mod 2=0  Then %>#F4F9FC<% Else %>#ffffff<% End If %>">&nbsp;<font color="#2D5D7D">·</font>&nbsp;<a href="show.asp?id=<%=rs("id")%>" target="_blank"><span style="font-size:14px;"><%=left(rs("bt"),34)%></span></a></td>
                            <td width="16%" align="center" bgcolor="<% If i mod 2=0  Then %>#F4F9FC<% Else %>#ffffff<% End If %>"><a href="show.asp?id=<%=rs("id")%>" target="_blank"><span style="font-family:Arial, Helvetica, sans-serif; font-size:10px; color:#999999;">(<%= rs("riqi") %>)</span></a></td>
                          </tr>
                          <%
         rs.movenext
          next
      
         %>
                        </table>
                          <table width="95%" border="0" cellpadding="0" cellspacing="0">
                            <tr>
                              <td height="22" align="center">&nbsp;&nbsp;&nbsp;&nbsp;
                                                        
                                <span style="color:#666666"><% Response.Write("当前第"& ipage & "页,共" & rs.PageCount & "页")%>
                                <%
    if page<=1 then
       Response.Write("首页&nbsp;&nbsp;")
       Response.Write ("上一页")
    else
      Response.Write("<a href='?tp="&tp&"&Page=1' class='list'>首页</a>&nbsp;&nbsp;")
      Response.Write("<a href='?tp="&tp&"&Page=" & (Page-1) & "' class='list'>上一页</a>")

    end if
    response.write "&nbsp;&nbsp;"
    if page>=Rs.PageCount then
        Response.Write ("")
        Response.Write("&nbsp;&nbsp;")
    else
          Response.Write("<a href='?tp="&tp&"&Page=" & (Page+1) & "' class='list'></a>")
          Response.Write("&nbsp;&nbsp;<a href='?tp="&tp&"&Page=" & rs.pagecount & "' class='list'></a>")
    end if

                                %>

这样写试试
2011-10-17 23:55
zyz153
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2011-10-17
收藏
得分:0 
回复 4楼 若渴
试过了,还是不行,并且出现以下错误了
图片附件: 游客没有浏览图片的权限,请 登录注册


图片附件: 游客没有浏览图片的权限,请 登录注册
2011-10-19 17:20
编程的乐趣
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:1
帖 子:229
专家分:1027
注 册:2011-4-4
收藏
得分:7 
2011-10-19 17:35
若渴
Rank: 2
等 级:论坛游民
帖 子:22
专家分:27
注 册:2011-10-8
收藏
得分:0 
回复 5楼 zyz153
图片附件: 游客没有浏览图片的权限,请 登录注册
你的代码第一次输出表格的时候少了一个<table>标签,还有最后的代码我没见过,那个没有问题吧,那几个Page或者page-1 应该相应改为ipage  ipage-1,
2011-10-19 21:55
快速回复:求助:一段asp翻页代码错误,实在找不出错在哪里了
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015609 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved