l.asp

基于ASP开发的聊天室源码

<%
Response.Expires=0
Response.ExpiresAbsolute=Now()-1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
Dim nowline,newline
If not IsArray(Session("info")) Then
Response.Write "<script language='javascript'>top.location.href='err.asp?kind=20';</script>"
Response.End
End If
info = Session("info")
If InStr(Application("maninfo"),"," & info(0) & ",") <> 0 Then Response.Redirect "manyou.asp"
words = Application("zzbird_words")
nowline = info(8)
Response.Write ("<Script Language='JavaScript'>" & _
"parent.timev='" & time & "';")
If InStr(Application("giveyou"),"," & info(0) & ";") <> 0 Then Response.Write "parent.giveyou.location.href='giveyou.asp';"
Response.Write "</Script>"
If nowline = Application("zzbird_line") Then Response.End
Dim show()
Redim Preserve show(0)
j = 1
newline = 0
For i = 1 to 240 step 6
 newline = words(i)
 If newline > nowline and newline > 0 and not (words(i + 3) = "onlysay" and words(i + 2) <> info(0) and words(i + 1) <> info(0) or words(i + 3) = "callyou" and InStr(words(i + 2),info(0)&"|") <> 1) Then
  Redim Preserve show(j + 4)
  show(j) = words(i + 1)
  show(j + 1) = words(i + 2)
  show(j + 2) = words(i + 3)
  show(j + 3) = words(i + 4)
  show(j + 4) = words(i + 5)
  j = j + 5
 End If
Next
Response.Write "<Script Language=JavaScript>var myroom = '" & info(6) & "';"
Response.Write "if(window==window.top){top.location.href='chat.asp?fp=1';}if(parent.nowroom!=myroom){parent.nowroom=myroom;}"
For i = 1 to UBound(show) step 5
Response.Write "parent.w(" & chr(34) & show(i) & chr(34) & "," & chr(34) & show(i + 1) & chr(34) & "," & chr(34) & show(i + 2) & chr(34) & "," & chr(34) & show(i + 3) & chr(34) & "," & chr(34) & show(i + 4) & chr(34) & ");" & chr(13) & chr(10)
Next
Response.Write "</Script>"
If newline > nowline Then info(8) = newline
Session("info") = info
%>