ASP simple Online User statistics code

ASP tutorial Simple Online user statistics code
This code is using the ASP apliction and session instance of OH.
<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 This is the beginning of statistics, can be the current whole site statistics is not the current page
Application. Lock () lock current operation
Application. UnLock () Unlock the current operation
Sub Session_OnEnd End Statistics