' 設(shè)置好global.asa 文件,如下:
<script LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
      Application("ActiveUsers") = 0
      ' 設(shè)置計數(shù)初始值,可以根據(jù)自己的需要哦.
End Sub

Sub Session_OnStart
      Session.Timeout = 20

' 根據(jù)需要,設(shè)置超時時間.
      Session("Start") = Now

' 設(shè)置一個Session開始時間.
      Application.Lock
            Application("ActiveUsers") = Application
("ActiveUsers") + 1

      ' session開始后增加來訪者計數(shù).
      Application.UnLock
End Sub

Sub Session_OnEnd
      Application.Lock
            Application("ActiveUsers") = Application
("ActiveUsers")