• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

asp中遍历和操作application对象的集合

　　为了能够正常使用，必须把它们放到服务器上的一个虚拟应用程序内，并且把所提供的global.asa文件放到该应用程序的根目录中。最简单的办法是把global.asa文件放到缺省web网站的根目录（缺省情况下是c:/.netpub/wwwroot）中。

　　对任何已有的global.asa文件重命名是一个好办法，可以在以后对该文件进行恢复。

　　1． 显示application集合的内容

　　aspcounter对象是staticobjects集合的一个成员（通过＜object＞元素进行定义），但是其余部份（由server.createobject实例化）是contents集合的成员。

　　可以看到使用global.asa例子网页放到这些集合中的值，这在前面已经看到：

＜!-- declare instance of the aspcounter component with application-level scope //--＞ ＜object id=”aspcounter” runat=”server” scope=”applicatoin” progid=”mswc.counters”＞ ＜/object＞ ... ... ＜script language=”vbscript” runat=”server”＞ sub application_onstart() ‘create an instance of an ado connection with application-level scope set application(“adoconnection”) = server.createobject(“adodb.connection”) dim vararray(3) ‘create a variant array and fill it vararray(0) = “this is a” vararray(1) = “variant array” vararray(2) = “stored in the” vararray(3) = “application object” application(“variant_array”) = vararray ‘store it in thd application application(“start_time”) = cstr(now) ‘store the date/time as a string application(“visit_count”) = 0 ‘set counter variable to zero end sub ... ... ＜/script＞

　　(1) 遍历contents集合的代码

　　为了遍历contents集合，可使用一个for each ... next结构。集合中的每一项可以是一个简单的variant类型变量、一个variant数组或者一个对象的引用。因为需要对每种类型的值进行不同的处理，所以就不得不对每一个进行检查来判别其类型。

　　在vbscript中可使用vartype函数完成这个工作。这里使用isobject和isarray函数代替：

for each objitem in application.contents if isobject(application.contents(objitem)) then response.write “object reference: ‘” & objitem & “’ ” elseif isarray(application.contents(objitem)) then response.write “array: ‘” & objitem & “’ contents are: ” vararray = application.contents(objitem) ‘note: the following only works with a one-dimensional array for intloop = 0 to ubound(vararray) response.write “ index(“ & intloop & “) = “ & _ vararray(intloop) & “ ” next else response.write “variable: ‘” & objitem & “’ = “ _ & application.contents(objitem) & “ ” end if next

　　注意程序如何从application对象检索该数组。将其分配给一个局部（variant）变量，使用下面的语句：

vararray = application.contents(objitem)

　　使用ubound函数可以查找出数组的大小（元素的数量），这个值可以作为遍历的终止条件：

for intloop = 0 ubound(vararray)

　　这个例子是一维数组，并将只显示这样的一个数组的内容。可根据需要编辑代码以处理多维数组，例如：

for intloop = 0 to ubound(vararray) intnumberofdimensions = ubound(vararray, 1) for intdimension = 0 to intnumberofdimensions response.write “ index(“ & intloop & “) = “ _ & vararray(intloop, intdimension) next response.write “” next

　　(2) 遍历staticobjects集合的代码

　　staticobjects集合包含了所有在global.asa中使用＜object＞元素声明的对象引用。因为每个条目都是一个对象变量，可用简单些的代码对这个数组进行遍历。我们将输出对象的名字（在id属性中原有的定义）：

for each objitem in application.staticobjects if isobject(application.staticobjects(objitem)) then response.write “＜object＞ element: id=’” & objitem & “’ ” end if next

 

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

标准 网站致力的规范