设为首页
加入收藏
站内地图
旧版入口
当前位置:首页 > 站长学院 > 网络编程 > ASP

实现聊天室的悄悄话功能(下)(转贴)

作者:佚名 出处:网络转载 时间:11-19 点击:

内容载入中...
您的支持我们的动力 upschool.com.cn 《% @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   
  
%》
收藏本文:
】【打印页面】【推荐给朋友】【关闭窗口

站长学院

推荐信息