ASP VBScript 获取数组长度

 由于需要在vb程序中获取数组的实际长度，在网上和w3c查了下都找不到获取数组长度的合适方法。所以自己就写了一个获取数组实际的长度的方法。实现原理很简单。就是循环判断数组的值，如果数组该项的值不为空"",那么长度就增加1。

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

dim a(5)

a(0)=2

a(3)=3

a(4)=""

Response.Write ArrayLength(a) 输出 2