‘ 设置好global.asa æÂÂ件,å¦Âä¸Â:
<script LANGUAGE=”VBScript” RUNAT=”Server”>
Sub Application_OnStart
ÃÂ ÃÂ ÃÂ Application(“ActiveUsers”) = 0
ààà‘ 设置计æ°åÂÂå§Âå¼,å¯以根æ®èª己çÂÂéÂÂè¦Âå¦.
End Sub
Sub Session_OnStart
ÃÂ ÃÂ ÃÂ Session.Timeout = 20xml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
‘ æ ¹æ®éÂÂè¦Â,设置è¶Â
æ¶æ¶é´.
ÃÂ ÃÂ ÃÂ Session(“Start”) = Now
‘ 设置ä¸Â个Sessionå¼Âå§Âæ¶é´.
ÃÂ ÃÂ ÃÂ Application.Lock
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ Application(“ActiveUsers”) = Application
(“ActiveUsers”) + 1
ààà‘ sessionå¼Âå§ÂÃ¥ÂÂå¢Âå æ¥访èÂÂ
计æ°.
ÃÂ ÃÂ ÃÂ Application.UnLock
End Sub
Sub Session_OnEnd
ÃÂ ÃÂ ÃÂ Application.Lock
ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ ÃÂ Application(“ActiveUsers”) = Application
(“ActiveUsers”) â 1
à‘ sessionÃ¥Â
³éÂÂæ¶åÂÂå°Âæ¥访èÂÂ
计æ°.
ÃÂ ÃÂ ÃÂ Application.UnLock
End Sub
</script>
count.asp
‘ Ã¥Â
¶å®Âæ¾示å¨线ç¨æ·æ°éÂÂçÂÂ页é¢.
<%@ Language=VBScript %>
<html>
<head>
<title>山水çÂÂçÂÂä¹Âå¨线ç¨æ·ç»Â计</title>
</head>
<body>
<B><FONT COLOR=”#CC0000″>ç°æÂÂ<%= Application(“ActiveUsers”) %></FONT>
ä½Âç¨æ·å¨线ä¸Âæ¨åÂ
±èÂÂ!</B>
</body></html>
[1]