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

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

Sub Session_OnStart
      Session.Timeout = 20

' 根據需要,設置超時時間.
      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") 亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb