www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/DownAnnounceedit.asp
<%Admin="UserSee"%> <!--#include file="check.asp"--> <!--#include file="mdb_path_down.asp"--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>修 改 站 内 公 告</title> <style> td{font-size:9pt;line-height:140%} </style> </head> <% dim rs dim sql dim count set rs=server.createobject("adodb.recordset") sql = "select * from news order by id asc" rs.open sql,conn,1,1 %> <SCRIPT language = "JavaScript"> var onecount; onecount=0; subcat = new Array(); <% count = 0 do while not rs.eof %> subcat[<%=count%>] = new Array("<%= trim(rs("newsnote"))%>","<%= trim(rs("id"))%>"); <% count = count + 1 rs.movenext loop rs.close %> onecount=<%=count%>; function changelocation(locationid) { document.myform.Nclassid.length = 0; var locationid=locationid; var i; for (i=0;i < onecount; i++) { if (subcat[i][1] == locationid) { document.myform.Nclassid.options[document.myform.newsid.length] = new Option(subcat[i][0], subcat[i][2]); } } } </SCRIPT> <body> <form method="POST" name="myform" action="DownAnnouncesave.asp?id=<%=request("id")%>&action=edit"> <TABLE width="80%" border="0" align="center" cellspacing="1" class="tableBorder"> <TR align="center"> <Th colspan="4" height="25" bgcolor="#145f74"><b><FONT color="#FFFFFF">修 改 站 内 公 告</FONT></b> </TD> </TR> <% sql="select * from news where id="&request("id") rs.open sql,conn,1,1 %> <tr> <td class="forumrow" width="13%" align="right" valign="top"><b>公告信息:</b></td> <td class="forumrow"><input type="text" size="30" name="newsname" value="<%=rs("newsname")%>" /> <br /> <textarea rows="6" name="newsnote" cols="60" class="smallarea"> <% content=replace(rs("newsnote"),"<br>",chr(13)) content=replace(content," "," ") response.write content %> </textarea> <br> <%select case rs("type") case "1" response.Write "<input type=radio name=display value=1 checked>首页 <input name=display type=radio value=2 >下载 <input type=radio name=display value=3>素材" case "2" response.Write "<input type=radio name=display value=1>首页 <input name=display type=radio value=2 checked>下载 <input type=radio name=display value=3>素材" case "3" response.Write "<input type=radio name=display value=1>首页 <input name=display type=radio value=2 >下载 <input type=radio name=display value=3 checked>素材" end select%> </tr> <TR align="center"> <Th colspan="4" height="25" bgcolor="#145f74"><input type="submit" value=" 添 加 " name="cmdok" class="buttonface"> <input type="reset" value=" 清 除 " name="cmdcancel" class="buttonface"> </TD> </TR> </table> </form> </body> </html> <% set rs=nothing conn.close set conn=nothing %>