在线统计代码 application- ASP - 软晨网（RuanChen.com）

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 在线统计代码 application

技术文章搜索

关键字

ASP 中的在线统计代码 application

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 83 ::

收藏到网摘: n/a

ASP制作在线人数统计实例统计在线人数 dxy

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

以下内容为程序代码

<script language="vbscript" runat="server">
sub application_onstart
application("activeusers") = 0 　//初始值
end sub
sub session_onstart
session.timeout = 20 　　 //删除不活动用户的时间
session("start") = now
application.lock 　　　　　 //锁定application变量
application("activeusers") = application
("activeusers") + 1 　　　　 //统计
application.unlock 　　　 //解锁
end sub
sub session_onend
application.lock
application("activeusers") = application
("activeusers") - 1 　　　 //删除不活动用户或退出用户
application.unlock
end sub
</script>

显示在线用户数量的页面

以下内容为程序代码

<%@ language=vbscript %>
<html>
<head>
<title>在线用户</title>
</head>
<body>
<b>当前共有<font color="#cc0000"><%= application("activeusers") %></font> 人在线</b>
</body>
</html>

最普通的方法是用SESSION，但缺点是无法即时反应在线情况（有超时时间）和占用服务器资源（如果有100人在线就有100个SESSION，想想看8）；上次（好象间隔很久了耶）介绍了一种采用APPLICATION+COOKIES的方法，但实现方法有些烦琐同时还要设一个隐藏的自刷新页面。
这种方法则避免了以上的弊病，经实践，效果不错（例子：WWW。ATERSOFT。COM/BBS），具体如下：
假定INDEX。HTM为框架网页，包含ID=LEFT，ID=TOP和ID=BOTTOM的三个框架
1、做个统计页面USERNUM。ASP
<p>正在统计数据。。。</p>
<%
user=request.querystring("user")
if user=0 then '如果离开则人数-1
application.lock
application("num")=application("num")-1
application.unlock
response.write "<script>self.close();</script>"
elseif user=1 then '如果进入则+1
application.lock
application("num")=application("num")+1
application.unlock
end if
%>
2、在框架页面中如（INDEX。HTM）嵌入USERNUM。ASP
<body onbeforeunload="window.open('usernum.asp?user=0','num','menubar=no')">
......
<iframe src="usernum.asp?user=1" frameborder=0 width=0 height=0></iframe>
3、在需要显示人数的页面（假定在LEFT显示）中加入
<div id=num><%=application("num")%></div>
4、设定需要更新数据的页面（如BOTTOM）
function tj(){
top.left.num.innerHTML=<%=application("num")%>;
}
<body onload="tj()">
完毕，这只是一个例子，具体应用可以灵活，另外，为什么当离开时要WINDOW。OPEN USERNUM。ASP呢？因为如果同样放在IFRME中，窗口关得太快，USERNUM。ASP页面来不及装载就关掉了无法减少人数

ASP制作在线人数统计实例统计在线人数 dxy

ASP 中的 在线统计代码 application

评论 (0) All

ASP 中的在线统计代码 application