Global.asa的标准文件格式如下: SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart 'Application_OnStart 当任何客户首次访问该应用程序的首页时运行 End Sub
Sub Session_OnStart 'Session_OnStart 当客户首次运行 ASP 应用程序中的任何一个页面时运行 End Sub
Sub Session_OnEnd 'Session_OnEnd 当一个客户的会话超时或退出应用程序时运行 End Sub
Sub Application_OnEnd 'Application_OnEnd 当该站点的 WEB 服务器关闭时运行 End Sub /SCRIPT>
两个关于Global.asa经典的例子: 1.强制进入首页,就是如果第一次访问网站,强制定位到首页的办法: SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Session_OnStart '只要是用户第一次登录本站，则会跳转到首页 response.redirect("首页地址") End Sub /SCRIPT>
2.网站在线人数的统计: SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart ' 当服务器开启时，设置用户计数器为0 Application("ActiveUsers") = 0 End Sub
Sub Session_OnStart '设置Session对象的有效时间为20分钟（也可以更长，但是越长对服务器的 '资源占用越多，因为服务器不接受少于20分钟的有效时间，所以设置少于20 '分钟的有效时间是无效的） Session.Timeout = 20 ' 当开始一个Session时用户计数器加1 Application.Lock Application("ActiveUsers") = Application("ActiveUsers") + 1 Application.UnLock End Sub
Sub Session_OnEnd ' 当结束一个Session时用户计数器减1 Application.Lock Application("ActiveUsers") = Application("ActiveUsers") - 1 Application.UnLock End Sub /SCRIPT>
