ASP入门基础教程- 保存应用程序信息

　2006-10-26 12:00:58　来源：WEB开发网　　　

核心提示： Application 对象的StaticObjects 集合包含所有的在应用程序范围内使用 OBJECT 标记创建的对象，可以使用该集合确定某对象的指定属性的值或遍历集合及检索所有静态对象的所有属性，ASP入门基础教程- 保存应用程序信息(2)，1、StaticOBjects 集合的语法

Application 对象的StaticObjects 集合包含所有的在应用程序范围内使用 OBJECT 标记创建的对象，可以使用该集合确定某对象的指定属性的值或遍历集合及检索所有静态对象的所有属性。

1、StaticOBjects 集合的语法格式：

Application.StaticObjects(key)

其中参数 Key 指定要检索的项目值。

2、创建具有会话作用域的对象：

在 global.asa 文件中，使用 OBJECT 标记并将 SCOPE 属性设置为 “Application" 可以创建有应用程序作用域的对象。例如：

　　　<OBJECT RUNAT=”Server" SCOPE="Application" ID=ID PROGID="MSWC.AdRotator"></OBJECT>

4、不能在 Application 对象中存储内建对象。例如，下面每一行脚本都将返回错误。

　　　 <%
　　　　　　 set Application("varl")=Session
　　　　　　 set Application("var2")=Request
　　　　　　 set Application("var3")=Response
　　　　　　 set Application("var4")=Server
　　　　　　 set Application("var5")=Application
　　　　%>

三、使用 Application 对象存储数组

也可以将一个数组存储在 Application 对象中，但不要直接更改存在 Application 数组中的元素。例如，下在的脚本无法运行。

　　　 <% Application ("StoredArray") (3)="new value" %>

实例代码（2.asp) 创建一个数组

<% @ language="vbscript" %>
<html>
<head>
<title>Application 数组应用示例 </title></head>
<body>
<%
dim poem()　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　'创建一个数组
Redim poem(3)　　　　　　　　　　　　　　　　　　　　　　　　　　　 '为数组分配存储空间
poem(0)="姓名：含笑"　　　　　　　　　　　　　　　　　　　　　'为数组进行初始化
poem(1)="性别：女"
poem(2)="E-mail:www@163.com"
Application.Lock　　　　 　　 　 　　　　　　　　　　　　　　　　　　'锁定Application 对象
Application("StoredArray")=poem　　　　　　　　　　 　　　　'将数组存储到 Application 对象中
Application.Unlock　　　　　　　　　　　　　　　　　　　　　　　　　'解除对Application 对象的锁定
Server.Transfer"3.asp"　　　　　　　　　　　　　　　　　　　　　　'调用另外一个.asp文件
%>
</body>
</html>

3.asp页码：将Application 数组复制给一个本地数组并输出到客记端, 然后，修改本地数组元素的值并输出到客户端，最后，将本地数组存储到Application对象中。

<%
'将Application 数组复制给一个本地数组并输出到客记端
LocalArray=Application("StoredArray")
Response.Write "<Div Align=center>"
For Each s in LocalArray
Response.write s & "<br>"
next
Response.write "<hr width='50%' color='#cc9999'><p>"
'修改本地数组元素的值并输出到客户端
LocalArray(0)="姓名：难书"
LocalArray(1)="性别：女"
LocalArray(2)="E-mail:ddddd@163.com"
For each s In LocalArray
Response.write s & "<br>"
next
Response.Write "</div>"
'将本地数组存储到Application对象中
Application.lock
Application("StoredArray")=LocalApplication
Application.Unlock
%>