ASP教程：学习掌握ASP Global.asa 文件

浏览：1598 类型：程序语言发布人：Mykame 发布日期：2010/6/27 23:32:17

Global.asa 文件是一个可选的文件，它可包含可被ASP应用程序中每个页面访问的对象、变量以及方法的声明。

Global.asa 文件
Global.asa文件是一个可选的文件，它可包含可被ASP应用程序中每个页面访问的对象、变量以及方法的声明。所有合法的浏览器脚本都能在Global.asa中使用。

Global.asa 文件可包含下列内容：

Application事件
Session事件
<object>声明
TypeLibrary声明
#include命令
注释：Global.asa 文件须存放于ASP应用程序的根目录中，且每个应用程序只能有一个Global.asa文件。

Global.asa中的事件
在Global.asa中，我们可以告知application和session对象在启动和结束时做什么事情。完成此项任务的代码被放置在事件操作器中。Global.asa文件能包含四种类型的事件：

此事件会在首位用户从ASP应用程序调用第一个页面时发生。此事件会在web服务器重起或者Global.asa文件被编辑之后发生。"Session_OnStart"事件会在此事件发生之后立即发生。

Session_OnStart - 此事件会在每当新用户请求他或她的在ASP应用程序中的首个页面时发生。

Session_OnEnd - 此事件会在每当用户结束session时发生。在规定的时间（默认的事件为20分钟）内如果没有页面被请求，session就会结束。

此事件会在最后一位拥有结束其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>
注释：由于无法使用ASP的脚本分隔符(<% and %>)在Global.asa文件中插入脚本，我们需使用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必需被指定。

实例
第一个实例创建了一个名为"MyAd"且使用ProgID参数的session作用域对象：

<object runat="server" scope="session" id="MyAd"
progid="MSWC.AdRotator">
</object>
第二个实例创建了名为"MyConnection"且使用ClassID参数的

<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>
You could reference the object "MyAd" from any page in the ASP application:

某个.ASP文件:

<%=MyAd.GetAdvertisement("/banners/adrot.txt")%>
TypeLibrary 声明
TypeLibrary（类型库）是一个容器，其中装有对应于COM对象的DLL文件的目录。通过在Global.asa对TypeLibrary的调用进行引用，可以访问COM对象的常量，同时ASP代码也能更好地报告错误。假如您的站点的应用程序依赖于已在类型库中声明过数据类型的COM对象，您可以在Global.asa中对类型库进行声明。

语法：

参数描述
file 规定指向类型库的绝对路径。参数file或者uuid，两者缺一不可。
uuid 规定了针对类型库的唯一的标识符。参数file或者uuid，两者缺一不可。
version 可选。用于选择版本。假如没有找到指定的版本，将使用最接近的版本。
lcid 可选。Optional. 用于类型库的地区标识符。

错误值
服务器会返回以下的错误消息之一：

错误代码描述
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>标签的内外均可）。不过，我们还是推荐将METADATA标签放置于Global.asa文件的顶部。

限定
关于可以在Global.asa文件中引用的内容的限定：

你无法显示Global.asa文件中的文本。此文件无法显示信息。

你只能在Application_OnStart和Application_OnEnd子例程中使用Server和Application对象。在Session_OnEnd子例程中，你可以使用Server、Application和Session对象。在Session_OnStart子例程中，你可使用任何内建的对象。

如何使用子例程
Global.asa常用于对变量进行初始化。

下面的例子展示如何检测某位访问者首次到达站点的确切时间。时间存储在名为"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文件会显示当前用户的数目：

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