【asp.net】ASP 3.0高级编程(十)

更新时间:2014-02-14    来源:php常用代码    手机版     字体:

【www.bbyears.com--php常用代码】

(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中使用元素声明的对象引用。因为每个条目都是一个对象变量,可用简单些的代码对这个数组进行遍历。我们将输出对象的名字(在ID属性中原有的定义):
For Each objItem in Application.StaticObjects

本文来源:http://www.bbyears.com/jiaocheng/4192.html

猜你感兴趣