使用 Application 对象存储数组

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

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

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

<% @ language="vbscript" %>




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

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

<%
'将Application 数组复制给一个本地数组并输出到客记端
LocalArray=Application("StoredArray")
Response.Write "

"
'将本地数组存储到Application对象中
Application.lock
Application("StoredArray")=LocalApplication
Application.Unlock
%>