<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.Buffer=true
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../error.asp?id=440"
if session("zhbg_adminok")<>true then Response.Redirect "../chat/readonly/bomb.htm"
if zhbg_grade<>10 or instr(Application("zhbg_user"),zhbg_name)=0  then Response.Redirect "../error.asp?id=439"
if zhbg_name<>Application("zhbg_adminuser") then Response.Redirect "../chat/readonly/bomb.htm"
%>
<SCRIPT LANGUAGE="JavaScript">
function DoTitle(addTitle) {
var revisedTitle;
var currentTitle = document.PostTopic.gs.value;
revisedTitle = addTitle;
document.PostTopic.gs.value=revisedTitle;
document.PostTopic.gs.focus();
return; }
</script>
<style type='text/css'>");
body{font-family:"黑体";font-size:12pt;}td{font-family:"宋体";font-size:10pt;line-height:125%;FILTER: dropshadow(color=#ffffff,offx=1,offy=1);}
A{color:black;text-decoration:none;}
body {
	background-color: #ffffff;
}
</style><body bgColor=#dcdec6 text=#000000 link=#003366 vLink=#006666>
<div align="center">
<font color="FF9900">【发送告示】</font>
<hr noshade size="1"  width=50%>
<form method="post" action="gsok.asp" name="PostTopic">
 <div align="center">
<SELECT name=gslist onchange=DoTitle(this.options[this.selectedIndex].value)> 
<OPTION selected value="">快速指令</OPTION> 
<OPTION value="购买国度会员，支持国度发展！<a href=http://www.oneidc.cn/ target=_blank>购买会员</a>">购买国度会员</OPTION>
<OPTION value="购买国度程序、国度空间，请登陆<a href=http://www.oneidc.cn/ target=_blank>爱情国度总站</a>">购买国度最新程序</OPTION>
<OPTION value="祝大家玩得开心^O^本站国度为您提供良好的聊天环境！">祝大家玩得开心^O^</OPTION>
</SELECT><br>
    <br>
<input type="text" name="gs" size="50" maxlength="250">
<input type="submit" name="Submit" value="发送">
<input type="reset" name="reset" value="重写"></form></div>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>