home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / jn / zmqy_list.asp < prev    next >
Text File  |  2003-09-16  |  4KB  |  109 lines
  1. <!-- #include virtual="inc/datasrc.inc.asp"-->
  2. <!-- #include virtual="inc/trim.inc.asp"-->
  3. <!-- #include virtual="inc/open_window_function.asp"-->
  4. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  5. <!-- #include virtual="inc/xnw_style.inc.asp"-->
  6. <BODY text=#000000 bgColor=#e2e2e2 leftMargin=0 topMargin=0 marginheight="0" 
  7. marginwidth="0" oncontextmenu="return false" ondragstart="return false" onselectstart="return false">
  8.  
  9. <title>╓¬├√╞≤╥╡list</title>
  10.                             <%if request("mytc")=26 then  types2="├√╙┼╠╪▓·"  :  llist="qlmy_mytc"   end if'├√╙┼╠╪▓·     %>
  11.                             <%if request("mxxz")=26 then  types2="├≈╨╟╧τ╒≥"  :  llist="qlmy_mxxz"   end if '├≈╨╟╧τ╒≥    %>
  12.                             <%if request("zmqy")=26 then  types2="╓¬├√╞≤╥╡"  :  llist="qlmy_zmqy"   end if '╓¬├√╞≤╥╡    %>
  13.                             <%if request("qlmy")=26 then  types2="╞δ┬│├√╙┼"  :  llist="qlmy_zmqy"   end if '╓¬├√╞≤╥╡    %>
  14.                             <%if request("tsny")=26 then  types2="╠╪╔½┼⌐╥╡"  :  llist="qlmy_tsny"   end if     %> 
  15.                             <%if request("tsny")=26 then  types2="╠╪╔½┼⌐╥╡"  :  llist="qlmy_tsny"   end if     %>                 
  16.     
  17. <%set cn=createobject("adodb.connection")
  18. cn.open connect_qxt  
  19.  
  20.  
  21. Set rs = Server.CreateObject ("Adodb.Recordset") 
  22. str = "select * From " &llist& " where   titel like '%║╩╘≤%'  order by dates desc"
  23. 'str = "select * From " &llist& "  order by dates desc" 
  24. rs.open str,cn,3,1 %>
  25. <% If rs.EOF Then %>
  26. <tr> 
  27.      <td height="14"> <p align="center"><font color=red>╢╘▓╗╞≡ú¼<%=year(date)%>─Ω ─┐╟░╗╣├╗╙╨╩²╛▌úí</font> 
  28.   </td>
  29.   </tr>
  30.   <%
  31. Else
  32.  numb=25
  33. rs.PageSize = numb
  34. Page = Clng(Request("Page"))     
  35. If Page < 1 Then Page = 1     
  36. If Page > rs.PageCount Then Page = rs.PageCount
  37. %>
  38.   <tr bgcolor="#cccccc"> 
  39.     <td height="53"> 
  40.       <div align="center"> 
  41.         
  42.       <table width="316" border="0" cellpadding="0" cellspacing="0" bordercolor="#999999" bordercolorlight="#333333">
  43.         <% 
  44.                     
  45.           i = 1     
  46.           rs.AbsolutePage = Page     
  47.           For iPage = 1 To rs.PageSize     
  48.           If i Mod 2 <> 0 Then     
  49.               bgcolor = "#e2e2e2"     
  50.           Else     
  51.               bgcolor = "#e2e2e1"     
  52.           End If  
  53.            dates=mid(rs("dates"),6,5)   
  54.           %>
  55.         <tr bgcolor=<%=bgcolor%> height=20> 
  56.           <td ><a onClick="window.open(this.href,'','top=0,width=790,height=550,scrollbars=yes ');return false;" href="document_show.asp?id=<%=rs("id") %>&types=<%=rs("types") %>&mark=14 " target="_blank">íñ<%=trimText(rs("titel"),80)%></a> 
  57.           </td>
  58.         </tr>
  59.         <%  
  60. rs.MoveNext  
  61. i = i+1  
  62. If rs.EOF Then Exit For  
  63. Next  
  64.   
  65. %>
  66.       </table>
  67.     </div>
  68.     </td>
  69.   </tr>
  70.   <tr height=10> 
  71.     <td height="21">íí</td>
  72.   </tr>
  73. </table> 
  74.  
  75.  
  76. <table width=370 border=0 align="center" cellpadding=0 cellspacing=0>
  77.   <tbody>
  78.     <tr> 
  79.       <td width="500" bordercolor="#2b5695"> <table align="center" width="370" height="29">
  80.           <td width="100%"> <table align="center" cellspacing="0" cellpadding="0" width="350">
  81.               <tr> 
  82.                 <%     
  83.      
  84. If Page <> 1 Then     
  85.   Response.Write "<td nowrap><A HREF="&request("script_name")&"?Page=1"& "&qlmy="& request("qlmy")&"&name="&name&">╡┌╥╗╥│</A>  </td>"     
  86.   Response.Write "<td nowrap><A HREF="&request("script_name")&"?Page=" & (Page-1)&"&qlmy="&request("qlmy") &"&name="&name&">╔╧╥╗╥│</A>  </td>"     
  87. End If     
  88. If Page <> rs.PageCount Then     
  89.   Response.Write "<td nowrap><A HREF="&request("script_name")&"?Page=" & (Page+1)&"&qlmy="&request("qlmy")&"&name="&name&">╧┬╥╗╥│</A>  </td>"     
  90.   Response.Write "<td nowrap><A HREF="&request("script_name")&"?Page=" & rs.PageCount &"&name="&name&"&qlmy="& request("qlmy")&">╫ε║≤╥╗╥│</A>  </td>"     
  91. End If   
  92. %>
  93.                 <td nowrap align="center" width="94">╥│╩²ú║<font color="Red"><%=Page%>/<%=rs.PageCount%></font>  </td>
  94.                 <td nowrap align="center" width="97">╫▄╝═┬╝╩²ú║<font color="Red"><%=rs.RecordCount %></font></td>
  95.               </tr>
  96.             </table></td>
  97.           <%
  98. End If
  99. %>
  100.         </table></td>
  101.     </tr>
  102.   </tbody>
  103. </table>
  104. <% rs.close    
  105.    cn.close    
  106.    set rs = nothing 
  107.    set cn = nothing 
  108.  %>
  109.