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經(jīng)典的例子: 1.強制進入首頁,就是如果第一次訪問網(wǎng)站,強制定位到首頁的辦法: SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Session_OnStart '只要是用戶第一次登錄本站，則會跳轉(zhuǎn)到首頁 response.redirect("首頁地址") End Sub /SCRIPT>
2.網(wǎng)站在線人數(shù)的統(tǒng)計: SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart ' 當服務器開啟時，設置用戶計數(shù)器為0 Application("ActiveUsers") = 0 End Sub
Sub Session_OnStart '設置Session對象的有效時間為20分鐘（也可以更長，但是越長對服務器的 '資源占用越多，因為服務器不接受少于20分鐘的有效時間，所以設置少于20 '分鐘的有效時間是無效的） Session.Timeout = 20 ' 當開始一個Session時用戶計數(shù)器加1 Application.Lock Application("ActiveUsers") = Application("ActiveUsers") + 1 Application.UnLock End Sub
Sub Session_OnEnd ' 當結(jié)束一個Session時用戶計數(shù)器減1 Application.Lock Application("ActiveUsers") = Application("ActiveUsers") - 1 Application.UnLock End Sub /SCRIPT>
