asp中的动态数组

<%
Dim array1(),i

ReDim array1(3)
array1(3)=10
response.Write(array1(3)&"<br>")
i=15
ReDim array1(i)
Response.Write(UBound(array1))
%>