asp 在线人数统计代码

只要复制代码表中到一个文本文件并将其保存在主目录中的网站（ “ / Globalasa中” ）

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
application("activevisitors")=
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
applicationlock
application("activevisitors")=application("activevisitors")+
applicationunlock
End Sub

Sub Session_OnEnd
applicationlock
application("activevisitors")=application("activevisitors")
applicationunlock
End Sub

</SCRIPT>

第一次的访客进入我们的网页 Globalasa中将被处死因此Application（ “ activevisitors ” ）在号线将获得价值等于“ ” 立即（作为一个新的会议已经开始） 在号线Application（ “ activevisitors ” ）将增加 每当有新的访客进入我们的网页Application（ “ activevisitors ” ）将增加一个相同的每一次会议结束后这个参数将减少一（线条）

在情况下我们要显示的访客人数在我们的网页上我们必须使用这种代码

在asp页面中加上如下当前在线人数<% =application("activevisitors") %>人