global.asa

来自「大家好」· ASA 代码 · 共 26 行

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnStart
Session.timeout=10
End Sub
Sub Session_OnEnd
' when a user timeout then empty his application("user(i))")
for i=1 to 40
   if application("user" & i)=session("username") then
        application("user" & i)="mjj"&i
        exit for
   end if
next    
End sub
sub Application_OnStart
application("mjj")="The variable is a test!11111111111"
  for i=1 to 40
        application("user" & i)="mjjapp"&i
  next   
End sub
sub Application_OnEnd
  for i=1 to 40
        application("user" & i)=""
  next    
End sub
</SCRIPT>