本帖最后由 王勋 于 2015-3-13 15:17 编辑
- <%
- set conn = Server.CreateObject("ADODB.Connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0;data source="&server.MapPath("s1.mdb")conn.open connstr
- htglss=trim(request.form("htglss")) if htglss="" thenresponse.write"<script>alert('对不起没有你需要的内容');history.back();</script>"response.endend if
- 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%>
|
IP卡
狗仔卡
显身卡
楼主