ASP Application_OnStart 和 Application_OnEnd 事件
完整的 Application 对象参考手册
Application_OnStart 事件
Application_OnStart 事件发生在第一个新的会话创建之前 (当 Application 对象第一次被引用时)。
此事件放置在 Global.asa 文件中。
注意:在 Application_OnStart 事件脚本中引用 Session、Request 或者 Response 对象会引发错误。
Application_OnEnd 事件
Application_OnEnd 事件发生在应用程序结束时 (当 web 服务器停止运行时)。
此事件放置在 Global.asa 文件中。
注意:MapPath 方法无法用于 Application_OnEnd 代码中。
语法
<script language="vbscript" runat="server">
Sub Application_OnStart
. . .
End Sub
Sub Application_OnEnd
. . .
End Sub
</script>
Sub Application_OnStart
. . .
End Sub
Sub Application_OnEnd
. . .
End Sub
</script>
Global.asa:
<script language="vbscript" runat="server">
Sub Application_OnEnd()
Application("totvisitors")=Application("visitors")
End Sub
Sub Application_OnStart
Application("visitors")=0
End Sub
Sub Session_OnStart
Application.Lock
Application("visitors")=Application("visitors")+1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("visitors")=Application("visitors")-1
Application.UnLock
End Sub
</script>
Sub Application_OnEnd()
Application("totvisitors")=Application("visitors")
End Sub
Sub Application_OnStart
Application("visitors")=0
End Sub
Sub Session_OnStart
Application.Lock
Application("visitors")=Application("visitors")+1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("visitors")=Application("visitors")-1
Application.UnLock
End Sub
</script>
在 ASP 文件中显示当前访问者的数目:
<html>
<head>
</head>
<body>
<p>
There are <%response.write(Application("visitors"))%>
online now!
</p>
</body>
</html>
<head>
</head>
<body>
<p>
There are <%response.write(Application("visitors"))%>
online now!
</p>
</body>
</html>
完整的 Application 对象参考手册