利用ASP显示当前在线人数

最新推荐文章于 2015-04-27 15:56:00 发布

原创最新推荐文章于 2015-04-27 15:56:00 发布 · 944 阅读

CC 4.0 BY-SA版权

文章标签：

#asp #application #vbscript #session #服务器 #cgi

<a href='http://www.biancheng88.cn/html/2008-11/ASP-ZaiXian7.html'>利用ASP显示当前在线人数</a> 
　　眼下，作网站已成为一种时尚，各式各样的网站如雨后春笋般冒了出来。有用CGI制作的，有用ASP制作的，还有用PHP制作的，不一而足。有一些网站则能统计出当前的在线人数，如：“目前有32人在线”。那么，用ASP制作的网站怎样显示当前的<a href="http://www.biancheng88.cn/html/special/2008-11/ZaiXian/" title="在线" target=_blank>在线</a>人数呢？ 
 
　　当用ASP制作的网页都存放与WWW服务器的基点目录并且WWW服务器启动之后，每当有对ASP文件的HTTP请求时，服务器都会去读取基点目录下的Global.asa文件。为了统计网站的在线人数，我们可以在Global.asa文件中包含如下代码： 
 
<SCRIPT LANGUAGE="VBScript" RUNAT="Server"> 
Sub Application_OnStart 
 
　　' 当服务器开启时，设置用户计数器为0 
Application("ActiveUsers") = 0 
End Sub 
Sub Session_OnStart 
 
　　' 设置Session对象的有效时间为20分钟（也可以更长，但是越长对服务器的资源' 占用越多，因为服务器不接受少于20分钟的有效时间，所以设置少于20分钟的'有效时间是无效的） 
Session.Timeout = 20 
 
　　' 当开始一个Session时用户计数器加1 
Application.Lock 
Application("ActiveUsers") = Application("ActiveUsers") + 1 
Application.UnLock 
End Sub 
Sub Session_OnEnd 
 
　　' 当结束一个Session时用户计数器减1 
Application.Lock 
Application("ActiveUsers") = Application("ActiveUsers") - 1 
Application.UnLock 
End Sub 
</SCRIPT> 
 
　　这样，网站的在线人数就被统计出来了，我们可以利用如下一个<a href="http://www.biancheng88.cn/html/special/2008-11/ASP/" title="ASP" target=_blank>ASP</a>页面(js.asp)将它显示出来： jsh.asp: 
<%@ Language=VBScript %> 
<HTML> 
<HEAD> 
<TITLE>统计在线人数</TITLE> 
</HEAD> 
<BODY> 
当前<a href="http://www.biancheng88.cn/html/special/2008-11/ZaiXian/" title="在线" target=_blank>在线</a><%= Application("ActiveUsers") %>人 
</BODY> 
</HTML> 
 
　　以上代码是我在Win NT(IIS 4.0)下调试并通过了的