不存在的聊天室！") end if if IDS="" or IsNumeric(IDS)=false then Call Error("
错误的会员ID！") end if IDS = abs(IDS) if IDs = myid then Call Error("
不能踢自己！") end if dim userkey set rs=server.createobject("ADODB.Recordset") rs.Open "select keys from Users where ID = "&IDS,conn,1,1 if not rs.eof then userkey=rs("keys") end if rs.close set rs=nothing if userkey = 1 then Call Error("
你想踢管理员？") end if dim acok acok = trim(Request.QueryString("acok")) if acok <> "ok" then conn.close set conn=Nothing Response.write "
确定把ID"&IDs&"踢出？"
Response.write "
确定"
Response.write "
不存在的聊天室！") end if '管理员 dim AdminID AdminID = 0 if Instr(","&rs("roomadmin")&",",","&myid&",") > 0 then AdminID = myid end if if abs(gruid)=adminzone then else if myid = AdminID or keys = 1 then else rs.close set rs=Nothing Call Error("
您没有管理权限！")
end if
end if
if Instr(","&rs("chathall")&",",","&IDS&",") = 0 then
if rs("chathall") <> "" then
rs("chathall") = rs("chathall")&","&IDS
else
rs("chathall") = IDS
end if
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=Nothing
response.write "
踢出成功！"&chr(13)
Response.write "
返回房间"&chr(13)
Response.write "