📄 exit.asp.txt
字号:
<SCRIPT Language="VBScript">
<%
Application.Lock
' 暂时阻止其他用户改变应用程序变量
p = Session("UserName")
Application("user") = Replace(Application("user"), p & "<BR>", "")
' 从用户列表中删除该用户
For i = 5 To 1 Step -1
Application("Talk"& i) =Application("Talk"& (i-1))
Next
Application("Talk"& 0) = "(" & time & ") " & p & "走了!"
' 告知用户离线
Application.Unlock
' 解锁
%>
top.location="Login.htm"
' 返回登录页面
</SCRIPT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -