<%@ LANGUAGE=VBScript codepage ="936" %>
<!--#include file="../config.asp"-->
<%Response.Expires=0
Response.Buffer=true
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
nowinroom=session("nowinroom")
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"
if zhbg_name<>Application("zhbg_admin") then Response.Redirect "../error.asp?id=439"
select case Request.QueryString("rst")
case "0"
response.write "<LINK href=../css.css type=text/css rel=stylesheet><body bgColor=#dcdec6 text=#000000 link=#003366 vLink=#006666>按这里<a href='jh_reset.asp?rst=1'>给聊天室所有房间发送重启动告示</a><br><br> 请注意只有修改[聊天房间]参数后或者系统出现意外的错误时才需要[重启系统]"
response.end
case "1"
says="<font size=5 color=red><b>【系统重启】国度将在3分钟后重新启动，请存点退出！</b></font>"
act="消息"
towhoway=0
towho="大家"
addwordcolor="660099"
saycolor="008888"
addsays="对"
saystr="<script>parent.sh("& chr(39) & addwordcolor & chr(39) &","& chr(39) & saycolor & chr(39) &","& chr(39) & act & chr(39) &","& chr(39) & zhbg_name & chr(39) &","& chr(39) & addsays & chr(39) &","& chr(39) & towho & chr(39) &"," & chr(39) & says & chr(39) &"," & towhoway &  ","& nowinroom & ");<"&"/script>"
addmsg saystr
Function Yushu(a)
	Yushu=(a and 31)
End Function
Sub AddMsg(Str)
Application.Lock()
Application("SayCount")=Application("SayCount")+1
i="SayStr"&YuShu(Application("SayCount"))
Application(i)=Str
Application.UnLock()
End Sub
response.write "<LINK href=../css.css type=text/css rel=stylesheet><body bgColor=#dcdec6 text=#000000 link=#003366 vLink=#006666>通知发送完成!返回再次<a href='jh_reset.asp?rst=0'>通知</a>,按这里<a href='jh_reset.asp?rst=2'>重启动系统</a>"
response.end
case "2"
call Gohome()
Application("st_gohome")="go"
call Gouser()
Session("Gohome")="go"
case else
response.end
end select
sub Gohome
zhbg_data="../116722683/116722683_ffgd.asp"
Application("zhbg_room")=""
Application("zhbg_npc")=""
Application("zhbg_usermdb")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(zhbg_data)
'网友照片数据库
Application("picmdb")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../116722683/pic.asp")
'国度秀数据库
Application("showmdb")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../116722683/show.asp")
Application("jhshowurl")="http://qqshow-item.tencent.com"    	'这是使用tencent的图片
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "SELECT * FROM r",conn
 do while Not rs.Eof
Application("zhbg_room")=Application("zhbg_room")&rs("a")&"|"&rs("b")&"|"&rs("c")&"|"&rs("d")&"|"&rs("e")&"|"&rs("f")&"|"&rs("g")&"|"&rs("h")&"|"&rs("i")&"|"&rs("j")&"|"&rs("l")&"|"&rs("m")&";"
Application("zhbg_npc"&rs("a"))=""
	rs.MoveNext
 loop
Application("zhbg_copyright")="非凡国度"
Application("zhbg_ver")="精美版v1.0"
Application("zhbg_softuser")=-63617
Application("zhbg_softjm")=-28972
Application("zhbg_tltie")="【"&Application("zhbg_chatroomname")&"】"&Application("zhbg_homepage")&"购买会员支持国度发展("&Application("zhbg_user")&")"
rs.close
set rs=nothing 
conn.close
set conn=nothing
Dim nameindex(0)
zhbg_roominfo=split(Application("zhbg_room"),";")
for roomsn=0 to ubound(zhbg_roominfo)-1
	 Application("zhbg_onlinelist"&roomsn)=nameindex
	 fenroom=split(zhbg_roominfo(roomsn),"|")
	 application("zhbg_chatroomname"&roomsn)=fenroom(0)
	Application("zhbg_useronlinename"&roomsn)=""

next 

 Dim wbq(0)
 Application("zhbg_webicq")=wbq
 webicqname=" "
 Application("zhbg_webicqname")=webicqname
End sub
sub Gouser
 Session.Timeout=1
End Sub
sub Gouser
 Session.Timeout=1
End Sub
%>
<LINK href=../css.css type=text/css rel=stylesheet><body >重启完毕<br><br><a href=../index.asp target=_top>重新登录</a>