exit.asp

asfd asf

<%

  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>