/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. 

  2. <!-- #include file="../Include/Conn.asp" -->

    3. 

  3. <head>

    4. 

  4. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

    5. 

  5. <title></title>

    6. 

  6. <link href="../Images/font.css" rel="stylesheet" type="text/css">

    7. 

  7. </head>

    8. 

  8. <body>

    9. 

  9. <table width="100%" border="0">

    10. 

  10.   <tr>

    11. 

  11.     <td height="25" colspan="4" bgcolor="#3385D1" class="font2 STYLE1"><table width="100%" border="0" cellpadding="0" cellspacing="£°">

    12. 

  12.       <tr>

    13. 

  13.         <td width="19%">¡¡<span class="bt2">¹ÜÀíÀ¸Ä¿ÐÂÎÅ</span></td>

    14. 

  14.         <td width="81%" align="center">&nbsp;</td>

    15. 

  15.       </tr>

    16. 

  16.     </table></td>

    17. 

  17.   </tr>

    18. 

  18.   <tr>

    19. 

  19.     <td width="48%" align="center" valign="middle" bgcolor="#efefef" class="font1">±êÌâ</td>

    20. 

  20.     <td width="19%" align="center" valign="middle" bgcolor="#efefef" class="font1">·¢²¼Ê±¼ä</td>

    21. 

  21.     <td width="16%" align="center" valign="middle" bgcolor="#efefef" class="font1">·¢²¼ÈË</td>

    22. 

  22.     <td width="17%" height="25" align="center" valign="middle" bgcolor="#efefef" class="font1">Ïà¹Ø²Ù×÷</td>

    23. 

  23.   </tr>

    24. 

  24. <%

    25. 

  25. if Request("type_id")="error" or Request("type_id")="" then

    26. 

  26. 	Response.Write "<script language='javascript'>alert('ÇëÑ¡ÔñÀ¸Ä¿£¡');history.go(-1);</script>"

    27. 

  27. 	Response.End()

    28. 

  28. end if

    29. 

  29. sql = "select * from news where type_id="&Request("type_id")&" order by id desc"

    30. 

  30. Set rs=Server.Createobject("ADODB.RECORDSET")

    31. 

  31. rs.Open sql, conn, 1, 1

    32. 

  32. if not rs.eof then

    33. 

  33. pages = 10 '¶¨ÒåÿҳÏÔʾµÄ¼Ç¼Êý

    34. 

  34. rs.pageSize = pages '¶¨ÒåÿҳÏÔʾµÄ¼Ç¼Êý

    35. 

  35. allPages = rs.pageCount'¼ÆËãÒ»¹²ÄÜ·Ö¶àÉÙÒ³

    36. 

  36. page = Request.QueryString("page")'ͨ¹ýä¯ÀÀÆ÷´«µÝµÄÒ³Êý

    37. 

  37. 'ifÓï¾äÊôÓÚ»ù±¾µÄÅÅ´í´¦Àí

    38. 

  38. if isEmpty(page) or Cint(page) < 1 then

    39. 

  39. page = 1

    40. 

  40. elseif Cint(page) > allPages then

    41. 

  41. page = allPages 

    42. 

  42. end if

    43. 

  43. rs.AbsolutePage = page

    44. 

  44. Do while not rs.eof and pages > 0 %> 

    45. 

  45.  <tr>

    46. 

  46.     <td align="left" valign="middle" bgcolor="#efefef" class="link2"><%=rs("title")%></td>

    47. 

  47.     <td align="center" valign="middle" bgcolor="#efefef" class="link2"><%=rs("AddTime")%></td>

    48. 

  48.     <td align="center" valign="middle" bgcolor="#efefef" class="link2"><%=rs("writer")%></td>

    49. 

  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. 

  50. 	<%if rs("tj")=0 then%>

    51. 

  51. 	<a href="News_Tj.asp?id=<%=rs("id")%>">ÍƼö</a>

    52. 

  52. 	<%else%>

    53. 

  53. 	<a href="News_Tj.asp?id=<%=rs("id")%>" style="color:#FF0000">È¡ÏûÍƼö</a>

    54. 

  54. 	<%end if%>

    55. 

  55. 	</td>

    56. 

  56.   </tr>

    57. 

  57. <% pages = pages - 1

    58. 

  58. rs.MoveNext

    59. 

  59. Loop

    60. 

  60. else

    61. 

  61. Response.Write("<font color='Red'>Êý¾Ý¿âÔÝÎÞÄÚÈÝ£¡</font>")

    62. 

  62. End if

    63. 

  63. rs.Close

    64. 

  64. Set rs = Nothing 

    65. 

  65. %>

    66. 

  66.   <tr>

    67. 

  67.     <td height="25" colspan="4" align="right" bgcolor="#efefef">

    68. 

  68. <%

    69. 

  69. For i =1 to allpages

    70. 

  70. txt = ""

    71. 

  71. txt = txt &  "<a href=" & "?" &  "page=" & i & ">"

    72. 

  72. if i = Cint(Page) then txt = txt &  "<font color='bb0000'>"

    73. 

  73. txt = txt &  (i) 

    74. 

  74. if i = Cint(Page) then txt = txt &  "</font>"

    75. 

  75. txt = txt &  "</a> &nbsp;"

    76. 

  76. Response.Write(txt)

    77. 

  77. Next	

    78. 

  78. %>

    79. 

  79. </td>

    80. 

  80.   </tr>

    81. 

  81. </table>

    82. 

  82. <form name="form1" method="post" action="News_Mu.asp">

    83. 

  83.   <select name="type_id">

    84. 

  84.     <option value="error" selected>--ÇëÑ¡ÔñÀ¸Ä¿²é¿´--</option>

    85. 

  85.     <%

    86. 

  86. 

    87. 

  87. '''''''''''¶ÁÈ¡·ÖÀຯÊý''''''''  mi ÊÇ·ÖÀàµÄ±àºÅ£¡

    88. 

  88. 

    89. 

  89. Private Function getlist(mi,k)

    90. 

  90. Dim rs0

    91. 

  91. Set rs0 = Conn.Execute("select * from News_type where PID='"&mi&"'")

    92. 

  92. Do While Not rs0.EOF

    93. 

  93. getlist = getlist & "<option value='" & rs0(0) & "' >" & tmp(k) & " " & rs0(2) &"</option>"

    94. 

  94. getlist = getlist & getlist(rs0(0),k+1)

    95. 

  95. rs0.MoveNext

    96. 

  96. loop

    97. 

  97. rs0.close

    98. 

  98. set rs0 = nothing

    99. 

  99. End Function

    100. 

  100. 

    101. 

  101. Private Function tmp(n)

    102. 

  102. Dim i

    103. 

  103. For i = 0 To n

    104. 

  104. tmp = tmp & "---"

    105. 

  105. Next

    106. 

  106. End Function

    107. 

  107. %>

    108. 

  108.     <%

    109. 

  109. '''''''''''´ò¿ªÊý¾Ý¿â''''''''''

    110. 

  110. 

    111. 

  111. Set Rs = Conn.Execute("select * from News_Type where PID='0'")

    112. 

  112. Do While Not Rs.EOF

    113. 

  113. Response.Write "<option value='" & Rs(0) & "'>" & Rs(2) & "</option>"

    114. 

  114. Response.Write getlist(Rs(0),0)

    115. 

  115. Rs.MoveNext

    116. 

  116. loop

    117. 

  117. Rs.Close

    118. 

  118. 

    119. 

  119. '''''''''''¹Ø±ÕÊý¾Ý¿â''''''''''

    120. 

  120. %>

    121. 

  121.   </select>

    122. 

  122.   

    123. 

  123.    <input type="submit" name="Submit" value="Áбí">

    124. 

  124. </form>

    125. 

  125. </body>

    126. 

  126. </html>
    127.