asp 在线人数统计代码

2015-08-12 16:02:26来源:作者:人点击

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

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台