ASP Global.asa 统计在线用户数

Global.asa '这个名字可不能改名字不然无效,这个是比较简单的统计.很不错

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

Sub Application_OnStart

' 这里运用了Application_OnStart事件

' 在这里定义用户在线有效期的时间

Session.Timeout = 3

' 使用lock方法，防止多个用户同时修改变量值而造成的数据不真实

Application.Lock

' 给变量赋初值：0

Application("WhosOn") = 0

' 对application变量解锁

Application.UnLock

End Sub

Sub Session_OnStart

' 这里运用了Session_OnStart事件

' 在这里统计在线人数（千万不要忘了使用application变量的lock和 ' unlock方法）

Application.Lock

Application("WhosOn") = Application("WhosOn") + 1

Application.UnLock

End Sub

Sub Session_OnEnd

' 这里运用了Session_OnEnd事件

Application.Lock

Application("WhosOn") = Application("WhosOn") - 1

Application.UnLock

End Sub

</SCRIPT>

main.asp....这个是另一个网页要注意

<%

response.write "目前有" & Application("WhosOn") & " 位用户在这个页面。"

%>