asp 简单在线用户统计代码

asp教程 简单在线用户统计代码
这代码是用了asp apliction 与session实例的哦
<script language="vbscript" runat="server">
sub Application_onStart
applicationLock()
application("use_online")=
applicationUnLock()
end sub
sub application_onend
applicationLock()
application("use_online")=
applicationUnLock()
end sub
sub session_onstart
session("file_path")=requestServerVariables("URL")
end sub
sub session_onend
session("file_path")=""
end sub

sub Application_onStart 这是统计开始可以对当前整站网站统计不是当前页面
applicationLock()锁定当前操作
applicationUnLock()解锁当前操作
sub session_onend 结束统计