asp 在线人数统计代码

只要复制代码表中到一个文本文件并将其保存在主目录中的网站（ “ / 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") %>人.