ASP的Global.asa使用说明(2)

      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>