Global.asa 文件

Global.asa 文件是一個可選的文件，它可包含可被 ASP 應用程序中每個頁面訪問的對象、變量以及方法的聲明。所有合法的瀏覽器腳本都能在 Global.asa 中使用。

Global.asa 文件可包含下列內(nèi)容：

• Application 事件
• Session 事件
• <object> 聲明
• TypeLibrary 聲明
• #include 指令

注釋：Global.asa 文件須存放于 ASP 應用程序的根目錄中，且每個應用程序只能有一個 Global.asa 文件。

Global.asa 中的事件

在 Global.asa 中，我們可以告知 application 和 session 對象在啟動和結束時做什么事情。完成這項任務的代碼被放置在事件操作器中。Global.asa 文件能包含四種類型的事件：

Application_OnStart - 此事件會在首位用戶從 ASP 應用程序調(diào)用第一個頁面時發(fā)生。此事件會在 web 服務器重起或者 Global.asa 文件被編輯之后發(fā)生。"Session_OnStart" 事件會在此事件發(fā)生之后立即發(fā)生。

Session_OnStart - 此事件會在每當新用戶請求他或她的在 ASP 應用程序中的首個頁面時發(fā)生。

Session_OnEnd - 此事件會在每當用戶結束 session 時發(fā)生。在規(guī)定的時間（默認的事件為 20 分鐘）內(nèi)如果沒有頁面被請求，session 就會結束。

Application_OnEnd - 此事件會在最后一位用戶結束其 session 之后發(fā)生。典型的情況是，此事件會在 Web 服務器停止時發(fā)生。此子程序用于在應用程序停止后清除設置，比如刪除記錄或者向文本文件寫信息。

Global.asa 文件可能類似這樣：

<script language="vbscript" runat="server">

sub Application_OnStart
  'some code
end sub

sub Application_OnEnd
  'some code
end sub

sub Session_OnStart
  'some code
end sub

sub Session_OnEnd
  'some code
end sub

</script>

注釋：由于無法使用 ASP 的腳本分隔符 (<% 和 %>) 在 Global.asa 文件中插入腳本，我們需使用 HTML 的 <script> 元素。

<object> 聲明

可通過使用 <object> 標簽在 Global.asa 文件中創(chuàng)建帶有 session 或者 application 作用域的對象。

注釋：<object> 標簽應位于 <script> 標簽之外。

語法：

<object runat="server" scope="scope" id="id"
{progid="progID"|classid="classID"}>
....
</object>

實例

第一個實例創(chuàng)建了一個名為 "MyAd" 且使用 ProgID 參數(shù)的 session 作用域對象：

<object runat="server" scope="session" id="MyAd" progid="MSWC.AdRotator">
</object>

第二個實例創(chuàng)建了名為 "MyConnection" 且使用 ClassID 參數(shù)的

<object runat="server" scope="application" id="MyConnection"
classid="Clsid:8AD3067A-B3FC-11CF-A560-00A0C9081C21">
</object>

在此 Global.asa 文件中聲明的這些對象可被應用程序中的任何腳本使用。

GLOBAL.ASA:

<object runat="server" scope="session" id="MyAd" progid="MSWC.AdRotator">
</object>

您可以從 ASP 應用程序中的任意頁面引用此 "MyAd" 對象：

某個 .ASP 文件:

<%=MyAd.GetAdvertisement("/banners/adrot.txt")%> 

TypeLibrary 聲明

TypeLibrary （類型庫）是一個容器，其中裝有對應于 COM 對象的 DLL 文件。通過在 Global.asa 中包含對 TypeLibrary 的調(diào)用，可以訪問 COM 對象的常量，同時 ASP 代碼也能更好地報告錯誤。假如您的站點的應用程序依賴于已在類型庫中聲明過數(shù)據(jù)類型的 COM 對象，您可以在 Global.asa 中對類型庫進行聲明。

語法：

<!--METADATA TYPE="TypeLib"
file="filename"
uuid="typelibraryuuid"
version="versionnumber"
lcid="localeid"
-->

錯誤值

服務器會返回以下的錯誤消息之一：

注釋：METADATA 標簽可位于 Global.asa 文件中的任何位置（在 <script> 標簽的內(nèi)外均可）。不過，我們還是推薦將 METADATA 標簽放置于 Global.asa 文件的頂部。

限定

關于可以在 Global.asa 文件中引用的內(nèi)容的限定：

你無法顯示 Global.asa 文件中的文本。此文件無法顯示信息。

你只能在 Application_OnStart 和 Application_OnEnd 子例程中使用 Server 和 Application 對象。在 Session_OnEnd 子例程中，你可以使用 Server、Application 和 Session 對象。在 Session_OnStart 子例程中，你可使用任何內(nèi)建的對象。

如何使用子例程

Global.asa 常用于對變量進行初始化。

下面的例子展示如何檢測訪問者首次到達站點的確切時間。時間存儲在名為 "started" 的 Session 對象中，并且 "started" 變量的值可被應用程序中的任何 ASP 頁面訪問：

<script language="vbscript" runat="server">
sub Session_OnStart
Session("started")=now()
end sub
</script>

Global.asa 也可用于控制頁面訪問。

下面的例子展示如何把每位新的訪問者重定向到另一個頁面，在這個例子中會定向到 "newpage.asp" 這個頁面：

<script language="vbscript" runat="server">
sub Session_OnStart
Response.Redirect("newpage.asp")
end sub
</script>

我們還可以在 Global.asa 中包含函數(shù)。

在下面的例子中，當 Web 服務器啟動時，Application_OnStart 子例程也會啟動。隨后，Application_OnStart 子例程會調(diào)用另一個名為 "getcustomers" 的子例程。"getcustomers" 子例程會打開一個數(shù)據(jù)庫，然后從 "customers" 表中取回一個記錄集。此記錄集會賦值給一個數(shù)組，在不查詢數(shù)據(jù)庫的情況下，任何 ASP 頁面都能夠訪問這個數(shù)組：

<script language="vbscript" runat="server">

sub Application_OnStart
getcustomers
end sub

sub getcustomers 
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=conn.execute("select name from customers")
Application("customers")=rs.GetRows
rs.Close
conn.Close
end sub

</script>

Global.asa 實例

在這個例子中，我們要創(chuàng)建一個可計算當前訪客的 Global.asa 文件。

Application_OnStart 設置當服務器啟動時，Application 變量 "visitors" 的值為 0。

每當有新用戶訪問時，Session_OnStart 子例程就會給變量 "visitors" 加 1。

每當 Session_OnEnd 子例程被觸發(fā)時，此子例程就會從變量 "visitors" 減 1。

Global.asa 文件：

<script language="vbscript" runat="server">

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 文件會顯示當前用戶的數(shù)目：

<html>
<head>
</head>
<body>
<p>There are <%response.write(Application("visitors"))%> online now!</p>
</body>
</html>