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 结束统计