📄 global.asa

📁 asp开发 asp开发 asp开发 asp开发

💻 ASA

字号:

<Script LANGUAGE="VBScript" RUNAT="SERVER">
Sub Application_OnStart()
	Application.Lock()
	Application("whosOn") = 0
	Application.UnLock()
End Sub
Sub Session_OnStart()
	Application.Lock()
	Application("whoson") = Cint(Application("whoson")) + 1
	Application.UnLock()
End Sub
Sub Session_OnEnd()
	Application.Lock()
	Application("whoson") = Cint(Application("whoson")) - 1
	Application.UnLock()
End Sub
</Script>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -