exit.asp.txt

ASP 网页数据库短训教程源码

<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>