在线统计代码 application

首先要设置好global.asa 文件,如下

以下内容为程序代码

显示在线用户数量的页面

以下内容为程序代码 <%@ language=vbscript %> 当前共有<%= application("activeusers") %> 人在线

最普通的方法是用SESSION，但缺点是无法即时反应在线情况（有超时时间）和占用服务器资源（如果有100人在线就有100个SESSION，想想看8）；上次（好象间隔很久了耶）介绍了一种采用APPLICATION+COOKIES的方法，但实现方法有些烦琐同时还要设一个隐藏的自刷新页面。 
这种方法则避免了以上的弊病，经实践，效果不错（例子：WWW。ATERSOFT。COM/BBS），具体如下： 
假定INDEX。HTM为框架网页，包含ID=LEFT，ID=TOP和ID=BOTTOM的三个框架 
1、做个统计页面USERNUM。ASP 

正在统计数据。。。

 
<% 
user=request.querystring("user") 
if user=0 then '如果离开则人数-1 
application.lock 
application("num")=application("num")-1 
application.unlock 
response.write "" 
elseif user=1 then '如果进入则+1 
application.lock 
application("num")=application("num")+1 
application.unlock 
end if 
%> 

2、在框架页面中如（INDEX。HTM）嵌入USERNUM。ASP 
 
...... 
 
3、在需要显示人数的页面（假定在LEFT显示）中加入 
<%=application("num")%>

 
4、设定需要更新数据的页面（如BOTTOM） 
function tj(){ 
top.left.num.innerHTML=<%=application("num")%>; 
} 
 
完毕，这只是一个例子，具体应用可以灵活，另外，为什么当离开时要WINDOW。OPEN USERNUM。ASP呢？因为如果同样放在IFRME中，窗口关得太快，USERNUM。ASP页面来不及装载就关掉了无法减少人数