ASP内建对象Application和Session

一、属性 

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

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

　　我们可以使用如下脚本声明并建立 Application 对象的属性。 

　　< % 
　　Application("MyVar") = "Hello" 
　　Set Application("MyObj") = Server.CreateObject("MyComponent") 
　　%> 
　　 
　　一旦我们分配了 Application 对象的属性，它就会持久地存在，直到关闭 WEB 服务器服务使得 Application 停止。由于存储在 Application 对象中的数值可以被应用程序的所有用户读取，所以 Application 对象的属性特别适合在应用程序的用户之间传递信息。 

　　二、方法 

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

　　1、Lock 方法禁止其他客户修改 Application 对象的属性。 

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

　　让我们来看看下面这段用 Application 来记录页面访问次数的程序 : 

　　< % 
　　Dim NumVisitsNumVisits=0 
　　Application.LockApplication("NumVisits") = Application("NumVisits") + 1 
　　Application.Unlock 
　　%> 
　　 
　　欢迎光临本网页，你是本页的第 < %= Application("NumVisits") %>位访客 ! 

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

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

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

　　三、事件 

　　1、Application_OnStart 

　　Application_OnStart 事件在首次创建新的会话 ( 即 Session_OnStart 事件 ) 之前发生。当 WEB 服务器启动并允许对应用程序所包含的文件进行请求时就触发 Application_OnStart 事件。Application_OnStart 事件的处理过程必须写在 Global.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 对象时必须注意的一些事项。 

　　不能在 Application 对象中存储 ASP 内建对象。例如，下面的每一行都返回一个错误。 

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

　　这是因为 Application 对象是作为集合被实现的。数组元素 StoredArray(3) 未获得新的赋值。而此值将包含在 Application 对象集合中，并将覆盖此位置以前存储的任何信息。建议您在将数组存储在 Application 对象中时，在检索或改变数组中的对象前获取数组的一个副本。在对数组操作时，您应再将数组全部存储在 Application 对象中，这样您所做的任何改动将被存储下来。下列的脚本对此进行演示。 

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