|
Global.asa 文件是一个可选文件，用户可以在该文件中指定事件脚本，并声明具有会话和应用程序作用域的对象。该文件的内容
给用户显示的，而是用来存储事件信息和由应用程序全局使用的对象。该文件的名称必须是 Global.asa 且必须存放在应用程序的
根目录中。每个应用程序只能有一个 Global.asa 文件。
Global.asa 文件只能包含如下内容：
1.应用程序事件
2.会话事件
3.<OBJECT> 声明
TypeLibrary 声明
如果包含的脚本没有用 <SCRIPT> 标记封装，或定义的对象没有会话或应用程序作用域，则服务器将返回错误。服务器会忽略已标
记的但未被应用程序或会话事件使用的脚本以及文件中的 HTML 语句。
可以用任何支持脚本的语言编写 Global.asa 文件中包含的脚本。如果多个事件使用同一种脚本语言，就可以将它们组织在一组
<SCRIPT> 标记中。
当用户保存对 Global.asa 文件所做的更改时，在重新编译 Global.asa 文件之前，服务器会结束处理当前应用程序的所有请
求。在此期间，服务器拒绝其他请求并返回一个错误消息，说明正在重启动应用程序，不能处理请求。
当用户当前的所有请求处理完之后，服务器对每个会话调用 Session_OnEnd 事件，删除所有活动会话，并调用
Application_OnEnd 事件关闭应用程序，然后编译 Global.asa 文件。接下来，用户的请求将启动应用程序并创建新的会话，触
发 Application_OnStart 和 Session_OnStart 事件。
但是，保存 Global.asa 文件中所包含的文件的更改并不能使服务器重新编译 Global.asa。为了让服务器识别包含文件的改动，
必须再保存一下 Global.asa 文件。
在 Global.asa 文件中声明的过程只能从一个或多个与 Application_OnStart、Application_OnEnd、Session_OnStart 和
Session_OnEnd 事件相关的脚本中调用。在基于 ASP 的应用程序中的 ASP 页中，它们是不可用的。
要在应用程序之间共享过程，可在单独的文件中声明这些过程，然后使用服务器端的包含 (SSI) 语句将该文件包含在调用该过程
的 ASP 页中。通常，包含文件的扩展名应为 .inc。
基于 ASP 的应用程序由在其根目录及其子目录中所有文件组成。应用程序在用户首次打开应用程序中的某一 Web 页时启动，在服
务器关闭时终止。应用程序有两个事件，即 Application_OnStart 事件和 Application_OnEnd 事件。
用户可以在 Global.asa 文件中为这些事件指定脚本。当应用程序启动时，服务器在 Global.asa 文件中查找并处理
Application_OnStart 事件脚本。当应用程序终止时，服务器处理 Application_OnEnd 事件脚本。
1.Application_OnStart
Application_OnStart 事件在首次创建新的会话（即 Session_OnStart 事件）之前发生。只有 Application 和 Server 内建
对象是可用的。在 Application_OnStart 事件脚本中引用 Session、Request 或 Response 对象将导致错误。
语法
<SCRIPT LANGUAGE=ScriptLanguage RUNAT=Server> Sub Application_OnStart. . . End Sub
</SCRIPT>
参数
ScriptLanguage
指定用于编写事件脚本的脚本语言。它可以是任何支持脚本编写的语言，例如 VB Script 或 JScript。如果多个事件使用同一种
脚本语言，就可以将它们组织在一个 <SCRIPT> 标记下。
2.Application_OnEnd
Application_OnEnd 事件在应用程序退出时于 Session_OnEnd 事件之后发生，只有 Application 和 Server 内建对象可用。
语法
<SCRIPT LANGUAGE=ScriptLanguage RUNAT=Server> Sub Application_OnEnd. . . End Sub
</SCRIPT>
参数
ScriptLanguage
指定用于编写事件脚本的脚本编写语言。可以是任何一种支持脚本的语言，例如 VBScript 或 JScript。如果有多个事件使用同
一种脚本编写语言，就可以将它们组织在一组 <SCRIPT> 标记下。
注释
不能在 Application_OnEnd 脚本中调用 MapPath 方法。
当没有会话的用户在打开应用程序中的 Web 页时，Web 服务器会自动创建会话。当超时或服务器调用 Abandon 方法时，服务器
将终止该会话。
会话有两个事件，即 Session_OnStart 事件和 Session_OnEnd 事件。
可以在全局文件 Global.asa 中为这两个事件指定脚本。当会话开始时，服务器在 Global.asa 文件中查找并处理
Session_OnStart 事件脚本。该脚本将在处理用户请求的 Web 页之前处理。在会话结束时，服务器将处理 Session_OnEnd 事件
脚本。
1.Session_OnStart
Session_OnStart 事件在服务器创建新会话时发生。服务器在执行请求的页之前先处理该脚本。Session_OnStart 事件是设置会
话期变量的最佳时机，因为在访问任何页之前都会先设置它们。所有内建对象 (Application、ObjectContext、Request、
Response、Server 和 Session) 都可以在 Session_OnStart 事件脚本中使用和引用。
语法
<SCRIPT LANGUAGE=ScriptLanguage RUNAT=Server> Sub Session_OnStart. . .End Sub
</SCRIPT>
参数
ScriptLanguage
指定用于编写事件脚本的脚本编写语言。可以是任何一种支持脚本的语言，例如 VBScript 或 JScript。如果有多个事件使用同
一种脚本编写语言，就可以将它们组织在一组 <SCRIPT> 标记下。
示例
尽管在 Session_OnStart 事件包含 Redirect 或 End 方法调用的情况下 Session 对象仍会保持，然而服务器将停止处理
Global.asa 文件并触发 Session_OnStart 事件的文件中的脚本。
举一个例子，为了确保用户在打开某个特定的 Web 页时始终启动一个会话，就可以在 Session_OnStart 事件中调用 Redirect
方法。当用户进入应用程序时，服务器将为用户创建一个会话并处理 Session_OnStart 事件脚本。您可以将脚本包含在该事件中
以便检查用户打开的页是不是启动页，如果不是，就指示用户调用 Response.Redirect 方法启动网页。其演示如下例所示。
<SCRIPT RUNAT=Server Language=VBScript>
Sub Session_OnStart
' Make sure that new users start on the correct
' page of the ASP application.
' Replace the value given to startPage below
' with the virtual path to your application's
' start page.
startPage = "/MyApp/StartHere.asp"
currentPage = Request.ServerVariables("SCRIPT_NAME")
' Do a case-insensitive compare, and if they
' don't match, send the user to the start page.
if strcomp(currentPage,startPage,1) then Response.Redirect(startPage) end ifEnd Sub</SCRIPT>
上述示例只能在支持 cookie 的浏览器中运行。因为不支持 cookie 的浏览器不能返回 SessionID cookie，所以，每当用户请
求 Web 页时，服务器都会创建一个新会话。这样，对于每个请求，服务器都将处理 Session_OnStart 脚本并将用户重定向到启
动页中。如果您要使用下面的脚本，建议您在启动页上放一个通知，告诉用户该站点要求支持 cookie 的浏览器。
注释
请注意，在 Redirect 方法之后的任何 Session_OnStart 事件脚本都不会执行。因此，应该在您的事件脚本的最后再调用
Redirect 方法。其演示如下例所示。
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
' Session initialization script
Response.Redirect "http:/server/app/StartHere.asp"
End sub
</SCRIPT>
在上面的例子中，Redirect 方法在执行会话初始化脚本期间隐藏所有显示给客户的文字。
2.Session_OnEnd
Session_OnEnd 事件在会话被放弃或超时发生。在服务器内建对象中，只有 Application、Server 和 Session 对象可用。
语法
<SCRIPT LANGUAGE=ScriptLanguage RUNAT=Server> Sub Session_OnEnd. . . End Sub
</SCRIPT>
参数
ScriptLanguage
指定用于编写事件脚本的脚本编写语言。可以是任一支持脚本编写的语言，例如 VBScript 或 JScript。如果有多个事件使用同
一种脚本编写语言，则可以将其组织在一组 <SCRIPT> 标记下。
注释
在 Session_OnEnd 脚本中不能调用 MapPath 方法。
<OBJECT> 声明
用户可以在 global.asa 文件中通过使用扩展的 <OBJECT> 标记创建带有会话或应用程序作用域的对象。该标记是自包含的，且
在任何 <SCRIPT> 标记之外。
在 Global.asa 文件中声明的对象在服务器处理调用该对象之前是不会创建的。这样就只会创建必需的对象，从而节约了资源。
服务器对带有应用程序作用域参数创建的对象不调用 OnStartPage 和 OnEndPage 方法。
语法
<OBJECT RUNAT=Server SCOPE=Scope ID=Identifier {PROGID="progID"¦CLASSID="ClassID"}>. . .
</OBJECT>
参数
Scope
指定对象的作用域。在 Global.asa 文件中，Scope 将被设置为 Session 或 Application。
Identifier
指定对象实例的名称。
ProgID
与类标识相关的标识。无论 ProgID 还是 ClassID 都必须在 <OBJECT> 中指定。ProgID 的格式为 [Vendor.]Component
[.Version]。
ClassID
指定 COM 类对象的唯一标识。 无论 ProgID 还是 ClassID 都必须在 <OBJECT> 中指定。
示例
下面的第一个示例使用 ProgID 参数创建一个对象，其会话作用域名为 MyConnection。第二个示例使用 ClassID 参数。
<OBJECT RUNAT=Server SCOPE=Session ID=MyConnection PROGID="ADODB.Connection">
REM Object Script
</OBJECT>
<OBJECT RUNAT=Server SCOPE=Session ID=MyConnection CLASSID="Clsid:8AD3067A-B3FC-11CF-A560-00A0C9081C21">
REM Object Script
</OBJECT>
注释
在 Global.asa 文件中声明的对象可被应用程序中的任何脚本使用。例如，在声明了下列对象的情况下。
---GLOBAL.ASA---
<OBJECT RUNAT=Server SCOPE=Session ID=MyAd PROGID="MSWC.AdRotator">
</OBJECT>
可以从应用程序中的任何一页引用 MyAd 对象：
---SOME.ASP---
<%= MyAd.GetAdvertisement("/ads/adrot.txt") %>
TypeLibrary 声明
ActiveX 组件常常要描述类型库中该组件支持的常量。类型库是一个文件，其中包含有关 ActiveX 组件所支持的对象和类型的信
息。如果用户的 Web 应用程序依赖于已在类型库中声明了类型的 ActiveX 对象，就可以在 Global.asa 文件中声明其类型。这
样做以后，就可以在应用程序范围内从任何脚本引用已在类型库中声明了的数据类型。
有关在 ASP 中使用常量的详细信息，请参阅“使用变量和常量”。
语法
<!--METADATA TYPE="TypeLib"
FILE="file"
UUID="typelibraryuuid"
VERSION="majorversionnumber.minorversionnumber"
LCID="localeid"
-->
参数
file
类型库的绝对路径。如果提供了该参数和 typelibraryuuid 参数，则 file 将用于标识类型库。file 参数和
typelibraryuuid 参数都是必选项。
typelibraryuuid
类型库统一的唯一标识。file 参数和 typelibraryuuid 参数都是必选项。
majorversionnumber
用于选择版本。如果找不到所需的版本，将返回错误。该参数是可选项。
minorversionnumber
用于选择版本。如果找不到所需的版本，将返回错误。该参数是可选项。
localeid
现场标识，用于类型库。如果找不到所需的现场，将返回错误。该参数是可选项。
错误信息
服务器可返回下列错误消息。
错误 说明
ASP 0222 指定的类型库无效。METADATA 标记包含无效的类型库指定。
ASP 0223 找不到类型库。METADATA 包含的类型库指定与注册表项不符。
ASP 0224 类型库无法加载。ASP 无法加载 METADATA 标记中指定的类型库。
ASP 0225 类型库不能重叠。ASP 无法从在 METADATA 标记中指定的类型库中创建 Type Library Wrapper 对象。
注释
最好将 METADATA 标记写在 Global.asa 文件的开始位置。但是，无论是内部和外部 SCRIPT 标记，都可以出现在 Global.asa
文件中的任何位置。
通过将类型库的名称加在该常量的前面，可以避免对常量的不明确引用。例如，ADODB.adErrItemNotFound 会比
adErrItemNotFound 更明确。
如果使用 Microsoft Visual InterDev 创建 global.asa 文件，则 METADATA 标记将包含可选的 STARTSPAN 和 ENDSPAN 关
键字。而 IIS 则会忽略这两个关键字。
示例
下面示例中的 MyComponent 是用 Visual Basic 5.0 编写的。MyComponent 使用下列语句定义常量 MyError。
Public Const MyError = "You are not using MyComponent correctly."
类型库包含在 mycomponent.lib 中，该文件安装在下面的目录中。
C:\MyComponent
下面的 METADATA 标记包含在 MyApp 应用程序的 global.asa 文件中。该示例使用可选的 STARTSPAN 和 ENDSPAN 标记。而
IIS 则不需要这两个标记。
<!--METADATA TYPE="TypeLib"
FILE="MyComponent.lib"
-->
现在，MyApp 应用程序中的任何 ASP 都包含如下脚本：
<%
Dim MyVar
Set MyVar = Server.CreateObject("MyComponent.MyClass")
Currentreturn = MyVar.MyMethod
If Currentreturn = False
Response.Write(MyError)
End If
%>
|
