global.asa
script LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
      ' Sub Application_OnStart 是好在服務(wù)器每次啟動(dòng)的時(shí)候激活的方法.

      Session.Timeout = 3

' 定義用戶(hù)在線時(shí)間,如果在定義時(shí)間內(nèi)沒(méi)有活動(dòng)連接,則刪掉他的session 變量實(shí)例,將其注銷(xiāo).

      Application.Lock
      ' 用.Lock 方法鎖住Application 變量以繼續(xù)運(yùn)行.如果不鎖,那么它在變量 "WhosOn"中不會(huì)發(fā)生變化.

      Application("WhosOn") = 0
      ' 變量從0開(kāi)始.

      Application.UnLock

 ' 給application解鎖.

End Sub
Sub Session_OnStart
      ' Sub Session_OnStart 檢測(cè)每一時(shí)刻新來(lái)的用戶(hù).

      Application.Lock
      Application("WhosOn") = Application("WhosOn") + 1
      Application.UnLock

' 此處是用戶(hù)造訪時(shí)增加的計(jì)數(shù),記住鎖／開(kāi)Application變量.

End Sub
Sub Session_OnEnd
      ' Sub Session_OnEnd 檢測(cè)每一時(shí)刻退出網(wǎng)站的用戶(hù),并在Session:Timeout in 定義退出后幾分鐘內(nèi)仍計(jì)數(shù).

      Application.Lock
      Application("WhosOn") = Application("WhosOn") - 1
      Application.UnLock

' 當(dāng)有用戶(hù)退出時(shí)我們要在"WhosOn" 變量中減少1個(gè)數(shù),同樣要對(duì)application 變量進(jìn)行鎖／開(kāi).

End Sub
/script>

count.asp
%
  response.write "這會(huì)兒有" Application("WhosOn") "人正在隨風(fēng)起舞流連忘返呢!"
%>

[1]