<%
IF Session("KEY")>"1" THEN
response.write ""
response.end
END IF
'==========================================
'
' SuperCMS新闻文章内容管理系统 V 1.0
'
' 官方网址：http://www.supercms.cn
' www.supercms.net
'
'==========================================
'程序名称： SuperCMS新闻文章内容管理系统
'英文名称：Super Content Management System
'作 者： 创意小子
'联系 Q Q： 77801933
'
'程序创建时间：2005-6-10
'程序完成时间：2005-8-1
'==========================================
'请尊重作者版权不要删除以上信息
'
'力争做国内最好最实用的开源网站内容管理系统
'
'特别感谢玄鸟科技提供的大力支持
' http://www.superbtec.com
'==========================================
%>
公告管理
<%
dim sql
dim rs
sql="select * from config"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
公告内容管理
<%
rs.close
set rs=nothing
%>
<%
if request("method")="save" then
dim rst,sqlt
set rst=server.createobject("adodb.recordset")
sqlt="select * from Config"
rst.open sqlt,conn,3,3
rst("announcement")=request("announcement")
rst.Update
rst.close
set rst=nothing
response.write ""
end if
rst.close
set rst=nothing
conn.close
set conn=nothing
%>