Global.asa?文件是一個可選的文件，它可包含可被?ASP?應用程序中每個頁面訪問的對象、變量以及方法的聲明。

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 對象在啟動和結(jié)束時做什么事情。完成此項任務的代碼被放置在事件操作器中。Global.asa 文件能包含四種類型的事件：

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

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

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

Application_OnEnd?- 此事件會在最后一位用戶結(jié)束其 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>

參數(shù)	描述
scope	設置對象的作用域（作用范圍）（Session?或者?Application）。
id	為對象指定一個唯一的?id。
ProgID	與 ClassID 關聯(lián)的 id。ProgID 的格式是：[Vendor.]Component[.Version]。 ProgID?或 ClassID 必需被指定。
ClassID	為 COM 類對象指定唯一的 id。 ProgID?或 ClassID 必需被指定。

實例

第一個實例創(chuàng)建了一個名為 "MyAd" 且使用 ProgID 參數(shù)的 session 作用域?qū)ο?#xff1a;

<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"
-->

參數(shù)	描述
file	規(guī)定指向類型庫的絕對路徑。參數(shù)?file?或者?uuid，兩者缺一不可。
uuid	規(guī)定了針對類型庫的唯一的標識符。參數(shù)?file?或者?uuid，兩者缺一不可。
version	可選。用于選擇版本。假如沒有找到指定的版本，將使用最接近的版本。
lcid	可選。用于類型庫的地區(qū)標識符。

錯誤值

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

錯誤	代碼	描述
ASP	0222	Invalid type library specification
ASP	0223	Type library not found
ASP	0224	Type library cannot be loaded
ASP	0225	Type library cannot be wrapped

注釋：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_OnStartSession("started")=now()
end?sub
</script>

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

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

<script?language="vbscript"?runat="server">
sub?Session_OnStartResponse.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_OnStartgetcustomers
end?sub
sub?getcustomersset?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.GetRowsrs.Closeconn.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>