/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
- <!-- #include file="../Include/Chk.asp" -->
- <!-- #include file="../Include/Conn.asp" -->
- <head>
- <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
- <title></title>
- <link href="../Images/font.css" rel="stylesheet" type="text/css">
- </head>
- <body>
- <table width="100%" border="0">
- <tr>
- <td height="25" colspan="4" bgcolor="#3385D1" class="font2 STYLE1"><table width="100%" border="0" cellpadding="0" cellspacing="£°">
- <tr>
- <td width="19%">¡¡<span class="bt2">¹ÜÀíÀ¸Ä¿ÐÂÎÅ</span></td>
- <td width="81%" align="center"> </td>
- </tr>
- </table></td>
- </tr>
- <tr>
- <td width="48%" align="center" valign="middle" bgcolor="#efefef" class="font1">±êÌâ</td>
- <td width="19%" align="center" valign="middle" bgcolor="#efefef" class="font1">·¢²¼Ê±¼ä</td>
- <td width="16%" align="center" valign="middle" bgcolor="#efefef" class="font1">·¢²¼ÈË</td>
- <td width="17%" height="25" align="center" valign="middle" bgcolor="#efefef" class="font1">Ïà¹Ø²Ù×÷</td>
- </tr>
- <%
- if Request("type_id")="error" or Request("type_id")="" then
- Response.Write "<script language='javascript'>alert('ÇëÑ¡ÔñÀ¸Ä¿£¡');history.go(-1);</script>"
- Response.End()
- end if
- sql = "select * from news where type_id="&Request("type_id")&" order by id desc"
- Set rs=Server.Createobject("ADODB.RECORDSET")
- rs.Open sql, conn, 1, 1
- if not rs.eof then
- pages = 10 '¶¨ÒåÿҳÏÔʾµÄ¼Ç¼Êý
- rs.pageSize = pages '¶¨ÒåÿҳÏÔʾµÄ¼Ç¼Êý
- allPages = rs.pageCount'¼ÆËãÒ»¹²ÄÜ·Ö¶àÉÙÒ³
- page = Request.QueryString("page")'ͨ¹ýä¯ÀÀÆ÷´«µÝµÄÒ³Êý
- 'ifÓï¾äÊôÓÚ»ù±¾µÄÅÅ´í´¦Àí
- if isEmpty(page) or Cint(page) < 1 then
- page = 1
- elseif Cint(page) > allPages then
- page = allPages
- end if
- rs.AbsolutePage = page
- Do while not rs.eof and pages > 0 %>
- <tr>
- <td align="left" valign="middle" bgcolor="#efefef" class="link2"><%=rs("title")%></td>
- <td align="center" valign="middle" bgcolor="#efefef" class="link2"><%=rs("AddTime")%></td>
- <td align="center" valign="middle" bgcolor="#efefef" class="link2"><%=rs("writer")%></td>
- <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> |
- <%if rs("tj")=0 then%>
- <a href="News_Tj.asp?id=<%=rs("id")%>">ÍÆ¼ö</a>
- <%else%>
- <a href="News_Tj.asp?id=<%=rs("id")%>" style="color:#FF0000">È¡ÏûÍÆ¼ö</a>
- <%end if%>
- </td>
- </tr>
- <% pages = pages - 1
- rs.MoveNext
- Loop
- else
- Response.Write("<font color='Red'>Êý¾Ý¿âÔÝÎÞÄÚÈÝ£¡</font>")
- End if
- rs.Close
- Set rs = Nothing
- %>
- <tr>
- <td height="25" colspan="4" align="right" bgcolor="#efefef">
- <%
- For i =1 to allpages
- txt = ""
- txt = txt & "<a href=" & "?" & "page=" & i & ">"
- if i = Cint(Page) then txt = txt & "<font color='bb0000'>"
- txt = txt & (i)
- if i = Cint(Page) then txt = txt & "</font>"
- txt = txt & "</a> "
- Response.Write(txt)
- Next
- %>
- </td>
- </tr>
- </table>
- <form name="form1" method="post" action="News_Mu.asp">
- <select name="type_id">
- <option value="error" selected>--ÇëÑ¡ÔñÀ¸Ä¿²é¿´--</option>
- <%
-
- '''''''''''¶ÁÈ¡·ÖÀຯÊý'''''''' mi ÊÇ·ÖÀàµÄ±àºÅ£¡
-
- Private Function getlist(mi,k)
- Dim rs0
- Set rs0 = Conn.Execute("select * from News_type where PID='"&mi&"'")
- Do While Not rs0.EOF
- getlist = getlist & "<option value='" & rs0(0) & "' >" & tmp(k) & " " & rs0(2) &"</option>"
- getlist = getlist & getlist(rs0(0),k+1)
- rs0.MoveNext
- loop
- rs0.close
- set rs0 = nothing
- End Function
-
- Private Function tmp(n)
- Dim i
- For i = 0 To n
- tmp = tmp & "---"
- Next
- End Function
- %>
- <%
- '''''''''''´ò¿ªÊý¾Ý¿â''''''''''
-
- Set Rs = Conn.Execute("select * from News_Type where PID='0'")
- Do While Not Rs.EOF
- Response.Write "<option value='" & Rs(0) & "'>" & Rs(2) & "</option>"
- Response.Write getlist(Rs(0),0)
- Rs.MoveNext
- loop
- Rs.Close
-
- '''''''''''¹Ø±ÕÊý¾Ý¿â''''''''''
- %>
- </select>
-
- <input type="submit" name="Submit" value="Áбí">
- </form>
- </body>
- </html>