'寻找未被使用的空间 For i = 1 To Application("ClientMax") If Application("User_Status_" & i) = 0 Then '使用者暂时编号 Session("Index") = i '锁定 Application Application.Lock '设成已使用的状态 Application("User_Status_" & i) = 1 '放入变量数据 Application("User_Account_" & i) = Account Application("User_Logtime_" & i) = Now() '解除锁定 Application.Unlock Exit For End If Next |
Response.Write(Application("User_Account_" & Session("Index")) |
'锁定 ApplicationApplication.Lock '放入变量数据 Application("User_Account_" & Session.SessionID) = Account Application("User_Logtime_" & Session.SessionID) = Now() '解除锁定Application.Unlock |
Response.Write(Application("User_Account_" & Session.SessionID)) |
新闻热点
疑难解答