📄 global.asa
字号:
<Script Language="VBScript" Runat="Server">
Sub Session_OnStart
'设定有效执行时间为10分钟
Session.timeout=10
End Sub
Sub Session_OnEnd
'当一个用户超过有效执行时间,清空在application对象中的用户共享信息
for i=1 to 60
if application("user"&i)=session("name") then
application("ip"&i)=""
application("user"&i)=""
end if
next
End Sub
Sub Application_OnStart
End Sub
Sub Application_OnEnd
'清空用户会话信息的同时清空保存在application对象中的信息
for i=1 to 60
if application("user"&i)=session("name") then
session("name")=""
application("ip"&i)=""
application("user"&i)=""
end if
next
End Sub
</Script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -