利用ASP显示当前在线人数


答案：
   眼下，作网站已成为一种时尚，各式各样的网站如雨后春笋般冒了出来。有用CGI田响建站制作的，有用ASP田响建站制作的，还有用PHP田响建站制作的，不一而足。有一些网站则能统计出当前的在线人数，如：“目前有32人在线”。那么，用ASP田响建站制作的网站怎样显示当前的在线人数呢？
    当用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>

这样，网站的在线人数就被统计出来了，我们可以利用如下一个ASP页面(js.asp)将它显示出来： jsh.asp: 

<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>统计在线人数</TITLE>
</HEAD> 
<BODY>
<B><FONT COLOR="#CC0000">当前在线<%= Application("ActiveUsers")%>人
</FONT></B>
</BODY>
</HTML>

     以上代码在Win NT(IIS 4.0)下调试并通过。
上一个：实现图片上传并存入数据库中
下一个：用ASP实现悄悄话的功能
更多图片编程知识: