Download the last one: the chat is used to block people who don't want to see admin/hideuser.asp
<%
Whoto=request.form ("Whoto")
User=request.form ("User")
Screen=request.form ("Hdish")
Chatdata=application ("Chatdata")
Select Case Screen
Case "1"
Sendid=finduser (user)
Reciid=finduser (Whoto)
If sendid<51 and reciid<51 then
If InStr (Chatdata (sendid,5), ", '" &whoto& "") <1 Then
Chatdata (sendid,5) =chatdata (sendid,5) & "," "&whoto&" "
Application.Lock
Application ("Chatdata") =chatdata
Application.UnLock
Dispstr=right ("0" &time,8) & ", System, 0," &user& ", ff0000,0, you successfully blocked" &whoto& "chat content"
Else
Dispstr=right ("0" &time,8) & ", System, 0," &user& ", ff0000,0," &whoto& "already in the Shield list.
End If
Else
If reciid=51 then Dispstr=right ("0" &time,8) & ", System, 0," &user& ", ff0000,0," &whoto& "not in this chat room"
End If
Case "0"
Sendid=finduser (user)
Reciid=finduser (Whoto)
If Sendid<51 Then
If whoto= "Everyone" then
Chatdata (sendid,5) = ""
Else
Chatdata (sendid,5) =replace (Chatdata (sendid,5), ", '" &whoto& "", "" ")
End If
Dispstr=right ("0" &time,8) & ", System, 0," &user& ", ff0000,0, you successfully removed the" &whoto& "Chat content shielding"
Application.Lock
Application ("Chatdata") =chatdata
Application.UnLock
End If
Case "2"
Sendid=finduser (user)
Dispstr=right ("0" &time,8) & ", System, 0," &user& ", ff0000,0, you shielded:" &mid (replace Chatdata (sendid,5), " ' "," "), 2)
End Select
function Finduser (fuser)
reval=51
For I=0 to 50
If Chatdata (i,0) =fuser Then
Reval=i
Exit For
End If
Next
Finduser=reval
End Function
%>
<script language= ' JavaScript ' >
Parent.comm=new Array (' <% =dispstr%> ');
Parent.writecomm ();</script>
<meta http-equiv= "Refresh" content= "60; Url=.. /refresh.asp?room=<% =room%>&user=<% =user%> ">
