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") %>人.

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!