楼主: 王勋

[问与答] 搜索分页显示下一页不起作用!谢谢

[复制链接]
ttasp 发表于 2015-3-13 11:54:00 | 显示全部楼层
connstr="rovider=Microsoft.Jet.OLEDB.4.0;data与conn.open  "driver={microsoft access driver (*.mdb)} ...
王勋 发表于 2015-3-13 10:07



   性能上会有一定区别,odbc有时会出错。
 楼主| 王勋 发表于 2015-3-13 15:04:08 | 显示全部楼层
本帖最后由 王勋 于 2015-3-13 15:06 编辑

我自己安你的重写了一次还是过不去!
除了数据数据库还有就是在下一页的地方加了“&htglss="&htglss&"
自制你给我的就可以自己写的就不行!不知道为什么?
 楼主| 王勋 发表于 2015-3-13 15:13:40 | 显示全部楼层
本帖最后由 王勋 于 2015-3-13 15:17 编辑

  1. <%
  2. set conn = Server.CreateObject("ADODB.Connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0;data source="&server.MapPath("s1.mdb")conn.open connstr
  3.   htglss=trim(request.form("htglss"))  if htglss="" thenresponse.write"<script>alert('对不起没有你需要的内容');history.back();</script>"response.endend if
  4. 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&"%'"set rs=server.createobject("adodb.recordset")rs.open exec,conn,1,1 if rs.eof and rs.bof thenresponse.write "<script>alert('无法找到相关内容');history.back();</script>"response.endend if %>   <td scope="col">共查询到<% Response.Write(RS.RecordCount) %>条纪录  </tr></table><div align="center">  <table width="899" border="4">     <tr>       <td width="119" class="gb2312" scope="col"><div align="center">合同标的</div></td>       <td width="228" scope="col"><div align="center"><span class="gb2312">合同名称</span></div></td>       <td width="115" scope="col"><div align="center"><span class="gb2312">签定日期</span></div></td>       <td width="127" scope="col"><div align="center"><span class="gb2312">履约时间</span></div></td>       <td width="147" scope="col"><div align="center"><span class="gb2312">合同价款</span></div></td>       <td width="117" scope="col"><div align="center"><span class="gb2312">签署人</span></div></td>     </tr>     <tr> <% rs.pagesize=20'此1为每页显示的行数 page=request.querystring("page") page=clng(page) if page<1 then page =1end if  if page>rs.pagecount then page=rs.pagecount end ifrs.absolutepage=page show rs,pagesub show(rs,page) for thepage=1 to rs.pagesize %>       <td scope="row"><div align="center"><span class="gb2312"><%=rs("合同序号")%></span></div></td>       <td><div align="center"><span class="gb2312"><%=rs("合同名称")%></span></div></td>       <td><div align="center"><span class="gb2312"><%=rs("签定日期")%></span></div></td>       <td><div align="center"><span class="gb2312"><%=rs("履约期间甲方")%></span></div></td>       <td><div align="center"><span class="gb2312"><%=rs("价款")%></span></div></td>      <td><div align="center"><span class="gb2312"><%=rs("签署人")%></span></div></td>     </tr>     <tr> <% rs.movenext if rs.eof then exit for next end sub%>       <td colspan="6" scope="row"><%          if page<>1 thenresponse.Write("  <a href="&action&"?page=1&htglss="&htglss&">第一页</a>")response.Write("  <a href="&action&"?page="&(page-1)&"&htglss="&htglss&">上一页</a>") end if  response.Write("  当前 <font color='#FF0000'>"&page&"</font> 页") response.Write("  <font color='#FF0000'>"&rs.recordcount&"</font> 条/<font color='#FF0000'>"&rs.pagecount&"</font> 页") if page<>rs.pagecount then  response.Write("  <a href="&action&"?page="&(page+1)&"&htglss="&htglss&">下一页</a>")  response.Write("  <a href"&action&"?page="&rs.pagecount&"&htglss="&htglss&">最末页</a>") end if response.Write("  跳转到<input type='text' size='2' name='page'>页<input type='submit' value='GO'>")rs.closeset rs=nothing%>
复制代码
 楼主| 王勋 发表于 2015-3-13 15:57:48 | 显示全部楼层
本帖最后由 王勋 于 2015-3-13 16:03 编辑

我自己安你的重写了一次还是过不去!
除了数据数据库还有就是在下一页的地方加了“&htglss="&htglss&"
自制你给我的就可以自己写的就不行!不知道为什么?[url=] htglss1.zip (1.92 KB, 下载次数: 102)
ttasp 发表于 2015-3-19 09:29:01 | 显示全部楼层
我自己安你的重写了一次还是过不去!
除了数据数据库还有就是在下一页的地方加了“&htglss="&htglss&"
自 ...
王勋 发表于 2015-3-13 15:57


多检查下 一般都是语法和拼写错误
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号