<!--#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")="SetNoManager.asp" 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 not InStr(Keys,"|"&UID&"|")>0 then RW "var ManagerRe='对方不是管理员！';":REND
	RS("i_Sys_Room_ManagerUsers")=Replace(Keys,UID&"|","")
	RS.update()
	RS_End
	RW "var ManagerRe=true;$('#ManagerList')[0].removeChild($('#ManagerList').find('#"&UID&"')[0]);SetManagerNum($('#ManagerList').find('li').length);PostNoManager("&UID&");"
	Rend
end if



%>