/wsj/Manage/News/News_MU.asp

https://github.com/hare1987/kaidun180 · ASP · 126 lines · 116 code · 6 blank · 4 comment · 6 complexity · 3b77999e5226449fe2fb22d804522480 MD5 · raw file

  1. <!-- #include file="../Include/Chk.asp" -->
  2. <!-- #include file="../Include/Conn.asp" -->
  3. <head>
  4. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  5. <title></title>
  6. <link href="../Images/font.css" rel="stylesheet" type="text/css">
  7. </head>
  8. <body>
  9. <table width="100%" border="0">
  10. <tr>
  11. <td height="25" colspan="4" bgcolor="#3385D1" class="font2 STYLE1"><table width="100%" border="0" cellpadding="0" cellspacing="£°">
  12. <tr>
  13. <td width="19%">¡¡<span class="bt2">¹ÜÀíÀ¸Ä¿ÐÂÎÅ</span></td>
  14. <td width="81%" align="center">&nbsp;</td>
  15. </tr>
  16. </table></td>
  17. </tr>
  18. <tr>
  19. <td width="48%" align="center" valign="middle" bgcolor="#efefef" class="font1">±êÌâ</td>
  20. <td width="19%" align="center" valign="middle" bgcolor="#efefef" class="font1">·¢²¼Ê±¼ä</td>
  21. <td width="16%" align="center" valign="middle" bgcolor="#efefef" class="font1">·¢²¼ÈË</td>
  22. <td width="17%" height="25" align="center" valign="middle" bgcolor="#efefef" class="font1">Ïà¹Ø²Ù×÷</td>
  23. </tr>
  24. <%
  25. if Request("type_id")="error" or Request("type_id")="" then
  26. Response.Write "<script language='javascript'>alert('ÇëÑ¡ÔñÀ¸Ä¿£¡');history.go(-1);</script>"
  27. Response.End()
  28. end if
  29. sql = "select * from news where type_id="&Request("type_id")&" order by id desc"
  30. Set rs=Server.Createobject("ADODB.RECORDSET")
  31. rs.Open sql, conn, 1, 1
  32. if not rs.eof then
  33. pages = 10 '¶¨ÒåÿҳÏÔʾµÄ¼Ç¼Êý
  34. rs.pageSize = pages '¶¨ÒåÿҳÏÔʾµÄ¼Ç¼Êý
  35. allPages = rs.pageCount'¼ÆËãÒ»¹²ÄÜ·Ö¶àÉÙÒ³
  36. page = Request.QueryString("page")'ͨ¹ýä¯ÀÀÆ÷´«µÝµÄÒ³Êý
  37. 'ifÓï¾äÊôÓÚ»ù±¾µÄÅÅ´í´¦Àí
  38. if isEmpty(page) or Cint(page) < 1 then
  39. page = 1
  40. elseif Cint(page) > allPages then
  41. page = allPages
  42. end if
  43. rs.AbsolutePage = page
  44. Do while not rs.eof and pages > 0 %>
  45. <tr>
  46. <td align="left" valign="middle" bgcolor="#efefef" class="link2"><%=rs("title")%></td>
  47. <td align="center" valign="middle" bgcolor="#efefef" class="link2"><%=rs("AddTime")%></td>
  48. <td align="center" valign="middle" bgcolor="#efefef" class="link2"><%=rs("writer")%></td>
  49. <td height="25" align="left" valign="middle" bgcolor="#efefef" class="link2"><a href="News_Edit.asp?id=<%=rs("id")%>">ÐÞ¸Ä</a> | <a href="News_Del.asp?id=<%=rs("id")%>">ɾ³ý</a> |
  50. <%if rs("tj")=0 then%>
  51. <a href="News_Tj.asp?id=<%=rs("id")%>">ÍÆ¼ö</a>
  52. <%else%>
  53. <a href="News_Tj.asp?id=<%=rs("id")%>" style="color:#FF0000">È¡ÏûÍÆ¼ö</a>
  54. <%end if%>
  55. </td>
  56. </tr>
  57. <% pages = pages - 1
  58. rs.MoveNext
  59. Loop
  60. else
  61. Response.Write("<font color='Red'>Êý¾Ý¿âÔÝÎÞÄÚÈÝ£¡</font>")
  62. End if
  63. rs.Close
  64. Set rs = Nothing
  65. %>
  66. <tr>
  67. <td height="25" colspan="4" align="right" bgcolor="#efefef">
  68. <%
  69. For i =1 to allpages
  70. txt = ""
  71. txt = txt & "<a href=" & "?" & "page=" & i & ">"
  72. if i = Cint(Page) then txt = txt & "<font color='bb0000'>"
  73. txt = txt & (i)
  74. if i = Cint(Page) then txt = txt & "</font>"
  75. txt = txt & "</a> &nbsp;"
  76. Response.Write(txt)
  77. Next
  78. %>
  79. </td>
  80. </tr>
  81. </table>
  82. <form name="form1" method="post" action="News_Mu.asp">
  83. <select name="type_id">
  84. <option value="error" selected>--ÇëÑ¡ÔñÀ¸Ä¿²é¿´--</option>
  85. <%
  86. '''''''''''¶ÁÈ¡·ÖÀຯÊý'''''''' mi ÊÇ·ÖÀàµÄ±àºÅ£¡
  87. Private Function getlist(mi,k)
  88. Dim rs0
  89. Set rs0 = Conn.Execute("select * from News_type where PID='"&mi&"'")
  90. Do While Not rs0.EOF
  91. getlist = getlist & "<option value='" & rs0(0) & "' >" & tmp(k) & " " & rs0(2) &"</option>"
  92. getlist = getlist & getlist(rs0(0),k+1)
  93. rs0.MoveNext
  94. loop
  95. rs0.close
  96. set rs0 = nothing
  97. End Function
  98. Private Function tmp(n)
  99. Dim i
  100. For i = 0 To n
  101. tmp = tmp & "---"
  102. Next
  103. End Function
  104. %>
  105. <%
  106. '''''''''''´ò¿ªÊý¾Ý¿â''''''''''
  107. Set Rs = Conn.Execute("select * from News_Type where PID='0'")
  108. Do While Not Rs.EOF
  109. Response.Write "<option value='" & Rs(0) & "'>" & Rs(2) & "</option>"
  110. Response.Write getlist(Rs(0),0)
  111. Rs.MoveNext
  112. loop
  113. Rs.Close
  114. '''''''''''¹Ø±ÕÊý¾Ý¿â''''''''''
  115. %>
  116. </select>
  117. <input type="submit" name="Submit" value="Áбí">
  118. </form>
  119. </body>
  120. </html>