如何即時獲知多少人線上？

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]