Global.asa 文件

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

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

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

注釋?zhuān)?/span>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 文件能包含四種類(lèi)型的事件：

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

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

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

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

Global.asa 文件可能類(lèi)似這樣：

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

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

<object> 聲明

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

注釋?zhuān)?/span><object> 標(biāo)簽應(yīng)位于 <script> 標(biāo)簽之外。

語(yǔ)法：

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

實(shí)例

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

<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)用程序中的任意頁(yè)面引用此 "MyAd" 對(duì)象：

某個(gè) .ASP 文件:

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

TypeLibrary 聲明

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

語(yǔ)法：

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

錯(cuò)誤值

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

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

限定

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

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

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

如何使用子例程

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

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

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

Global.asa 也可用于控制頁(yè)面訪(fǎng)問(wèn)。

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

<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ì)打開(kāi)一個(gè)數(shù)據(jù)庫(kù)，然后從 "customers" 表中取回一個(gè)記錄集。此記錄集會(huì)賦值給一個(gè)數(shù)組，在不查詢(xún)數(shù)據(jù)庫(kù)的情況下，任何 ASP 頁(yè)面都能夠訪(fǎng)問(wèn)這個(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)前訪(fǎng)客的 Global.asa 文件。

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

每當(dāng)有新用戶(hù)訪(fǎng)問(wèn)時(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)前用戶(hù)的數(shù)目：

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