exit.asp.txt

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

<%
  Application.Lock
  p = Session("UserName")
  a = Application("user")
  n = ubound(a)
  For i = 0 To n
    If a(i) = p Then Exit For
  Next
  For k = i To n - 1
    a(k) = a(k + 1)
  Next
  Redim preserve a(n - 1)
  Application("user") = a
  a = Application("Talk")
  n = ubound(a)
  For i = n To 1 Step -1
    a(i) = a(i - 1)
  Next
  a(0) = "<FONT size=1>(" & time & ")</FONT> " & p & "走了！"
  Application("Talk") = a
  Application.Unlock
%>
<SCRIPT language="VBScript">
  Top.Location="Login.htm"
</SCRIPT>