<%@ 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"
if zhbg_name<>Application("zhbg_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")
conn.open Application("zhbg_usermdb")
conn.Execute "update 用户 set 事件原因='警告:\n您在我们这里办理会员："&request.querystring("mess")&"，\n如再不付款我们会删除你的id!' where 姓名='"&request.querystring("name")&"'"
conn.close
set conn=nothing
Response.Write "<script Language=Javascript>alert('提示：用户["&request.querystring("name")&"警告完成！]');history.go(-1);</script>"
response.end
%>
