Realize the chat room of the private message (next) (paste)

Chat room% @language = "VBScript"%
《%
Response.expires=0
' Response.buffer=true
%》
Meta http-equiv= "Refresh" content= "2.5"
"Body bgcolor=" "%=application (" Zj_1color ")%" topmargin= "0" leftmargin= "0"
"I" "Center" "Font color=" #FFFF00 "size=4" "%=application (" Zj_1title ")%"/font ""/center "" I "
《%
If session ("userzj_1") = "" Then
Session ("userzj_1") = ""
Session ("zj_1level") = ""
Session ("Zj_1start") = ""
Session ("Zj_1total") =0
Session ("zj_1boot") = ""
Session ("Zj_1counter") =0
Session ("Zj_1open") = ""
' Session.Abandon
%》
Script language= "JavaScript"
parent.location= "Timeout.htm"
"/script"
《%
Response.End
End If

' Are you messing with me?
For N=1 to 40
If session ("Userzj_1") =application ("Peoplezj_1" &n) Then
Exit For
End If

If N=40 Then
Session ("zj_1boot") = "true"
%》
Script language= "JavaScript"
parent.location= "Boot.htm"
"/script"
《%
End If

Next
%》
Script language= "JavaScript"
《%

If session ("Zj_1counter") "Application" ("Zj_1counter") Then
If session ("Zj_1counter") Application ("Zj_1counter") Then
For I=session ("Zj_1counter") +1 to Application ("Zj_1counter")
%》
Parent.middle.document.writeln ("%=application (" Zj_1chats ") (i)%")
《%

Next

Else
For I=session ("Zj_1counter") to 20
If Application ("Zj_1counter") "1 Then
%》
Parent.middle.document.writeln ("%=application (" Zj_1chats ") (i)%")
《%
End If
Next

For I=1 to Application ("Zj_1counter")

%》
Parent.middle.document.writeln ("%=application (" Zj_1chats ") (i)%")
《%
Next
End If

If session ("Zj_1open") = "true" Then

Session ("Zj_1counter") =application ("Zj_1counter")
End If
End If

' Bulletin

If session ("Zj_1public") "Application" ("Zj_1public") Then
%》
Parent.middle.document.writeln ("%=application (" zj_1public)% ")

《%
Session ("Zj_1public") =application ("Zj_1public")
End If

' Is there a whisper? '
If session ("Zj_1chat") "Application" ("Zj_1chat") Then
If Application ("Zj_1owner") =session ("Userzj_1") or Application ("Zj_1chatto") =session ("Userzj_1") or application ("ZJ _1chatto ") =" All "Then

%》
Parent.middle.document.writeln ("%=application (" zj_1chat)% ")
《%
End If
Session ("Zj_1chat") =a