管理用户踢人文件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<51 and chatdata(sendid,1)=Request.ServerVariables("remote_addr") then
    if session("admlevel")="9" then
    reciid=finduser(whoto)
select case adbut
case "sip"
    if reciid<51 then
    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 reciid<51 and sendid<>reciid then
     kicklist=application("kicklist")    
     if instr(kicklist,",'"&chatdata(reciid,1)&"'")<1 then
     kicklist=kicklist&",'"&chatdata(reciid,1)&"'"
     chatpoin=chatpoin+1 mod 50
     chatcomm(chatpoin)="'"&right("0"&time,8)&",系统,0,所有人,ff0000,0,"&whoto&"所在的IP被管理员踢出了聊天室'"