asp 簡單在線用戶統計代碼

asp教程 簡單在線用戶統計代碼
這代碼是用了asp apliction 與session實例的哦。
<script language="vbscript" runat="server">
sub Application_onStart
application.Lock()
application("use_online")=0
application.UnLock()
end sub
sub application_onend
application.Lock()
application("use_online")=0
application.UnLock()
end sub
sub session_onstart
session("file_path")=request.ServerVariables("URL")
end sub
sub session_onend
session("file_path")=""
end sub

sub Application_onStart 這是統計開始，可以對當前整站網站統計不是當前頁面
application.Lock()鎖定當前操作
application.UnLock()解鎖當前操作
sub session_onend 結束統計