/wsj/Manage/News/News_Manage.asp

https://github.com/hare1987/kaidun180 · ASP · 121 lines · 111 code · 6 blank · 4 comment · 5 complexity · a01c4d7097e5882363456f0f5b233e7c 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="49%" align="center" valign="middle" bgcolor="#efefef" class="font1">±êÌâ</td>

    20. 

  20.     <td width="18%" 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. sql = "select * from news order by id desc"

    26. 

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

    27. 

  27. rs.Open sql, conn, 1, 1

    28. 

  28. if not rs.eof then

    29. 

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

    30. 

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

    31. 

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

    32. 

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

    33. 

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

    34. 

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

    35. 

  35. page = 1

    36. 

  36. elseif Cint(page) > allPages then

    37. 

  37. page = allPages 

    38. 

  38. end if

    39. 

  39. rs.AbsolutePage = page

    40. 

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

    41. 

  41.  <tr>

    42. 

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

    43. 

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

    44. 

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

    45. 

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

    46. 

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

    47. 

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

    48. 

  48. 	<%else%>

    49. 

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

    50. 

  50. 	<%end if%></td>

    51. 

  51.   </tr>

    52. 

  52. <% pages = pages - 1

    53. 

  53. rs.MoveNext

    54. 

  54. Loop

    55. 

  55. else

    56. 

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

    57. 

  57. End if

    58. 

  58. rs.Close

    59. 

  59. Set rs = Nothing 

    60. 

  60. %>

    61. 

  61.   <tr>

    62. 

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

    63. 

  63. <%

    64. 

  64. For i =1 to allpages

    65. 

  65. txt = ""

    66. 

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

    67. 

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

    68. 

  68. txt = txt &  (i) 

    69. 

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

    70. 

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

    71. 

  71. Response.Write(txt)

    72. 

  72. Next	

    73. 

  73. %>

    74. 

  74. </td>

    75. 

  75.   </tr>

    76. 

  76. </table>

    77. 

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

    78. 

  78.   <select name="type_id">

    79. 

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

    80. 

  80.     <%

    81. 

  81. 

    82. 

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

    83. 

  83. 

    84. 

  84. Private Function getlist(mi,k)

    85. 

  85. Dim rs0

    86. 

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

    87. 

  87. Do While Not rs0.EOF

    88. 

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

    89. 

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

    90. 

  90. rs0.MoveNext

    91. 

  91. loop

    92. 

  92. rs0.close

    93. 

  93. set rs0 = nothing

    94. 

  94. End Function

    95. 

  95. 

    96. 

  96. Private Function tmp(n)

    97. 

  97. Dim i

    98. 

  98. For i = 0 To n

    99. 

  99. tmp = tmp & "---"

    100. 

  100. Next

    101. 

  101. End Function

    102. 

  102. %>

    103. 

  103.     <%

    104. 

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

    105. 

  105. 

    106. 

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

    107. 

  107. Do While Not Rs.EOF

    108. 

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

    109. 

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

    110. 

  110. Rs.MoveNext

    111. 

  111. loop

    112. 

  112. Rs.Close

    113. 

  113. 

    114. 

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

    115. 

  115. %>

    116. 

  116.   </select>

    117. 

  117.   

    118. 

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

    119. 

  119. </form>

    120. 

  120. </body>

    121. 

  121. </html>
    122.