global.asa
来自「个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站」· ASA 代码 · 共 22 行
ASA
22 行
<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 + =
减小字号Ctrl + -
显示快捷键?