只要复制代码表中到一个文本文件并将其保存在主目录中的网站（ “ / Global.asa中” ） 。
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
application("activevisitors")=0
End Sub
Sub Application_OnEnd
End Sub
Sub Session_OnStart
application.lock
application("activevisitors")=application("activevisitors")+1
application.unlock
End Sub
Sub Session_OnEnd
application.lock
application("activevisitors")=application("activevisitors")-1
application.unlock
End Sub
</SCRIPT>
第一次的访客进入我们的网页， Global.asa中将被处死，因此，Application（ “ activevisitors ” ）在4号线将获得价值等于“ 0 ” 。立即（作为一个新的会议已经开始） ，在12号线，Application（ “ activevisitors ” ）将增加1 。每当有新的访客进入我们的网页Application（ “ activevisitors ” ）将增加一个，相同的，每一次会议结束后，这个参数将减少一（线18条） 。
在情况下，我们要显示的访客人数在我们的网页上，我们必须使用这种代码：
在asp页面中加上如下.当前在线人数<% =application("activevisitors") %>人.
【asp 在线人数统计代码】相关文章：
★ asp缓存类