Ö÷¶¯À뿪leave.aspºÍ±»¶¯À뿪kickout.htm(±»ÌßÂï)

³ó½£¿Í

Ö÷¶¯À뿪£ºleave.asp

<%
response.expires=0
sendid=session("userid")
if sendid<>"" then
  chatdata=application("chatdata")
  onliuser=application("onliuser")
  if chatdata(sendid,1)=request.servervariables("remote_addr") then 'ÑéÖ¤Óû§IPµØÖ·
    onliuser=replace(onliuser,",'"&chatdata(sendid,0)&"'","")
    for i=0 to 50
        chatdata(i,4)=(chatdata(i,4) mod 4) +4  '֪ͨ¸üÐÂÃûµ¥
    next
    chatdata(sendid,0)=""  'Çå¿ÕÓû§Ãû
    chatdata(sendid,1)=""  'Çå¿ÕIpµØÖ·
    chatdata(sendid,3)=""  'Çå¿Õ˽ÁÄÄÚÈÝ
    chatdata(sendid,4)=0  'Çå¿ÕȨÏÞºÍÒôÀÖ¿ª¹Ø¼°Ãâ´òÄÓ¿ª¹Ø
    chatdata(sendid,5)=""  'Çå¿ÕÒþ²ØÃûµ¥
    application.lock
      application("chatdata")=chatdata
      application("onliuser")=onliuser
    application.unlock
  end if
end if
session("userid")=""
response.redirect "login.asp"


function finduser(fuser)
  reval=100

  for i=0 to 99
    if chatdata(i,0)=fuser then
      reval=i
      exit for
    end if
  next
  finduser=reval
end function
%>


±»¶¯À뿪£ºkickout.htm
<script language="javascript">
<!--
if (self.parent.frames.length != 0)top.location=document.location.href;
// -->
</script>
<br><br><br><center><font size=5>Äã±»Õâ¸öÁÄÌìÊҵĹÜÀíÔ±Ìß³öÁ˱¾ÁÄÌìÊÒ</font></center>