📄 unload.asp

📁 asp+Access开发的客户资源管理系统,用户名:admin,密码:

💻 ASP

字号:

<%
'if Application("TotalUsers")>1 then Application("TotalUsers")=Application("TotalUsers")-1



RefreshTime = 20        

Dim Temp()

If Session("UserName") = "" Then
  Response.Write "User 参数没有设定 !!"
End If

NewUser = Session("UserName")

Application.Lock

If Application(NewUser & "LastAccess") = Empty Then
  If Application("TotalUsers") = Empty Then Application("TotalUsers") = 0
  Redim Temp(Application("TotalUsers") + 1)
  No = 0
  For I = 0 To Application("TotalUsers") - 1
    Item = Application("OnLineUser")(I)
    If Item <> Session("UserName1") And Item <> NewUser Then
      Temp(No) = Item
      No = No + 1
    Else
      Application(Item & "LastAccess") = Empty
    End If
  Next
  Session("UserName1") = NewUser
  Temp(No) = Session("UserName1")
  Application("TotalUsers") = No + 1
  Redim Preserve Temp(Application("TotalUsers"))
  Application("OnLineUser") = Temp
End If

Application(NewUser & "LastAccess") = Timer

If RefreshTime < 10 Then RefreshTime = 10
IdleTime = RefreshTime * 3

ReDim Temp(Application("TotalUsers"))
No = 0
For I = 0 To Application("TotalUsers") - 1
  Item = Application("OnLineUser")(I)
  If Abs(Application(Item & "LastAccess") - Timer) < IdleTime Then
    Temp(No) = Item
    No = No + 1
  Else
    Application(Item & "LastAccess") = Empty
  End If
Next

If No <> Application("TotalUsers") Then
  Redim Preserve Temp(No)
  Application("OnLineUser") = Temp
  Application("TotalUsers") = No
End If

OnLineUser = Application("OnLineUser")
TotalUsers = Application("TotalUsers")

Application.UnLock


Application(request("UserId") & "LastAccess")=Empty
'Application(session("username") & "LastAccess")=Empty
session("username")=""
%>

<HTML><BODY>
正在备份数据...
<SCRIPT LANGUAGE="JavaScript">
window.close();
</SCRIPT>
</BODY></HTML>
<html><script language="JavaScript">                                                                  </script></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -