<%@ LANGUAGE=VBScript codepage ="936" %>
<%
Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl ="No-Cache"
if session("TWT_ARR_ArgALL")="" then response.end
TWT_ArrArg=split(session("TWT_ARR_ArgALL"),"=")
nickname=TWT_ArrArg(0)
grade=TWT_ArrArg(2)
myid=TWT_ArrArg(1)
If Session("ADMIN") <> True Then Response.Redirect "../error.asp?id=439"
if grade<10 then Response.Redirect "../error.asp?id=439"
userip=Request.ServerVariables("REMOTE_ADDR")
if Instr(twt_sys_grade,"|" & nickname & "|")=0 or Instr(jiutian_hkip,userip)<>0 then
%>
<%
response.end
end if
%>
<%
chatroomnamearr=Application("hxf_c_chatroominfo")
chatroominfo=split(chatroomnamearr,";")
if Request.form("ggc")="发送" then
call ggc(Request.form("getsay"))
%>
发送成功！！！
<%
response.end
else
%>
发送告示
******************发送告示******************
使用此功能，可以向所有聊天室的房间发送告示：
告示是直接显示在对话区内，为节省资源请不要超过150字。
<%
end if
sub ggc(getsay)
call showchat("【天外天告示】" & getsay & "")
end sub
%>