淘宝双十一超级红包 》
ASP Session_OnStart 和 Session_OnEnd 事件
完整的 Session 对象参考手册
Session_OnStart 事件
Session_OnStart 事件在服务器创建新会话时发生。
此事件放置在 Global.asa 文件中。
Session_OnEnd 事件
Session_OnEnd 事件在会话结束时发生（会话被放弃或超时的时候）。
此事件放置在 Global.asa 文件中。
注意：MapPath 方法不能用在 Session_OnEnd 代码中。
语法
<script language="vbscript" runat="server">
Sub Session_OnStart
. . .
End Sub
Sub Session_OnEnd
. . .
End Sub
</script>
Sub Session_OnStart
. . .
End Sub
Sub Session_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>
完整的 Session 对象参考手册