<% if session("admin")="ok" then%>
<!--#include file="top.asp"-->
<!--#include file="conn.asp"-->
<%
dim notice
    notice=left(trim(request("noticecontent")),100)
if notice<>"" then
dim rs10 ,sql10
set rs10=server.CreateObject("adodb.recordset")
    sql10="select * from notice where id=1"
	rs10.open sql10,conn,3,2
if notice="" then
   notice="當前沒有公告"
end if
	rs10("noticecontent")=notice
	rs10.update
	rs10.close
set rs10=nothing
response.Redirect("index.asp")
end if
    conn.close
set conn=nothing
%>
<%if session("admin")="ok" then  
%>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<a href="/guestbook/loginok.asp"><font color="#0000FF"><font size="2">返回后臺首頁面</font></font></a><font size="2">&gt;&gt;<a href="/guestbook/config.asp"><font color="#0000FF">留言基本設置</font></a>&gt;&gt;<a href="/guestbook/index..asp"><font color="#0000FF">管理留言</font></a></font>
<%end if%>
<br><br>
<div align="center">
  <p><font size="2"><strong>設置留言本公告</strong>
    </font></p>
  <form name="form1" method="post" action="notice.asp">
    <textarea name="noticecontent" cols="65" rows="5"></textarea>
  <br>
    <input type="submit" name="Submit" value="提交">
    <input type="submit" name="Submit2" value="重置">
  </form>
  <p><strong><font size="2"></font></strong></p>
</div>
<br><br><br>
<!--#include file="bottom.asp"-->
<%else 
  response.Redirect("index.asp")
  end if 
%>