今天看代码。所以来练习一下，UBound()实例
<%
Dim Arr, aiLength, I
Arr = Array("小","戴","技","术","门","户","站","欢","迎","你")
aiLength = UBound(Arr)
response.Write("数组总数为:"&aiLength&"<br/>")
For I = 0 To 20
If I>aiLength Then
Response.Write "循环不下去了,下标已经越界啦！"
Exit For
End If
If IsEmpty(Arr(I)) Then
Response.Write "数组中没数据！<br />"
Else
Response.Write Arr(I) & "<br />"
End If
Next
%>
OK，代码写完了