Private Function removearray(a() As Integer, index As Integer) j = 0 For i = 0 To UBound(a) - 1 If i <> index Then a(j) = a(i) j = j + 1 End If Next removearray = a() End Function ---------------------------------
vbscrīpt不像javascrīpt操作数组那样方便，就算是删除一个数组，也比较麻烦。下面是vbscrīpt删除数组元素的方法，可以粘贴到asp文件里面看到效果。
<%arr=split("0,1,2,3,4,5",",")length=UBound(arr)For t=3 To length-1 arr(t)=arr(t+1) Next ReDim Preserve arr(int(length)-1)
For i=0 To length-1 response.Write(arr(i))next%>
但是Preserve关键字只对多维数组的最后一维有效，尝试改变其他维会出错。
------------------------------------------ Dim MyArray()for i = 0 to 10ReDim Preserve MyArray(i)MyArray(i)=inext动态增加数据