<!--#include file="../inc/Bll.asp"-->
<!--#include file="../inc/Constant.asp"-->
<!--#include file="../inc/Md5.asp"-->
<!--#include file="../inc/App.asp"-->

<%

'uroomid,uface,unick,upaylevelcalss,upaynum
if Request.QueryString("ac")="SetManager" then 
	RS_End
	dim SumPay,SumIncome,CurrentPage,k,Re,RID,isManager,UID,Keys
	if Session(Session_UserID_Arg)="" then RW "var ManagerRe='权限不足！';":REND
	if Request.QueryString("uid")="" then RW "var ManagerRe='参数错误！';":REND
	if not IsNumeric(Request.QueryString("uid")) then RW "var ManagerRe='无法将游客设置为管理员！';":REND
	UID = Request.QueryString("uid")
	if Clng(Session(Session_UserID_Arg))=Clng(UID) then RW "var ManagerRe='无法对自己操作！';":REND
	RS.OPEN "select top 1 * from [i_Sys_Room] where [i_Sys_Room_ID]="&Session(Session_RoomID_Arg) , DB_CONN , 1 , 3
	Keys = RS("i_Sys_Room_ManagerUsers")
	if InStr(Keys,"|"&UID&"|")>0 then RW "var ManagerRe='对方已是管理员！';":REND
	RS("i_Sys_Room_ManagerUsers")=Keys&UID&"|"
	RS.update()
	RS_End
	RW "var ManagerRe=true;PostManager("&UID&");"
	Rend
end if



%>