为什么session_end没有执行啊???请高手指教!!!

我要做一个在线人数统计的网页时有如下的代码
global.asax
<SCRIPT LANGUAGE=VB RUNAT=Server>
' Global.asa - wuf21.asp
Sub Application_OnStart
  Application.Lock
  Application("CurrentUsers")=0
  '在这里读出Application("alluser")的初始值
  Application.UnLock
End SubSub Session_OnStart
  Application.Lock
  Application("CurrentUsers") = Application("CurrentUsers") + 1
  Application("alluser") = Application("alluser") + 1
  Application.UnLock
End SubSub Session_End
  Application.Lock
  Application("CurrentUsers") = Application("CurrentUsers") - 1
  Application.UnLock
End SubSub Application_End
  Application.Lock
    Application("CurrentUsers")=0  '应该在这里将Application("alluser")保存到文件中
  Application.UnLock
End Sub
</SCRIPT>
以下为显示页面,名字为s.aspx
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<html>
<head>
<meta http-equiv="Refresh" content="10,URL=s.aspx">
<title>无标题文档</title>
</head>
<body>
&nbsp;在线人数：<b><font color="#0000FF">
<%= Application("CurrentUsers") %></font></b></body>
</html>
如果有人有成功的代码的话也可以发到
多谢啦!!^_^