程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP基礎知識 >> ASP Global.asa

ASP Global.asa

日期:2017/1/5 14:16:40      編輯:ASP基礎知識

ASP Global.asa 文件


Global.asa 文件

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

所有合法的浏覽器腳本(JavaScript、VBScript、JScript、PerlScript 等等)都能在 Global.asa 中使用。

Global.asa 文件只能包含下列內容:

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

注釋:Global.asa 文件必須存放在 ASP 應用程序的根目錄中,而且每個應用程序只能有一個 Global.asa 文件。


Global.asa 中的事件

在 Global.asa 中,您可以告訴 application 和 session 對象當 application/session 開始時做什麼,當 application/session 結束時做什麼。完成這項任務的代碼被放置在事件句柄中。Global.asa 文件能包含四種類型的事件:

Application_OnStart - 此事件會在第一個用戶調用 ASP 應用程序的第一個頁面時發生。此事件會在 Web 服務器重啟或者 Global.asa 文件被編輯之後發生。"Session_OnStart" 事件會在此事件發生之後立即發生。

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

Session_OnEnd - 此事件會在每當用戶結束 session 時發生。在規定的時間(默認的時間為 20 分鐘)內如果用戶沒有請求任何頁面,用戶 session 就會結束。

Application_OnEnd - 此事件會在最後一個用戶結束其 session 之後發生。典型的情況是,此事件會在 Web 服務器停止時發生。這個子程序用於在應用程序停止後清除設置,比如刪除記錄或者向文本文件中寫入信息。

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

注釋:由於我們無法在 Global.asa 文件中使用 ASP 的腳本分隔符 (<% 和 %>) 插入腳本,我們需要把子例程放置在 HTML 的 <script> 元素內部。


<object> 聲明

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

注釋:<object> 標簽應位於 <script> 標簽外部!

語法

<object runat="server" scope="scope" id="id" {progid="progID"|classid="classID"}>
....
</object>
參數 描述 scope 設置對象(Session 或 Application)的作用域。 id 為對象指定一個唯一的 id。 ProgID 與 ClassID 關聯的 id。ProgID 的格式是:[Vendor.]Component[.Version]。

ProgID 或 ClassID 必需被指定。

ClassID 為 COM 類對象指定一個唯一的 id。

ProgID 或 ClassID 必需被指定。

實例

第一個實例通過使用 ProgID 參數創建了一個名為 "MyAd" 的 session 作用域對象:

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

第二個實例通過使用 ClassID 參數創建了一個名為 "MyConnection" 的 application 作用域對象:

<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 的調用,可以訪問 COM 對象的常量,同時 ASP 代碼也能更好地報告錯誤。如果您的 Web 應用程序依賴於已在類型庫中聲明的數據類型的 COM 對象,您可以在 Global.asa 中對類型庫進行聲明。

語法

<!--METADATA TYPE="TypeLib"
file="filename" uuid="id" version="number" lcid="localeid"
-->
參數 描述 file 規定指向類型庫的絕對路徑。

file 參數或者 uuid 參數,兩者缺一不可。

uuid 規定了類型庫的唯一的標識符。

file 參數或者 uuid 參數,兩者缺一不可。

version 可選。用於選擇版本。如果沒有找到需要的版本,將使用最接近的版本。 lcid 可選。用於類型庫的地區標識符。

錯誤值

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

錯誤代碼 描述 ASP 0222 無效的類型庫規范 ASP 0223 沒有找到類型庫 ASP 0224 無法加載類型庫 ASP 0225 無法包裝類型庫

注釋:METADATA 標簽可出現在 Global.asa 文件中的任何位置(在 <script> 標簽的內外皆可)。然而,我們還是推薦將 METADATA 標簽放置於 Global.asa 文件的頂部。


限定

關於可以在 Global.asa 文件中引用的內容的限定:

  • 您無法顯示 Global.asa 文件中的文本。此文件無法顯示信息。
  • 您只能在 Application_OnStart 和 Application_OnEnd 子例程中使用 Server 和 Application 對象。在 Session_OnEnd 子例程中,您可以使用 Server、Application 和 Session 對象。在 Session_OnStart 子例程中,您可以使用任何內建的對象。

如何使用子例程

Global.asa 常用於初始化變量。

下面的實例演示了如何檢測訪客首次到達 Web 站點的確切時間。時間存儲在名為 "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 文件中包含函數。

在下面的實例中,當 Web 服務器啟動時,Application_OnStart 子例程也會啟動。然後,Application_OnStart 子例程會調用另一個名為 "getcustomers" 的子例程。"getcustomers" 子例程會打開一個數據庫,然後從 "customers" 表中取回一個記錄集。此記錄集會賦值給一個數組,在不查詢數據庫的情況下,任何 ASP 頁面都能夠訪問這個數組:

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

在這個實例中,我們將創建一個計算當前訪客數量的 Global.asa 文件。

  • 當服務器啟動時,Application_OnStart 設置 Application 變量 "visitors" 的值為 0。
  • 每當有新的訪客來訪時,Session_OnStart 子例程就會給變量 "visitors" 加 1。
  • 每當 Session_OnEnd 子例程被觸發時,該子例程就會從變量 "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 文件中,顯示當前訪客的數量:

<!DOCTYPE html>
<html>
<head>
</head>
<body>
<p>There are <%response.write(Application("visitors"))%> online now!</p>
</body>
</html>
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved