📄 global.asa
字号:
<script language="vbscript" runat="server">
Sub Application_OnStart 'Application_OnStart 当任何客户首次访问该应用程序的首页时运行
Application("ActiveUserCounter") = 0
End Sub
Sub Session_OnStart 'Session_OnStart 当客户首次运行 ASP 应用程序中的任何一个页面时运行
Session.Timeout = 20
Application.Lock
Application("ActiveUserCounter") = Application("ActiveUserCounter") + 1
Application.UnLock
End Sub
Sub Session_OnEnd 'Session_OnEnd 当一个客户的会话超时或退出应用程序时运行
Application.Lock
Application("ActiveUserCounter") = Application("ActiveUserCounter") - 1
Application.UnLock
End Sub
Sub Application_OnEnd 'Application_OnEnd 当该站点的 WEB 服务器关闭时运行
End Sub
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -