Global.asa 文件是一個(gè)可選的文件，它可包含可被 ASP 應(yīng)用程序中每個(gè)頁面訪問的對(duì)象、變量以及方法的聲明。

Global.asa 文件

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

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

·         Application 事件

·         Session 事件

·         <object> 聲明

·         TypeLibrary 聲明

·         #include 命令

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

Global.asa 中的事件

在 Global.asa 中，我們可以告知 application 和 session 對(duì)象在啟動(dòng)和結(jié)束時(shí)做什么事情。完成此項(xiàng)任務(wù)的代碼被放置在事件操作器中。Global.asa 文件能包含四種類型的事件：

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

Session_OnStart - 此事件會(huì)在每當(dāng)新用戶請(qǐng)求他或她的在 ASP 應(yīng)用程序中的首個(gè)頁面時(shí)發(fā)生。

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

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

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> 標(biāo)簽在 Global.asa 文件中創(chuàng)建帶有 session 或者 application 作用域的對(duì)象。

注釋：<object> 標(biāo)簽應(yīng)位于 <script> 標(biāo)簽之外。

語法：

<object runat="server" scope="scope" id="id"

{progid="progID"|classid="classID"}>

....

</object>

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

實(shí)例

第一個(gè)實(shí)例創(chuàng)建了一個(gè)名為 "MyAd" 且使用 ProgID 參數(shù)的 session 作用域?qū)ο螅?/span>

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

</object>

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

<object runat="server" scope="application" id="MyConnection"

classid="Clsid:8AD3067A-B3FC-11CF-A560-00A0C9081C21">

</object>

在此 Global.asa 文件中聲明的這些對(duì)象可被應(yīng)用程序中的任何腳本使用。

GLOBAL.ASA:

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

</object>

您可以從 ASP 應(yīng)用程序中的任意頁面引用此 "MyAd" 對(duì)象：

某個(gè) .ASP 文件:

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

TypeLibrary 聲明

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

語法：

<!--METADATA TYPE="TypeLib"

file="filename"

uuid="typelibraryuuid"

version="versionnumber"

lcid="localeid"

-->

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

錯(cuò)誤值

服務(wù)器會(huì)返回以下的錯(cuò)誤消息之一：

錯(cuò)誤	代碼	描述
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 標(biāo)簽可位于 Global.asa 文件中的任何位置（在 <script> 標(biāo)簽的內(nèi)外均可）。不過，我們還是推薦將 METADATA 標(biāo)簽放置于 Global.asa 文件的頂部。

限定

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

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

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

如何使用子例程

Global.asa 常用于對(duì)變量進(jìn)行初始化。

下面的例子展示如何檢測(cè)訪問者首次到達(dá)站點(diǎn)的確切時(shí)間。時(shí)間存儲(chǔ)在名為 "started" 的 Session 對(duì)象中，并且 "started" 變量的值可被應(yīng)用程序中的任何 ASP 頁面訪問：

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

sub Session_OnStart

Session("started")=now()

end sub

</script>

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

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

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

sub Session_OnStart

Response.Redirect("newpage.asp")

end sub

</script>

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

在下面的例子中，當(dāng) Web 服務(wù)器啟動(dòng)時(shí)，Application_OnStart 子例程也會(huì)啟動(dòng)。隨后，Application_OnStart 子例程會(huì)調(diào)用另一個(gè)名為 "getcustomers" 的子例程。"getcustomers" 子例程會(huì)打開一個(gè)數(shù)據(jù)庫，然后從 "customers" 表中取回一個(gè)記錄集。此記錄集會(huì)賦值給一個(gè)數(shù)組，在不查詢數(shù)據(jù)庫的情況下，任何 ASP 頁面都能夠訪問這個(gè)數(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 實(shí)例

在這個(gè)例子中，我們要?jiǎng)?chuàng)建一個(gè)可計(jì)算當(dāng)前訪客的 Global.asa 文件。

Application_OnStart 設(shè)置當(dāng)服務(wù)器啟動(dòng)時(shí)，Application 變量 "visitors" 的值為 0。

每當(dāng)有新用戶訪問時(shí)，Session_OnStart 子例程就會(huì)給變量 "visitors" 加 1。

每當(dāng) Session_OnEnd 子例程被觸發(fā)時(shí)，此子例程就會(huì)從變量 "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 文件會(huì)顯示當(dāng)前用戶的數(shù)目：

<html>

<head>

</head>

<body>

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

</body>

</html>