管理用户踢人文件admin/admin.asp

管理用户踢人文件admin/admin.asp
user=request.form("user")
adbut=request.form("kaction")
whoto=request.form("hdish")
%>
chatdata=application("chatdata")
chatcomm=application("chatcomm")
chatpoin=application("chatpoin")
sendid=finduser(user)
if sendid    if session("admlevel")="9" then
    reciid=finduser(whoto)
select case adbut
case "sip"
    if reciid    dispstr=right("0"&time,8)&",系统,0,"&user&",ff0000,0,"&whoto&"的IP地址是"&chatdata(whotoid,1)
     else
        dispstr=right("0"&time,8)&",系统,0,"&user&",ff0000,0,"&whoto&"不在此聊天室"
     end if
%>case "kip"
    if reciidreciid then
     kicklist=application("kicklist")    
     if instr(kicklist,",'"&chatdata(reciid,1)&"'")     kicklist=kicklist&",'"&chatdata(reciid,1)&"'"
     chatpoin=chatpoin+1 mod 50
     chatcomm(chatpoin)="'"&right("0"&time,8)&",系统,0,所有人,ff0000,0,"&whoto&"所在的IP被管理员踢出了聊天室'"