在线人数统计问题

想在单位局域网的网页中插入“当前在线XX人”的效果，在网上找了一些代码，测试都不成功或很麻烦，请哪些大侠能提供比较简单适用的方法，谢谢！
以下是网上下载的源码，传到根目录后，任何网页都打不开了，总提示global.asa有错，在调用网页（a.asp）中需不需要加一句,<!--#include file="global.asa"-->
Global.asa：
<script language="VBScript" runat="Server">
Sub Application_onStart
Application("Count")=0
Application("Online")=0
end sub
Sub session_onStart
session.Timeout=5  //这里是设定会话结束时间（5分钟）
    Application.Lock
        Application("Count") = Cint(Application("Count")) + 1    //访问次数加1
        Application("Online") = Cint(Application("Online")) + 1    //在线人数加1
    Application.UnLock
end sub
Sub session_OnEnd
Application.Lock
        Application("Online") = Cint(Application("Online")) - 1   //会话结束时在线人数减1
    Application.UnLock
end sub
</script>
a.asp:
总访问人数:<%response.Write(application("Count"))%>人
当前在线:<%response.Write(application("Online"))%>人