急！！！！！！分页！为什么只能显示一页？在线等问题解决马上结分

查出来有多页可是为什么不能浏览到下一页呢？  
  <!--#include   file="dbcn1.asp"-->  
  <%  
  on   error   resume   next  
  dim   rs1  
  dim   conSize1  
  conSize1   =   12  
  set   rs1   =   server.CreateObject("Adodb.RecordSet")  
  rs1.PageSize   =   conSize1  
  rs1.open   "select   *   from   product   where   proclassid='"&request("id")&"'   order   by   id   desc   ",conn,1,1      
  if   len(request("page"))   =   0   then  
  iPage   =   1  
  else    
  iPage   =   request("page")  
  end   if  
  if   not   rs1.eof   then    
  rs1.AbsolutePage   =   iPage  
  end   if  
  %>    
  <%  
    for   j   =   1   to   3    
    if   not   rs1.eof   then    
  %>  
  <table   border="1"   bordercolor="#66CCFF"   cellspacing="0"   cellpadding="0"   align="center">  
      <%  
        response.write   "<tr>"  
        for   i=1   to   4  
                if   not   rs1.eof   then  
         
  %>  
   
       
          <td>    
              <table   border="1"   cellspacing="0"   bordercolor="#66CCFF">  
                  <tr>  
                      <td   height="113"   align="center"   valign="top">   <p><img   src="<%=rs("pic")%>"   width="140"   border="0"></p>  
      </td></tr>  
    <tr>  
                      <td   align="center">    
                          <p><a   href="#"   onclick="javascript:window.open('view.asp?id=<%   =rs1("id")   %>','InfoDetail','toolbar=no,scrollbars=no,resizable=no,top=0,left=0,width=600   height=400');"><%=RstPrj("productname")%></a></p>  
            </td></tr>  
  </table>  
       
          </td>  
   
  <%  
                      rs1.movenext  
                else  
                      response.write   "<td>&nbsp;</td>"  
                end   if  
        next  
        response.write   "</tr>"  
  %>  
  </table>  
  <%  
  end   if  
    next    
    %>  
  <table   border="0"   width="730"   height="18"   align="center">  
  <tr>  
       
          <td   align="left"   width="27%"><font   size="2">共<%=rs1.PageCount%>页,当前第<%=ipage%>页   &nbsp;&nbsp;</font></td>  
   
          <td   align="right"   width="73%">   <font   size="2">  
              <%  
  if   rs1.PageCount   >   0   then  
  %>  
              <%  
      if   CInt(iPage)   =   1   then    
      %>  
              第一页‖上一页‖    
              <%  
      else  
      %>  
              <a   href="mytest2.asp?Page=1">第一页‖</a>   <a   href="mytest2?<%=iPage   -   1   %>">上一页‖</a>    
              <%  
      end   if  
      %>  
              <%      
      if   CInt(iPage)   =   CInt(rs1.PageCount)   then  
      %>  
              下一页‖最后一页    
              <%  
      else  
      %>  
              <a   href="mytest2.asp?Page=<%=iPage   +   1   %>">下一页‖</a>    
              <a   href="mytest2.asp?Page=<%=rs1.PageCount%>">最末页</a>    
              <%  
      end   if  
      %>  
              <%  
  else  
  %>  
              第   一页‖上一页‖下一页‖最末页    
              <%  
  end   if  
  %>  
              </font>   </td>  
  </tr>  
  </table>  
   
  <%  
   
  rs1.close  
  set   rs1   =   nothing  
  %>  
   
   
  问题点数：100、回复次数：22Top

1 楼servernumber（新用户注册）回复于 2004-12-03 10:10:50 得分 0

100分都没有人要吗？Top

2 楼cuixiping（无心●愚公）回复于 2004-12-03 10:16:27 得分 10

 
  rs1.open   "select   *   from   product   where   proclassid='"&request("id")&"'   order   by   id   desc   ",conn,1,1      
   
  这句后面的   ,conn,1,1   改为   ,conn,3,1   即可。Top

3 楼whb147（苦乐随缘）回复于 2004-12-03 10:16:43 得分 0

有什么错误，把你的问题描述一下呀  
  难道还要我们给你构建数据库来测试？？Top

4 楼zhhl（张海龙）回复于 2004-12-03 10:17:02 得分 10

if   len(request("page"))   =   0   then  
  改为  
   
  if   request("page")=""   thenTop

5 楼butcher2002（我又出来捣乱了）回复于 2004-12-03 10:18:03 得分 10

也有可能在传递page值时出错  
   
  接收有问题Top

6 楼whb147（苦乐随缘）回复于 2004-12-03 10:18:30 得分 0

应该是  
  rs.open   sql   ,conn,1,3  
  吧？Top

7 楼cuixiping（无心●愚公）回复于 2004-12-03 10:19:03 得分 0

if   request("page")   =   ""   then  
  iPage   =   1  
  else    
  iPage   =   Int(request("page"))  
  end   if  
  Top

8 楼QQyard（网络渔夫）回复于 2004-12-03 10:21:06 得分 0

读一下获取的page值看看啊Top

9 楼QQyard（网络渔夫）回复于 2004-12-03 10:22:12 得分 10

看看参数是不是丢失，再看代码吧Top

10 楼whb147（苦乐随缘）回复于 2004-12-03 10:25:12 得分 10

错了，还是  
  3，1  
   
  adOpenFowardOnly。使用前向游标，你只能在记录集中向前移动。  
   
   
  adOpenKeyset。使用Keyset游标，你可以在记录集中向前或向后移动。如果另一个用户删除或改变了一条记录，记录集中将反映这个变化。但是，如果另一个用户添加了一条新记录，新记录不会出现在记录集中。  
   
   
  adOpenDynamic。使用动态游标，你可以在记录集中向前或向后移动。其他用户造成的记录的任何变化都将在记录集中有所反映。  
   
   
  adOpenStatic。使用静态游标，你可以在记录集中向前或向后移动。但是，静态游标不会对其他用户造成的记录变化有所反映。Top

11 楼lienzhu（李强）回复于 2004-12-03 10:25:49 得分 0

rs1.AbsolutePage   =   iPage  
  改为  
  rs1.AbsolutePage   =   cint(iPage)  
  就可以了  
  Top

12 楼whb147（苦乐随缘）回复于 2004-12-03 10:28:21 得分 10

估计你的  
  rs1.AbsolutePage   =   iPage      
  中的iPage  
  永远等于1  
  呵呵，应该是上面  
  if   len(request("page"))   =   0   then  
  iPage   =   1  
  else    
  iPage   =   request("page")  
  end   if  
  有错误，  
  改为  
  if   request("page")   =   ""   then  
  iPage   =   1  
  else    
  iPage   =   request("page")  
  end   if  
  看看  
  Top

13 楼servernumber（新用户注册）回复于 2004-12-03 11:24:29 得分 0

点第二页后地址栏显示为/products/mytest2.asp?Page=2应该是传过去的吧！  
   
  关于表！说明一下：有两个表！一个表(productclass)是存放产品的大类信息，一个表（product）是存放产品的详细信息主要字段为产品的（id,proclassid,pic,productname）！request("id")是由另一页传过来的表(productclass)的ID  
  Top

14 楼servernumber（新用户注册）回复于 2004-12-03 12:24:45 得分 0

问题不在分页！而是上一页传过来的request("id")值在点下一页后，没有传到下一页！这个怎么解决呢？Top

15 楼yqh1314（‰兆雪伊人倍思逢☆）回复于 2004-12-03 12:35:45 得分 0

看都解决问题了那我只好顶了Top

16 楼servernumber（新用户注册）回复于 2004-12-03 12:52:23 得分 0

没有解决！值传过去了可是第页仍然无法显示！…………………………………………………………………………………………Top

17 楼lienzhu（李强）回复于 2004-12-03 12:57:58 得分 10

rs1.AbsolutePage   =   iPage  
  改为  
  rs1.AbsolutePage   =   cint(iPage)  
  '如果iPage是字符性，有的数据库可能不读第二页  
   
  request("page")  
  改为  
  request("Page")  
   
  这里参数有大小写区分  
  Top

18 楼servernumber（新用户注册）回复于 2004-12-03 13:13:38 得分 0

分页应该没有问题！因为我用一个表就可以正常的分页！但是我关联了一个表就不行了！可能是关联字段传值的问题！  
   
  这是我修改后的页面！大家帮忙看一下！  
  <!--#include   file="dbcn1.asp"-->  
  <%  
  on   error   resume   next  
  dim   num  
  dim   rs1  
  dim   conSize1  
  num=request("id")  
  conSize1   =   12  
  set   rs1   =   server.CreateObject("Adodb.RecordSet")  
  rs1.PageSize   =   conSize1  
  rs1.open   "select   *   from   product   where   proclassid='"&num&"'   order   by   id   desc   ",conn,1,1  
  'rs1.open   "select   *   from   product",conn,3,1      
  'if   len(request("page"))   =   0   then  
  if   request("page")=""   then  
   
  iPage   =   1  
  else    
  'iPage   =   request("page")  
  iPage   =   Int(request("page"))  
  end   if  
  if   not   rs1.eof   then    
  rs1.AbsolutePage   =   iPage  
  'rs1.AbsolutePage   =   cint(iPage)  
  end   if  
  %>    
  <%  
    for   j   =   1   to   3    
    if   not   rs1.eof   then    
  %>  
  <table   border="0"   bordercolor="#66CCFF"   cellspacing="0"   cellpadding="0"   align="center">  
      <%  
        response.write   "<tr>"  
        for   i=1   to   4  
                if   not   rs1.eof   then  
         
  %>  
   
       
          <td>    
              <table   border="0"   cellspacing="0"   bordercolor="#66CCFF">  
                  <tr>  
                      <td   height="113"   align="center"   valign="top">   <p><a   href="#"   onclick="javascript:window.open('view.asp?id=<%   =rs1("id")   %>','InfoDetail','toolbar=no,scrollbars=no,resizable=no,top=0,left=0,width=600   height=400');"><img   src="<%=rs1("pic")%>"   width="140"   border="0"><a></p>  
       
                      </td>  
                  </tr>  
    <tr>  
                      <td   align="center">    
                          <p><a   href="#"   onclick="javascript:window.open('view.asp?id=<%   =rs1("id")%>','InfoDetail','toolbar=no,scrollbars=no,resizable=no,top=0,left=0,width=600   height=400');"><%=rs1("productname")%></a></p>  
            </td></tr>  
  </table>  
       
          </td>  
   
  <%  
                      rs1.movenext  
                else  
                      response.write   "<td>&nbsp;</td>"  
                end   if  
        next  
        response.write   "</tr>"  
  %>  
  </table>  
  <%  
  end   if  
    next    
    %>  
  <table   border="0"   width="730"   height="18"   align="center">  
  <tr>  
       
          <td   align="left"   width="27%"><font   size="2">共<%=rs1.PageCount%>页,当前第<%=ipage%>页   &nbsp;&nbsp;</font></td>  
   
          <td   align="right"   width="73%">   <font   size="2">  
              <%  
  if   rs1.PageCount   >   0   then  
  %>  
              <%  
      if   CInt(iPage)   =   1   then    
      %>  
              第一页‖上一页‖    
              <%  
      else  
      %>  
              <a   href="mytest2.asp?Page=1&num=<%=request("id")%>"   >第一页‖</a><a   href="mytest2.asp?Page=<%=iPage   -   1   %>&num=<%=request("id")%>">上一页‖</a>    
              <%  
      end   if  
      %>  
              <%      
      if   CInt(iPage)   =   CInt(rs1.PageCount)   then  
      %>  
              下一页‖最后一页    
              <%  
      else  
      %>  
              <a   href="mytest2.asp?Page=<%=iPage   +   1   %>&num=<%=request("id")%>">下一页‖</a>    
              <a   href="mytest2.asp?Page=<%=rs1.PageCount%>&num=<%=request("id")%>">最末页</a>    
              <%  
      end   if  
      %>  
              <%  
  else  
  %>  
              第   一页‖上一页‖下一页‖最末页    
              <%  
  end   if  
  %>  
              </font>   </td>  
  </tr>  
  </table>  
   
  <%  
  rs1.close  
  set   rs1   =   nothing  
  %>  
   
   
  Top

19 楼servernumber（新用户注册）回复于 2004-12-03 13:50:37 得分 0

没有解决呀！：（  
   
   
  自己顶一下！Top

20 楼yqh1314（‰兆雪伊人倍思逢☆）回复于 2004-12-03 14:03:00 得分 10

那么你用GET方法   来传值过去！在那边QUERYSTRING   就可以了！Top

21 楼servernumber（新用户注册）回复于 2004-12-03 14:10:05 得分 0

前面的页面不是我做的他没有通过post或get文法来传值，而是直接用"indexq.asp?id=21"传过来的  
  还有没有别的方法呀！Top

22 楼net_mm（人生如梦）回复于 2004-12-05 01:49:04 得分 20

<!--#include   file="dbcn1.asp"-->  
  <%  
  on   error   resume   next  
  dim   num  
  dim   rs1  
  dim   conSize1  
  id=request("id")  
  conSize1   =   12  
  set   rs1   =   server.CreateObject("Adodb.RecordSet")  
  rs1.PageSize   =   conSize1  
  rs1.open   "select   *   from   product   where   proclassid='"&id&"'   order   by   id   desc   ",conn,1,1  
  'rs1.open   "select   *   from   product",conn,3,1      
  'if   len(request("page"))   =   0   then  
  if   request("page")=""   then  
   
  iPage   =   1  
  else    
  'iPage   =   request("page")  
  iPage   =   Int(request("page"))  
  end   if  
  if   not   rs1.eof   then    
  rs1.AbsolutePage   =   iPage  
  'rs1.AbsolutePage   =   cint(iPage)  
  end   if  
  %>    
  <%  
    for   j   =   1   to   3    
    if   not   rs1.eof   then    
  %>  
  <table   border="0"   bordercolor="#66CCFF"   cellspacing="0"   cellpadding="0"   align="center">  
      <%  
        response.write   "<tr>"  
        for   i=1   to   4  
                if   not   rs1.eof   then  
         
  %>  
   
       
          <td>    
              <table   border="0"   cellspacing="0"   bordercolor="#66CCFF">  
                  <tr>  
                      <td   height="113"   align="center"   valign="top">   <p><a   href="#"   onclick="javascript:window.open('view.asp?id=<%   =rs1("id")   %>','InfoDetail','toolbar=no,scrollbars=no,resizable=no,top=0,left=0,width=600   height=400');"><img   src="<%=rs1("pic")%>"   width="140"   border="0"><a></p>  
       
                      </td>  
                  </tr>  
    <tr>  
                      <td   align="center">    
                          <p><a   href="#"   onclick="javascript:window.open('view.asp?id=<%   =rs1("id")%>','InfoDetail','toolbar=no,scrollbars=no,resizable=no,top=0,left=0,width=600   height=400');"><%=rs1("productname")%></a></p>  
            </td></tr>  
  </table>  
       
          </td>  
   
  <%  
                      rs1.movenext  
                else  
                      response.write   "<td>&nbsp;</td>"  
                end   if  
        next  
        response.write   "</tr>"  
  %>  
  </table>  
  <%  
  end   if  
    next    
    %>  
  <table   border="0"   width="730"   height="18"   align="center">  
  <tr>  
       
          <td   align="left"   width="27%"><font   size="2">共<%=rs1.PageCount%>页,当前第<%=ipage%>页   &nbsp;&nbsp;</font></td>  
   
          <td   align="right"   width="73%">   <font   size="2">  
              <%  
  if   rs1.PageCount   >   0   then  
  %>  
              <%  
      if   CInt(iPage)   =   1   then    
      %>  
              第一页‖上一页‖    
              <%  
      else  
      %>  
              <a   href="mytest2.asp?Page=1&id=<%=request("id")%>"   >第一页‖</a><a   href="mytest2.asp?Page=<%=iPage   -   1   %>&id=<%=request("id")%>">上一页‖</a>    
              <%  
      end   if  
      %>  
              <%      
      if   CInt(iPage)   =   CInt(rs1.PageCount)   then  
      %>  
              下一页‖最后一页    
              <%  
      else  
      %>  
              <a   href="mytest2.asp?Page=<%=iPage   +   1   %>&id=<%=request("id")%>">下一页‖</a>    
              <a   href="mytest2.asp?Page=<%=rs1.PageCount%>&id=<%=request("id")%>">最末页</a>    
              <%  
      end   if  
      %>  
              <%  
  else  
  %>  
              第   一页‖上一页‖下一页‖最末页    
              <%  
  end   if  
  %>  
              </font>   </td>  
  </tr>  
  </table>  
   
  <%  
  rs1.close  
  set   rs1   =   nothing  
  %>Top

相关问题

• 解决
• 移动
• 用户
• ipage
• 分页
• 记录
• 游标
• thenipage
• 表
• absolutepage

• 帖主：servernumber
• cuixiping
• zhhl
• butcher2002
• QQyard
• whb147
• whb147
• lienzhu
• yqh1314
• net_mm

• Web开发类图书