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

　　一、使用 Contents 集合应用程序信息

　　1、Contents 集合是由所有通过脚本语言添加到应用程序的变量和对象组成的集合。可以使用这个集合来获得给定的应用程序作用域的变量列表或指定某个变量为操作对象。Contents 集合是 Application 对象默认的集合，因此下述两种格式是等价的：

　　　　 　　　　Application.Contents("变量名")　　　　 　　　　Application("变量名")

　　其中，变量名是需要操作的 Application 变量名称。

　　2、实例代码（1.asp)：使用 Session 对象编写一个简单的计数器程序。

htmlheadtitleApplication.Contents集合的应用/title/headbodycenterh3Application实例/h3hr width="70%"/center%name=Request.Form("visitor")i=Request.Form("chatno")if name"" thenif i=0 thenApplication("chinese")=Application("Chinese")+1chat="中文"elseif i=1 thenApplication("English")=Application("English")+1chat="英文"end ifResponse.write "center欢迎b" & name & "/b,你是来到"Response.write "b" & chat & "/b讨论区的第"if chat="中文" thenResponse.write Application.Contents("Chinese") & "位客人。p"elseResponse.write Application.Contents("English") & "位客人。p"end ifResponse.write "a href='4-6-2.asp'返回/a/center"Response.endend if%centerform method=posttabletrtd名字：tdinput type=text name="visitor" size=12trtd讨论区：tdSelect name="Chatno"option value=0中文/optionoption value=1英文/option/selectinput type=submit value="确定"/table/form/center/body/html

　　二、使用Application.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" %htmlheadtitleApplication 数组应用示例 /title/headbody%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 LocalArrayResponse.write s & "br"nextResponse.write "hr width='50%' color='#cc9999'p"'修改本地数组元素的值并输出到客户端LocalArray(0)="姓名：难书"LocalArray(1)="性别：女"LocalArray(2)="E-mail:ddddd@163.com"For each s In LocalArrayResponse.write s & "br"nextResponse.Write "/div"'将本地数组存储到Application对象中Application.lockApplication("StoredArray")=LocalApplicationApplication.Unlock%