global.asa
<script LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
' Sub Application_OnStart 是好在服務器每次啟動的時候激活的方法.
Session.Timeout = 3
' 定義用戶在線時間,如果在定義時間內沒有活動連接,則刪掉他的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]
