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>
