问global.asa没有为显示访客而工作

EN

<SCRIPT RUNAT="Server" LANGUAGE="javascript">
    function Application_OnStart() {
        Application("visitors") = 0
    }

    function Application_OnEnd() {
        Application.Contents.RemoveAll()
    }

    function Session_OnStart() {
        Application.Lock
        Application("visitors") = Application("visitors") + 1
        Session.Timeout = 15
        Application.UnLock
    }

    function Session_OnEnd() {
        Application.Lock
        Application("visitors") = Application("visitors") - 1
        Application.UnLock
    }
</SCRIPT>

There are <% Response.Write(Application("visitors")) %> online now!