ASP统计在线人数代码

ASP统计在线人数代码

在　Global.asa　中加入

程序代码 程序代码
<script language="VBScript" runat="server">
Sub Application_OnStart
    Application.LockApplication("user_online")=0
    Application.Unlock
End Sub

Sub Session_onStart
    Application.Lock
    Application("user_online")=Application("user_online")+1
    Application.Unlock
End Sub

Sub Session_OnEnd
    Application.LockApplication("user_online")=Application("user_online")-1
    Application.Unlock
End Sub
</script>