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 >
Wrap
Text File
|
2003-09-16
|
4KB
|
109 lines
<!-- #include virtual="inc/datasrc.inc.asp"-->
<!-- #include virtual="inc/trim.inc.asp"-->
<!-- #include virtual="inc/open_window_function.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- #include virtual="inc/xnw_style.inc.asp"-->
<BODY text=#000000 bgColor=#e2e2e2 leftMargin=0 topMargin=0 marginheight="0"
marginwidth="0" oncontextmenu="return false" ondragstart="return false" onselectstart="return false">
<title>╓¬├√╞≤╥╡list</title>
<%if request("mytc")=26 then types2="├√╙┼╠╪▓·" : llist="qlmy_mytc" end if'├√╙┼╠╪▓· %>
<%if request("mxxz")=26 then types2="├≈╨╟╧τ╒≥" : llist="qlmy_mxxz" end if '├≈╨╟╧τ╒≥ %>
<%if request("zmqy")=26 then types2="╓¬├√╞≤╥╡" : llist="qlmy_zmqy" end if '╓¬├√╞≤╥╡ %>
<%if request("qlmy")=26 then types2="╞δ┬│├√╙┼" : llist="qlmy_zmqy" end if '╓¬├√╞≤╥╡ %>
<%if request("tsny")=26 then types2="╠╪╔½┼⌐╥╡" : llist="qlmy_tsny" end if %>
<%if request("tsny")=26 then types2="╠╪╔½┼⌐╥╡" : llist="qlmy_tsny" end if %>
<%set cn=createobject("adodb.connection")
cn.open connect_qxt
Set rs = Server.CreateObject ("Adodb.Recordset")
str = "select * From " &llist& " where titel like '%║╩╘≤%' order by dates desc"
'str = "select * From " &llist& " order by dates desc"
rs.open str,cn,3,1 %>
<% If rs.EOF Then %>
<tr>
<td height="14"> <p align="center"><font color=red>╢╘▓╗╞≡ú¼<%=year(date)%>─Ω ─┐╟░╗╣├╗╙╨╩²╛▌úí</font>
</td>
</tr>
<%
Else
numb=25
rs.PageSize = numb
Page = Clng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
%>
<tr bgcolor="#cccccc">
<td height="53">
<div align="center">
<table width="316" border="0" cellpadding="0" cellspacing="0" bordercolor="#999999" bordercolorlight="#333333">
<%
i = 1
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
If i Mod 2 <> 0 Then
bgcolor = "#e2e2e2"
Else
bgcolor = "#e2e2e1"
End If
dates=mid(rs("dates"),6,5)
%>
<tr bgcolor=<%=bgcolor%> height=20>
<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>
</td>
</tr>
<%
rs.MoveNext
i = i+1
If rs.EOF Then Exit For
Next
%>
</table>
</div>
</td>
</tr>
<tr height=10>
<td height="21">íí</td>
</tr>
</table>
<table width=370 border=0 align="center" cellpadding=0 cellspacing=0>
<tbody>
<tr>
<td width="500" bordercolor="#2b5695"> <table align="center" width="370" height="29">
<td width="100%"> <table align="center" cellspacing="0" cellpadding="0" width="350">
<tr>
<%
If Page <> 1 Then
Response.Write "<td nowrap><A HREF="&request("script_name")&"?Page=1"& "&qlmy="& request("qlmy")&"&name="&name&">╡┌╥╗╥│</A> </td>"
Response.Write "<td nowrap><A HREF="&request("script_name")&"?Page=" & (Page-1)&"&qlmy="&request("qlmy") &"&name="&name&">╔╧╥╗╥│</A> </td>"
End If
If Page <> rs.PageCount Then
Response.Write "<td nowrap><A HREF="&request("script_name")&"?Page=" & (Page+1)&"&qlmy="&request("qlmy")&"&name="&name&">╧┬╥╗╥│</A> </td>"
Response.Write "<td nowrap><A HREF="&request("script_name")&"?Page=" & rs.PageCount &"&name="&name&"&qlmy="& request("qlmy")&">╫ε║≤╥╗╥│</A> </td>"
End If
%>
<td nowrap align="center" width="94">╥│╩²ú║<font color="Red"><%=Page%>/<%=rs.PageCount%></font> </td>
<td nowrap align="center" width="97">╫▄╝═┬╝╩²ú║<font color="Red"><%=rs.RecordCount %></font></td>
</tr>
</table></td>
<%
End If
%>
</table></td>
</tr>
</tbody>
</table>
<% rs.close
cn.close
set rs = nothing
set cn = nothing
%>