一、使用 UBound 函数（适用于一维数组）
在 ASP 中，UBound 函数可以返回指定数组维度的最大可用下标，对于一维数组，通过UBound 函数并传入数组名称以及维度参数（对于一维数组维度为 1），即可得到数组的长度（元素个数）。
<% Dim arr(5) ' 声明一个有 6 个元素的一维数组，下标从 0 到 5 Response.Write "数组长度为：" & UBound(arr, 1) + 1 ' 输出数组长度为 6 %>
这里需要注意的是，由于数组下标是从 0 开始的，所以使用UBound 函数得到的最大下标值需要加 1 才是数组的实际元素个数。
二、遍历数组元素统计长度（适用于任意维度数组）
如果不确定数组的维度或者处理的是多维数组，可以通过遍历数组的方式来统计数组中元素的总个数，从而间接得到数组的长度概念，以下是一个示例代码：
<% Dim multiArray(2, 3) ' 声明一个二维数组 Dim i, j, count count = 0 For i = 0 To UBound(multiArray, 1) For j = 0 To UBound(multiArray, 2) count = count + 1 Next Next Response.Write "数组元素总个数为：" & count ' 输出数组元素总个数为 8 %>
在上述代码中，通过嵌套循环遍历二维数组的每一个元素，并使用一个计数器count 来记录元素的个数，这种方法虽然相对繁琐一些，但可以适用于任意维度的数组，并且能够准确地统计出数组中所有元素的总数。
如何在ASP中获取数组的长度？
三、使用 Scripting.Dictionary 对象（适用于键值对集合）
如果处理的是类似字典结构的键值对集合，可以使用Scripting.Dictionary 对象，它有一个Count 属性可以直接获取集合中的键值对数量，示例如下：
<%
Set dict = CreateObject("Scripting.Dictionary")
dict.Add "key1", "value1"
dict.Add "key2", "value2"
dict.Add "key3", "value3"
Response.Write "字典中的键值对数量为：" & dict.Count ' 输出字典中的键值对数量为 3
%>
这里首先创建了一个Scripting.Dictionary 对象，然后使用Add 方法添加了一些键值对，最后通过访问Count 属性就可以直接得到字典中键值对的数量。
四、使用循环来记录数量
function ArrayLength(arry) dim len len=0 for each val in arry if val<>"" then len=len+1 end if next ArrayLength=len end function
使用方法：
dim a(5) a(0)=2 a(3)=3 Response.Write ArrayLength(a) 输出 2
五、使用Ubound获取长度
<% ' 定义一个数组 Dim myArray(4) ' 假设这是一个有5个元素的数组，下标从0到4 myArray(0) = "Apple" myArray(1) = "Banana" myArray(2) = "Cherry" myArray(3) = "Date" myArray(4) = "Elderberry" ' 使用 UBound 函数获取最大下标 Dim maxIndex maxIndex = UBound(myArray) ' 计算数组长度 Dim arrayLength arrayLength = maxIndex + 1 ' 输出数组长度 Response.Write "数组的长度是：" & arrayLength %>
六、多维数组在ASP中如何获取长度
<%
' 定义一个二维数组
Dim twoDimensionalArray(2, 3)
twoDimensionalArray(0, 0) = "A1"
twoDimensionalArray(0, 1) = "A2"
twoDimensionalArray(0, 2) = "A3"
twoDimensionalArray(0, 3) = "A4"
twoDimensionalArray(1, 0) = "B1"
twoDimensionalArray(1, 1) = "B2"
twoDimensionalArray(1, 2) = "B3"
twoDimensionalArray(1, 3) = "B4"
twoDimensionalArray(2, 0) = "C1"
twoDimensionalArray(2, 1) = "C2"
twoDimensionalArray(2, 2) = "C3"
twoDimensionalArray(2, 3) = "C4"
' 获取第一维的大小
Dim firstDimensionSize
firstDimensionSize = UBound(twoDimensionalArray, 1) + 1
' 获取第二维的大小
Dim secondDimensionSize
secondDimensionSize = UBound(twoDimensionalArray, 2) + 1
' 计算二维数组的总元素个数
Dim totalCount
totalCount = firstDimensionSize * secondDimensionSize
' 输出结果
Response.Write("第一维的大小是: " & firstDimensionSize & "<br>")
Response.Write("第二维的大小是: " & secondDimensionSize & "<br>")
Response.Write("二维数组的总元素个数是: " & totalCount & "<br>")
%>
七、三维数组的使用
<% ' 定义一个三维数组 Dim my3DArray(2, 3, 1) ' 获取第一维的长度 Dim firstDimensionLength firstDimensionLength = UBound(my3DArray, 1) - LBound(my3DArray, 1) + 1 ' 获取第二维的长度 Dim secondDimensionLength secondDimensionLength = UBound(my3DArray, 2) - LBound(my3DArray, 2) + 1 ' 获取第三维的长度 Dim thirdDimensionLength thirdDimensionLength = UBound(my3DArray, 3) - LBound(my3DArray, 3) + 1 ' 输出每一维的长度 Response.Write "第一维的长度为：" & firstDimensionLength & "<br>" Response.Write "第二维的长度为：" & secondDimensionLength & "<br>" Response.Write "第三维的长度为：" & thirdDimensionLength %>
定义多维数组：
Dim my3DArray(2, 3, 1)
这里定义了一个三维数组my3DArray，第一维的上界为 2，第二维的上界为 3，第三维的上界为 1。在没有使用Option Base语句指定的情况下，数组的下界默认为 0。
计算各维长度：
第一维长度：
firstDimensionLength = UBound(my3DArray, 1) - LBound(my3DArray, 1) + 1
UBound(my3DArray, 1) 返回第一维的上界，LBound(my3DArray, 1) 返回第一维的下界，两者相减再加 1 得到第一维的长度。
第二维长度：
secondDimensionLength = UBound(my3DArray, 2) - LBound(my3DArray, 2) + 1
同理，通过指定第二个参数为 2，计算第二维的长度。
第三维长度：
thirdDimensionLength = UBound(my3DArray, 3) - LBound(my3DArray, 3) + 1
通过指定第二个参数为 3，计算第三维的长度。
相关问题与解答
问题一：如果数组是动态添加元素的，如何获取其长度？
解答：对于动态添加元素的数组，如果是一维数组，仍然可以使用UBound 函数并传入数组名称和维度参数 1 来获取数组的当前最大下标，然后加 1 得到数组长度，如果是多维数组或者不确定维度的数组，可以采用遍历数组元素的方式进行统计，通过计数器记录元素的个数来确定数组的“长度”，在动态添加元素的过程中，每次添加后都重新计算一次数组长度。
如何在ASP中获取数组的长度？
问题二：Scripting.Dictionary 对象的Count 属性是否实时更新？
解答：是的，Scripting.Dictionary 对象的Count 属性会实时更新，每当向字典中添加或删除一个键值对时，Count 属性的值都会自动相应地增加或减少，以反映字典中当前的键值对数量，在使用Scripting.Dictionary 对象时，可以随时通过访问Count 属性来获取准确的键值对数量，无需额外的操作来更新这个值。
参考：https://shuyeidc.com/wp/66284.html