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>