<%@ LANGUAGE=VBScript codepage ="936" %>
<!--#include file="check.asp"-->
<%Response.Expires=0
Response.Buffer=true
sjjh_name=Session("sjjh_name")
if sjjh_name<>Application("sjjh_user") then 
	Response.Write "<script Language=Javascript>alert('提示：你不是正站长，你不能操作！');location.href = 'javascript:history.go(-1)';</script>"
	response.end
end if
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("sjjh_usermdb")
rs.open "SELECT * from sjjh_system where id=401",conn,1,1
%>
<html><head><title>聊天室顶部广告修改</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><link href="jh.css" rel="stylesheet" type="text/css"></head>
<body background="IMAGES/strip.jpg">
<SCRIPT language=JavaScript>
function check(){
var chatgg=document.form.chatgg.value;
if(chatgg=="" ){alert("提示：广告内容不能为空！");return false;}
}
</SCRIPT>
<form method=POST action="jhgl.asp?act=chattop&id=401" name="form" onSubmit="return check(this);">
  <div align="center"> 世纪江湖聊天室顶部广告(guanggao.asp)修改:<br>
    <textarea name="chatgg"  cols="90" rows="15"><%=rs("svalue")%></textarea>
    <br>
    <br>
    <br>
    <input type=submit value=确定顶部广告修改 name="submit" style="border: 1px solid; font-size: 9pt; border-color:#000000 solid">
  </div>
</form>
<%rs.close
set rs=nothing
conn.close
set conn=nothing%>
</body>
</html>
