第九课:ASP内建对象Application 和 Session 

　　 下面就让我们一起来学习 Application 对象。

　　 一、属性 　　 虽然 A pplication 对 象没有内置的属性，但我们可以使用以下句法设置用户定义的属性也可称为集合。

　　 A pplication(" 属性 / 集合名称 ")= 值

　　 我们可以使用如下脚本声明并建立 Application 对象的属性。
< %
Application("MyVar") = "Hello"
Set Application("MyObj") = Server.CreateObject("MyComponent")
%>

　 　 一旦我们分配了 A pplication 对 象的属性，它就会持久地存在，直到关闭 W EB 服 务器服务使得 A pplication 停 止。由于存储在 A pplication 对 象中的数值可以被应用程序的所有用户读取，所以 A pplication 对 象的属性特别适合在应用程序的用户之间传递信息。

　　 二、方法 　　 Application 对象有两个方法，它们都是用于处理多个用户对存储在 Application 中的数据进行写入的问题

　　 1 、 L ock 方 法禁止其他客户修改 A pplication 对 象的属性。

　　 Lock 方法阻止其他客户修改存储在 Application 对象中的变量，以确保在同一时刻仅有一个客户可修改和存取 Application 变量。如果用户没有明确调用 Unlock 方法，则服务器将在 .asp 文件结束或超时后即解除对 Application 对象的锁定。

　　 让我们来看看下面这段用 A pplication 来 记录页面访问次数的程序 :
< %
Dim NumVisitsNumVisits=0
Application.LockApplication("NumVisits") = Application("NumVisits") + 1
Application.Unlock
%>
欢迎光临本网页，你是本页的第 < %= Application("NumVisits") %> 位访客 !

　　 将以上脚本保存在你的 .asp 文件中，就轻而易举地给你的页面添加了一个计数器。

　　 2、和 Lock 方法相反，Unlock 方法允许其他客户修改 Application 对象的属性。

　　 在上面的例子中，上述例子中，Unlock 方法解除对象的锁定，使得下一个客户端能够增加 NumVisits 的值。

　　 三、事件

　　 1、Application_OnStart

　 　 A pplication_OnStart 事 件在首次创建新的会话 ( 即 S ession_OnStart 事 件 ) 之 前发生。当 W EB 服 务器启动并允许对应用程序所包含的文件进行请求时就触发 A pplication_OnStart 事 件。 A pplication_OnStart 事 件的处理过程必须写在 G lobal.asa 文 件之中。

　　 Application_OnStart 事件的语法如下 :
< SCRIPT LANGUAGE=ScriptLanguage RUNAT=Server>
Sub Application_OnStart. . .
End Sub
< /SCRIPT>

　　 2、Application_OnEnd 　　 Application_OnEnd 事件在应用程序退出时于 Session_OnEnd 事件之后发生，Application_OnEnd 事件的处理过程也必须写在 Global.asa 文件之中。

　　 下面让我们来看看在使用 Application 对象时必须注意的一些事项。

　　 不能在 A pplication 对 象中存储 A SP 内 建对象。例如，下面的每一行都返回一个错误。
< %
Set Application("var1")=Session
Set Application("var2")=Request
Set Application("var3")=Response
Set Application("var4")=Server
Set Application("var5")=Application
Set Application("var6")=ObjectContext
%>

　　 若您将一个数组存储在 Application 对象中，请不要直接更改存储在数组中的元素。例如，下列的脚本无法运行。
< % Application("StoredArray")(3) = "new value" %>

　 　 这是因为 A pplication 对 象是作为集合被实现的。数组元素 S toredArray(3) 未 获得新的赋值。而此值将包含在 A pplication 对 象集合中，并将覆盖此位置以前存储的任何信息。建议您在将数组存储在 A pplication 对 象中时，在检索或改变数组中的对象前获取数组的一个副本。在对数组操作时，您应再将数组全部存储在 A pplication 对 象中，这样您所做的任何改动将被存储下来。下列的脚本对此进行演示。
---asp8a.asp---
< %
dim MyArray()
Redim MyArray(5)
MyArray(0)="hello"
MyArray(1)="some other string"
Application.Lock
Application("StoredArray")=MyArray
Application.Unlock
Response.Redirect "asp8b.asp"
%>

---asp8b.asp---
< %
LocalArray=Application("StoredArray")
LocalArray(1)=" there"
Response.Write LocalArray(0)&LocalArray(1)
Application.Lock
Application("StoredArray")=LocalArray
Application.Unlock
%>

　　 与 Application 对象具有相近作用的另一个非常实用的 ASP 内建对象就是 Session。我们可以使用 Session 对象存储特定的用户会话所需的信息。当用户在应用程序的页之间跳转时，存储在 Session 对象中的变量不会清除，而用户在应用程序中访问页面时，这些变量始终存在。当用户请求来自应用程序的 Web 页时，如果该用户还没有会话，则 Web 服务器将自动创建一个 Session 对象。当会话过期或被放弃后，服务器将终止该会话。

　　 通过向客户程序发送唯一的 Cookie 可以管理服务器上的 Session 对象。当用户第一次请求 ASP 应用程序中的某个页面时，ASP 要检查 HTTP 头信息，查看是否有在报文中有名为 ASPSESSIONID 的 Cookie 发送过来，如果有，则服务器会启动新的会话，并为该会话生成一个全局唯一的值，在把这个值作为新 ASPSESSIONID Cookie 的值发送给客户端，正是使用这种 Cookie，可以访问存储在服务器上的属于客户程序的信息。Session 对象最常见的作用就是存储用户的首选项。例如，如果用户指明不喜欢查看图形，就可以将该信息存储在 Session 对象中。另外其还经常被用在鉴别客户身份的程序中。要注意的是，会话状态仅在支持 cookie 的浏览器中保留，如果客户关闭了 Cookie 选项，Session 也就不能发挥作用了。

　　 一、属性

　　 1、SessionID

　　 SessionID 属性返回用户的会话标识。在创建会话时，服务器会为每一个会话生成一个单独的标识。会话标识以长整形数据类型返回。在很多情况下 SessionID 可以用于 WEB 页面注册统计。

　　 2、TimeOut 　　 Timeout 属性以分钟为单位为该应用程序的 Session 对象指定超时时限。如果用户在该超时时限之内不刷新或请求网页，则该会话将终止。

　　 二、方法 　　 Session 对象仅有一个方法，就是 Abandon，Abandon 方法删除所有存储在 Session 对象中的对象并释放这些对象的源。如果您未明确地调用 Abandon 方法，一旦会话超时，服务器将删除这些对象。当服务器处理完当前页时，下面示例将释放会话状态。
　　< % Session.Abandon %>

　　 三、事件 　　 Session 对象有两个事件可用于在 Session 对象启动和释放是运行过程。

　　 1、Session_OnStart 事件在服务器创建新会话时发生。服务器在执行请求的页之前先处理该脚本。Session_OnStart 事件是设置会话期变量的最佳时机，因为在访问任何页之前都会先设置它们。

　　 尽管在 Session_OnStart 事件包含 Redirect 或 End 方法调用的情况下 Session 对象仍会保持，然而服务器将停止处理 Global.asa 文件并触发 Session_OnStart 事件的文件中的脚本。

　　 为了确保用户在打开某个特定的 W eb 页 时始终启动一个会话，就可以在 S ession_OnStart 事 件中调用 R edirect 方 法。当用户进入应用程序时，服务器将为用户创建一个会话并处理 S ession_OnStart 事 件脚本。您可以将脚本包含在该事件中以便检查用户打开的页是不是启动页，如果不是，就指示用户调用 R esponse.Redirect 方 法启动网页。程序如下 :

< SCRIPT RUNAT=Server Language=VBScript>
Sub Session_OnStart
startPage = "/MyApp/StartHere.asp"
currentPage = Request.ServerVariables("SCRIPT_NAME")
if strcomp(currentPage,startPage,1) then
Response.Redirect(startPage)
end if
End Sub
< /SCRIPT>

　　 上述程序只能在支持 cookie 的浏览器中运行。因为不支持 cookie 的浏览器不能返回 SessionID cookie，所以，每当用户请求 Web 页时，服务器都会创建一个新会话。这样，