download_bh.asp
上传用户:xxtaishan
上传日期:2022-01-02
资源大小:4063k
文件大小:4k
源码类别:

IP电话/视频会议

开发平台:

ASP/ASPX

  1. <style type="text/css">
  2. <!--
  3. .STYLE2 {color: #000000}
  4. .STYLE4 {color: #000000; font-weight: bold; }
  5. -->
  6. </style>
  7. <%
  8. if request("id")="" then
  9. %>
  10. <link href="index.css" rel="stylesheet" type="text/css" />
  11. <link href="css/css.css" rel="stylesheet" type="text/css" />
  12. <table width="400" height="249"  border="0" align="center" cellpadding="0" cellspacing="0">
  13.   <%
  14. Dim sql
  15. sql=" select * from info2 where wz like '%"&trim(request("wz"))&"%' order by id desc "
  16. Dim rs
  17. Set rs=Server.CreateObject("ADODB.RecordSet")
  18. rs.open sql,conn,1,1
  19. Dim page,i
  20. if request("page")="" then
  21. page=1
  22. else
  23. page=clng(request("page"))
  24. end if
  25. i=0
  26. rs.pagesize=10
  27. if page<1 then page=1
  28. if page>rs.pagecount then page=rs.pagecount 
  29. if rs.pagecount>0 then rs.absolutepage=page
  30. %>
  31.   <tr>
  32.     <td width="546" valign="top"></p>
  33.         <table width="500"  border="0" align="center" cellpadding="0" cellspacing="0">
  34.           <%
  35. if rs.eof then
  36. response.write "<tr><td colspan='2'><font color='red'>系统中还没有录入任何信息!</font></td></tr>"
  37. else
  38. Do while not rs.eof and i<rs.pagesize
  39. %>
  40.           <tr class="font8">
  41.             <td width="56" height="30"><div align="center"><span class="blue">·</span></div></td>
  42.             <td width="425" height="15"><div align="left"><a href="?id=<%=rs("id")%>" target="_blank" class="main2"><%=left(rs("title"),25)%></a></div></td>
  43.             <td width="108" class="style1eng"><%=rs("postdate")%></td>
  44.           </tr>
  45.           <tr>
  46.             <td height="1" colspan="3" background="images/x1.gif"></td>
  47.           </tr>
  48.           <%
  49. rs.MoveNext
  50. i=i+1
  51. Loop
  52. end if
  53. %>
  54.         </table>
  55.       <br />
  56.         <table width="86%" height="33"  border="0" align="center" cellpadding="0" cellspacing="0" class="style1">
  57.           <tr>
  58.             <td><span class="STYLE2">共 </span><span class="red"><%=rs.recordcount%> </span><span class="STYLE2">条 页 次 <%=page%>/<%=rs.pagecount%> 页 <a href="?PAGE=1&wz=<%=request("wz")%>" class="main2">首 页</a>
  59.                 <%if rs.pagecount>1 then 
  60.      if page=1 then%>
  61.               | 上一页 | <a href="?PAGE=<%=(page+1)%>&wz=<%=request("wz")%>" class="main2">下一页</a>
  62.               <%else
  63.       if page=rs.pagecount then%>
  64.               <a href="?PAGE=<%=(page-1)%>&wz=<%=request("wz")%>" class="main2">上一页</a> | 下一页
  65.               <%else%>
  66.               | <a href="?PAGE=<%=(page-1)%>&wz=<%=request("wz")%>" class="main2">上一页</a> | <a href="?PAGE=<%=(page+1)%>&wz=<%=request("wz")%>" class="main2"> 下一页</a>
  67.               <%end if%>
  68.               <%end if%>
  69.               <%end if%>
  70.               | <a href="?PAGE=<%=rs.pagecount%>&wz=<%=request("wz")%>" class="main2"> 尾 页</a> 第</span>
  71.                 <select name="sel_page" class="mailarea" onchange="javascript:location=this.options[this.selectedIndex].value;">
  72.                   <%
  73.        for i = 1 to rs.PageCount
  74.        if i = page then%>
  75.                   <option value="?PAGE=<%=i%>" selected="selected"><%=i%></option>
  76.                   <%else%>
  77.                   <option value="?PAGE=<%=i%>"><%=i%></option>
  78.                   <%
  79.           end if
  80.         next
  81.         %>
  82.               </select>
  83.             <span class="STYLE2"> 页</span></td>
  84.           </tr>
  85.       </table></td>
  86.   </tr>
  87. </table>
  88. <%
  89. else
  90. %>
  91. <table width="505" border="0" align="center" cellpadding="0" cellspacing="0" class="style1">
  92.   <%
  93. sqlcp="select * from info2 where id="&request("ID")
  94. Set rscp=Server.CreateObject("ADODB.RecordSet")
  95. rscp.open sqlcp,conn,1,1
  96. %>
  97.   <tr>
  98.     <td width="295" valign="top"><strong><span class="style2"><%=rscp("title")%></span></strong><br />
  99.           <table width="295" border="0" cellpadding="0" cellspacing="0">
  100.         <tr>
  101.           <td><div align="left"><%=rscp("content")%></div></td>
  102.         </tr>
  103.       </table></td>
  104.     <td width="210"><table width="116" border="0" align="center" cellpadding="0" cellspacing="0">
  105.       <tr>
  106.         <td height="61"><div align="center"><img src="image/sub/dl_icon.gif" width="50" height="48" /></div></td>
  107.       </tr>
  108.       <tr>
  109.         <td><div align="center"><a href="<%=rscp("pic")%>" class="main2">:::本地下载:::</a></div></td>
  110.       </tr>
  111.     </table></td>
  112.   </tr>
  113.   <tr>
  114.     <td colspan="2">&nbsp;</td>
  115.   </tr>
  116.   <%
  117. rscp.close
  118. set rscp=nothing
  119. %>
  120. </table>
  121. <%end if%>