global.asaxml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
<script LANGUAGE=”VBScript” RUNAT=”Server”>
Â
Sub Application_OnStart
Application(“ActiveUsers”) = 0
‘ ä»0å¼å§è®¡èµ·.ä¸è¿ä½ å¯ä»¥æå®è®¾å¾æ´å¤å¦,è¿æ ·å³ä½¿æ²¡äººå¨çº¿,人家ä¸æ¥ä½ ç½ç«è¿ä¼çå°æ900å¤äººå¨çº¿å¢.
End Sub
Â
Sub Session_OnStart
Session.Timeout = 20
‘ æSessionè¶ æ¶è®¾ä¸º30åéââè¿æ¯å±å¤´ä¹å ³é®æå¨,ä½ æ³è®¾å¤å°å°±è®¾å¤å°.
Session(“Start”) = Now
‘ Session å¼å§æ¶é´
Â
Application.Lock
Application(“ActiveUsers”) = Application
(“ActiveUsers”) + 1
Application.UnLock
‘ æ¨ä¸ªå¿ç»è®¡çå®ç访é®äººæ°.
End Sub
Â
Sub Session_OnEnd
Â
Application.Lock
Application(“ActiveUsers”) = Application
(“ActiveUsers”) – 1
Application.UnLock
End Sub
Â
</script>
Â
Â
Â
[1]