global.asa
<script LANGUAGE=”VBScript” RUNAT=”Server”>
Sub Application_OnStart
ààà‘ Sub Application_OnStart æ¯好å¨æÂÂå¡å¨æ¯Â次å¯å¨çÂÂæ¶åÂÂæ¿Âæ´»çÂÂæ¹æ³Â.
ÃÂ ÃÂ ÃÂ Session.Timeout = 3 xml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
‘ å®Âä¹Âç¨æ·å¨线æ¶é´,å¦ÂæÂÂå¨å®Âä¹Âæ¶é´å 没æÂÂæ´»å¨è¿ÂæÂÂ¥,Ã¥ÂÂå æÂÂä»ÂçÂÂsession Ã¥ÂÂéÂÂå®Âä¾Â,å°Â堶注éÂÂ.
ÃÂ ÃÂ ÃÂ Application.Lock
ààà‘ ç¨.Lock æ¹æ³ÂéÂÂä½ÂApplication Ã¥ÂÂéÂÂ以继ç»Âè¿Âè¡Â.å¦ÂæÂÂä¸ÂéÂÂ,é£ä¹Âå®Âå¨åÂÂé “WhosOn”ä¸Âä¸Âä¼ÂÃ¥ÂÂçÂÂÃ¥ÂÂÃ¥ÂÂ.
ÃÂ ÃÂ ÃÂ Application(“WhosOn”) = 0
ààà‘ Ã¥ÂÂéÂÂä»Â0å¼Âå§Â.
ÃÂ ÃÂ ÃÂ Application.UnLock
à‘ ç»Âapplication解éÂÂ.
End Sub
Sub Session_OnStart
ààà‘ Sub Session_OnStart æ£ÂæµÂæ¯Âä¸Âæ¶åÂȾ°æÂ¥çÂÂç¨æ·.
ÃÂ ÃÂ ÃÂ Application.Lock
ÃÂ ÃÂ ÃÂ Application(“WhosOn”) = Application(“WhosOn”) + 1
ÃÂ ÃÂ ÃÂ Application.UnLock
‘ æ¤å¤Âæ¯ç¨æ·é 访æ¶å¢Âå çÂÂ计æ°,è®°ä½ÂéÂÂï¼Âå¼ÂApplicationÃ¥ÂÂéÂÂ.
End Sub
Sub Session_OnEnd
ààà‘ Sub Session_OnEnd æ£ÂæµÂæ¯Âä¸Âæ¶åÂȎÂÂåºç½Âç«ÂçÂÂç¨æ·,并å¨Session:Timeout in å®Âä¹ÂéÂÂåºåÂÂå åÂÂéÂÂÃ¥ÂÂ
ä»Â计æ°.
ÃÂ ÃÂ ÃÂ Application.Lock
ÃÂ ÃÂ ÃÂ Application(“WhosOn”) = Application(“WhosOn”) – 1
ÃÂ ÃÂ ÃÂ Application.UnLock
‘ å½ÂæÂÂç¨æ·éÂÂåºæ¶æÂÂ们è¦Â娓WhosOn” Ã¥ÂÂéÂÂä¸ÂÃ¥ÂÂå°Â1个æ°,Ã¥ÂÂæ ·è¦Â对application Ã¥ÂÂéÂÂè¿Âè¡ÂéÂÂï¼Âå¼Â.
End Sub
</script>
count.asp
<%
àresponse.write “è¿Âä¼Âå¿æ” & Application(“WhosOn”) & “人æ£å¨éÂÂé£Âèµ·èÂÂæµÂè¿Âå¿Âè¿Âå¢!”
%>
[1]