搜索分页显示下一页不起作用！谢谢

搜索分页显示下一页不起作用！谢谢

1. <%
   
2.           
   
3. 
   
4. if page<>1 then
   
5. response.Write("  <a href="&path&"?page=1>第一页</a>")
   
6. response.Write("  <a href="&path&"?page="&(page-1)&" >上一页</a>")
   
7. end if
   
8. response.Write("  当前 <font color='#FF0000'>"&page&"</font> 页")
   
9. response.Write("  <font color='#FF0000'>"&rs.recordcount&"</font> 条/<font color='#FF0000'>"&rs.pagecount&"</font> 页")
   
10. if page<>rs.pagecount then
    
11.   response.Write("  <a href="&path&"?page="&(page+1)&">下一页</a>")
    
12.   response.Write("  <a href"&path&"?page="&rs.pagecount&">最末页</a>")
    
13. end if
    
14. response.Write("  跳转到<input type='text' size='2' name='page'>页<input type='submit' value='GO'>")
    
15. rs.close
    
16. set rs=nothing
    
17. %></td>
    
18.       </tr>
    
19.   </table>
    
20.   </center>
    

复制代码

搜索分页显示下一页不起作用！谢谢
王勋 发表于 2015-3-9 13:52

   分页查询的语句贴出来看看

1. <%
   
2.   htglss=trim(request.form("htglss"))
   
3.   if htglss="" then
   
4. response.write"<script>alert('对不起没有你需要的内容');history.back();</script>"
   
5. response.end
   
6. end if
   
7. set conn = Server.CreateObject("ADODB.Connection")
   
8. conn.open  "driver={microsoft access driver (*.mdb)};dbq=" & Server.MapPath("s1.mdb")
   
9. exec="select * from 合同后评估1 where 合同名称 like '%"&htglss&"%' or 签署人 like '%"&htglss&"%' or 合同甲方 like '%"&htglss&"%' or 合同其他主体 like '%"&htglss&"%' or 合同乙方 like '%"&htglss&"%' or 签定日期 like '%"&htglss&"%' or 决策部门 like '%"&htglss&"%' or 是否经过审查 like '%"&htglss&"%' or 资信调查方式 like '%"&htglss&"%' or 履约期间甲方 like '%"&htglss&"%' or 履约期间其他 like '%"&htglss&"%' or 履约期间乙方 like '%"&htglss&"%' or 是否存在解除原因 like '%"&htglss&"%' or 是否全面完全履行 like '%"&htglss&"%' or 结算是否正常 like '%"&htglss&"%' or  是否存在补充或变更 like '%"&htglss&"%' or 履行中存在问题的分析 like '%"&htglss&"%' or 是否登记备案 like '%"&htglss&"%' or 备注 like '%"&htglss&"%' or 合同标的 like '%"&htglss&"%' or 价款 like '%"&htglss&"%'"
   
10. set rs=server.createobject("adodb.recordset")
    
11. rs.open exec,conn,1,1
    
12. if rs.eof and rs.bof then
    
13. response.write "<script>alert('无法找到相关内容');history.back();</script>"
    
14. response.end
    
15. end if
    
16. %>
    
17.   <td scope="col">共查询到<% Response.Write(RS.RecordCount) %>条纪录  </tr>
    
18. </table>
    
19. <div align="center">
    
20.   <table width="899" border="4">
    
21.      <tr>
    
22.        <td width="119" class="gb2312" scope="col"><div align="center">合同标的</div></td>
    
23.        <td width="228" scope="col"><div align="center"><span class="gb2312">合同名称</span></div></td>
    
24.        <td width="115" scope="col"><div align="center"><span class="gb2312">签定日期</span></div></td>
    
25.        <td width="127" scope="col"><div align="center"><span class="gb2312">履约时间</span></div></td>
    
26.        <td width="147" scope="col"><div align="center"><span class="gb2312">合同价款</span></div></td>
    
27.        <td width="117" scope="col"><div align="center"><span class="gb2312">签署人</span></div></td>
    
28.      </tr>
    
29.      <tr> <% rs.pagesize=20'此1为每页显示的行数
    
30. page=request.querystring("page")
    
31. page=clng(page)
    
32. if page<1 then page =1
    
33. if page>rs.pagecount then page=rs.pagecount
    
34. rs.absolutepage=page
    
35. show rs,page
    
36. sub show(rs,page)
    
37. for thepage=1 to rs.pagesize %>
    
38.        <td scope="row"><div align="center"><span class="gb2312"><%=rs("合同序号")%></span></div></td>
    
39.        <td><div align="center"><span class="gb2312"><%=rs("合同名称")%></span></div></td>
    
40.        <td><div align="center"><span class="gb2312"><%=rs("签定日期")%></span></div></td>
    
41.        <td><div align="center"><span class="gb2312"><%=rs("履约期间甲方")%></span></div></td>
    
42.        <td><div align="center"><span class="gb2312"><%=rs("价款")%></span></div></td>
    
43.       <td><div align="center"><span class="gb2312"><%=rs("签署人")%></span></div></td>
    
44.      </tr>
    
45.      <tr> <% rs.movenext
    
46. if rs.eof then exit for
    
47. next
    
48. end sub
    
49. %>
    
50.        <td colspan="6" scope="row"><%
    
51.           
    
52. 
    
53. if page<>1 then
    
54. response.Write("  <a href="&path&"?page=1>第一页</a>")
    
55. response.Write("  <a href="&path&"?page="&(page-1)&" >上一页</a>")
    
56. end if
    
57. response.Write("  当前 <font color='#FF0000'>"&page&"</font> 页")
    
58. response.Write("  <font color='#FF0000'>"&rs.recordcount&"</font> 条/<font color='#FF0000'>"&rs.pagecount&"</font> 页")
    
59. if page<>rs.pagecount then
    
60.   response.Write("  <a href="&path&"?page="&(page+1)&">下一页</a>")
    
61.   response.Write("  <a href"&path&"?page="&rs.pagecount&">最末页</a>")
    
62. end if
    
63. response.Write("  跳转到<input type='text' size='2' name='page'>页<input type='submit' value='GO'>")
    
64. rs.close
    
65. set rs=nothing
    
66. %></td>
    
67.       </tr>
    
68.   </table>
    
69.   </center>
    

复制代码

1. <%filepath=request.servervariables("path_info")%>
   
2. <%page=1 '设置变量初始值PAGE=1
   
3. page=request.querystring("page") 'page值为接受值
   
4. rs.PageSize = 20 '每页显示记录数
   
5. if Not IsEmpty(trim(Request("Page"))) then '如果PAGE已经初始化...
   
6. Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
   
7. if Page > rs.PageCount then '如果接收的页数大于总页数
   
8. rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
   
9. elseif Page <= 0 then '如果page小于等于0
   
10. Page = 1 '设置PAGE等于第一页
    
11. else
    
12. rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
    
13. end if
    
14. End if
    
15. Page = rs.AbsolutePage%>
    
16. <form action="<%=filepath%>" method="get">
    
17. 
    
18. 
    
19. 第一种分页
    
20. 
    
21. 
    
22. <%if rs.pagecount<>1 and rs.pagecount<>0 then%>
    
23. <%if page>1 then%>
    
24. <%if page<rs.pagecount then %>
    
25. [<a Href="<%=filepath%>?Page=<% = 1%>">首页</a>]
    
26. [<a Href="<%=filepath%>?Page=<% = page -1 %>">上一页</a>]
    
27. [<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>]
    
28. [<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
    
29. <%else%>
    
30. [<a Href="<%=filepath%>?Page=<% = 1%>">首页</a>]
    
31. [<a Href="<%=filepath%>?Page=<% = page -1 %>">上一页</a>]
    
32. [下一页] [尾页]
    
33. <% end if %>
    
34. <%else%>
    
35. [首页] [上一页]
    
36. [<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>]
    
37. [<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
    
38. <%end if %>
    
39. <%else%>
    
40. [首页] [上一页] [下一页] [尾页]
    
41. <%end if%>
    
42. 
    
43. 
    
44. 
    
45. 
    
46. 
    
47. 
    
48. 最后信息
    
49. 
    
50. 
    
51. [页次:<font color=red><b><%=page%></b></font>/<%=rs.PageCount%>]
    
52. [共<%=rs.RecordCount%>篇 <font color=red><b><%=rs.PageSize%></b></font>篇/页]
    
53. 转到<input name="page" size=5 value="<%=page%>">页
    
54. <input type="submit" value="Enter">
    
55. </form>
    
56. 
    

复制代码

参考这个

我试过了好像不行！只能出现一条内容！谢谢

我试过了好像不行！只能出现一条内容！谢谢
王勋 发表于 2015-3-11 14:47

   你sql正确？打包发我邮箱看看

回复 6# ttasp
我前面的第一页可以正常显示就是不能一下页！

回复  ttasp
我前面的第一页可以正常显示就是不能一下页！
王勋 发表于 2015-3-12 10:58

参数没带上 或者记录集没滚动

我也是这样想的!可以就不知道那个地方出错了?是不是因为点下一页的时候没有指点向数据集

我也是这样想的!可以就不知道那个地方出错了?是不是因为点下一页的时候没有指点向数据集
王勋 发表于 2015-3-12 13:48

   还得分析下现场

我发给你吧！可以么！

我发给你吧！可以么！
王勋 发表于 2015-3-12 14:27

测试有效

谢谢请说说原理还有面的记录数据好像不对咧

谢谢请说说原理还有面的记录数据好像不对咧
王勋 发表于 2015-3-13 08:44

  数据库连接驱动和SQL不对，做了更新。你对比下

connstr="Provider=Microsoft.Jet.OLEDB.4.0;data与conn.open  "driver={microsoft access driver (*.mdb)};两个有什么区别么？