实现聊天室的悄悄话功能（下）（转贴）

《% @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   
  
‘’是否在捣乱？   
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   
  
‘’公告   
  
if session("zj_1public")《》application("zj_1public") then   
%》   
parent.middle.document.writeln("《%=application("zj_1public")%》")   
  
《%   
session("zj_1public")=application("zj_1public")   
end if   
  
‘’有耳语吗？   
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")=application("zj_1chat")   
end if   
  
application("peoplezj_1_appear"&n)   
  
count=0   
for n=1 to 40   
if application("peoplezj_1"&n)《》"" then   
count=count+1   
  
end if   
next   
if session("zj_1total")《》count then   
session("zj_1total")=count   
session("zj_1refresh")="true"   
%》   
《/script》   
  
《%   
end if   
  
response.flush   
  
%》

原文转自：http://www.ltesting.net