<p> 一、使用 Contents 集合应用程序信息</p><p> 1、Contents 集合是由所有通过脚本语言添加到应用程序的变量和对象组成的集合。可以使用这个集合来获得给定的应用程序作用域的变量列表或指定某个变量为操作对象。Contents 集合是 Application 对象默认的集合，因此下述两种格式是等价的：</p><code> Application.Contents("变量名")<br /> Application("变量名")</code><p> 其中，“变量名”是需要操作的 Application 变量名称。</p><p> 2、实例代码（1.asp)：使用 Session 对象编写一个简单的计数器程序。</p><code><html><br /><head><title>>Application.Contents集合的应用</title><br /></head><br /><body><br /><center><h3>Application实例</h3><hr width="70%"></center><br /><%<br />name=Request.Form("visitor")<br />i=Request.Form("chatno")<br />if name<>"" then<br />if i=0 then<br />Application("chinese")=Application("Chinese")+1<br />chat="中文"<br />elseif i=1 then<br />Application("English")=Application("English")+1<br />chat="英文"<br />end if<br />Response.write "<center>欢迎<b>" & name & "</b>,你是来到"<br />Response.write "<b>" & chat & "</b>讨论区的第"<br />if chat="中文" then<br />Response.write Application.Contents("Chinese") & "位客人。<p>"<br />else<br />Response.write Application.Contents("English") & "位客人。<p>"<br />end if<br />Response.write "<a href='4-6-2.asp'>返回</a></center>"<br />Response.end<br />end if<br />%><br /><center><br /><form method=post><br /><table><tr><td>名字：<td><input type=text name="visitor" size=12><br /><tr><td>讨论区：<td><Select name="Chatno"><br /><option value=0>中文</option><br /><option value=1>英文</option><br /></select><br /><input type=submit value="确定"><br /></table><br /></form><br /></center><br /></body><br /></html></code><p> 二、使用Application.StaticObjects 集合保存应用程序信息</p>
<p> </p>
<p> Application 对象的StaticObjects 集合包含所有的在应用程序范围内使用 OBJECT 标记创建的对象，可以使用该集合确定某对象的指定属性的值或遍历集合及检索所有静态对象的所有属性。</p><p> 1、StaticOBjects 集合的语法格式：</p><code>Application.StaticObjects(key)</code><p> 其中参数 Key 指定要检索的项目值。</p><p> 2、创建具有会话作用域的对象：</p><p> 在 global.asa 文件中，使用 OBJECT 标记并将 SCOPE 属性设置为 “Application" 可以创建有应用程序作用域的对象。例如：</p><code> <OBJECT RUNAT=”Server" SCOPE="Application" ID=ID PROGID="MSWC.AdRotator"></OBJECT></code><p> 4、不能在 Application 对象中存储内建对象。例如，下面每一行脚本都将返回错误。</p><code> <%<br /> set Application("varl")=Session<br /> set Application("var2")=Request<br /> set Application("var3")=Response<br /> set Application("var4")=Server<br /> set Application("var5")=Application<br /> %></code><p> 三、使用 Application 对象存储数组</p><p> 也可以将一个数组存储在 Application 对象中，但不要直接更改存在 Application 数组中的元素。例如，下在的脚本无法运行。</p><code> <% Application ("StoredArray") (3)="new value" %></code><p> 实例代码（2.asp) 创建一个数组</p><code><% @ language="vbscript" %><br /><html><br /><head><br /><title>Application 数组应用示例 </title></head><br /><body><br /><%<br />dim poem() '创建一个数组<br />Redim poem(3) '为数组分配存储空间<br />poem(0)="姓名：含笑" '为数组进行初始化<br />poem(1)="性别：女"<br />poem(2)="E-mail:www@163.com"<br />Application.Lock '锁定Application 对象<br />Application("StoredArray")=poem '将数组存储到 Application 对象中<br />Application.Unlock '解除对Application 对象的锁定<br />Server.Transfer"3.asp" '调用另外一个.asp文件<br />%><br /></body><br /></html></code><p> 3.asp页码：将Application 数组复制给一个本地数组并输出到客记端, 然后，修改本地数组元素的值并输出到客户端，最后 ，将本地数组存储到Application对象中。</p></p><code><%<br />'将Application 数组复制给一个本地数组并输出到客记端<br />LocalArray=Application("StoredArray")<br />Response.Write "<Div Align=center>"<br />For Each s in LocalArray<br />Response.write s & "<br>"<br />next<br />Response.write "<hr width='50%' color='#cc9999'><p>"<br />'修改本地数组元素的值并输出到客户端<br />LocalArray(0)="姓名：难书"<br />LocalArray(1)="性别：女"<br />LocalArray(2)="E-mail:ddddd@163.com"<br />For each s In LocalArray<br />Response.write s & "<br>"<br />next<br />Response.Write "</div>"<br />'将本地数组存储到Application对象中<br />Application.lock<br />Application("StoredArray")=LocalApplication<br />Application.Unlock<br />%></code><p> <img src="/content/uploadfile/200805/2008053117003849.gif" onclick="get_larger(this)" /><a href="http://tech.ddvip.com/2006-10/11618046459861.html" target="_blank">查看全套"ASP入门基础"教程>>>>></a></p></p>