'尋找未被使用的空間 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)) |
新聞熱點
疑難解答