Release kicked IP file releip.asp
<%
User=request.form ("User")
%><meta http-equiv= "Refresh" content= "4; Url=.. /refresh.asp?user=<% =user%> ">
<%
Chatdata=application ("Chatdata")
Kicklist=application ("Kicklist")
If session ("admlevel") = "9" Then
Sendid=finduser (user)
If Sendid<51 Then
If Chatdata (sendid,1) =request.servervariables ("REMOTE_ADDR") Then
Tkicklist= ""
Do While InStr (Kicklist, ", ' #") >0
Address1=instr (Kicklist, ", ' #")
Address2=instr (Address1+3,kicklist (room), "'")
Tkicklist=tkicklist&mid (KICKLIST,ADDRESS1,ADDRESS2)
Kicklist=mid (kicklist,address2+1)
Loop
Kicklist=tkicklist
Application.Lock
Application ("Kicklist") =kicklist
Application.UnLock
Dispstr=right ("0" &time,8) & ", System, 0," &user& ", ff0000,0, successfully cleared kicked IP address"
End If
End If
End If
If dispstr<> "" Then
%>
<script language= ' JavaScript ' >
Parent.comm=new Array (' <% =dispstr%> ');
Parent.writecomm ();</script>
<%
End If
function Finduser (fuser)
reval=100
For I=0 to 50
If Chatdata (i,0) =fuser Then
Reval=i
Exit For
End If
Next
Finduser=reval
End Function
%>