Mikel
现在需要一数组，但是大小不固定，所以用动态数组。
dim item()
下面的语句会出现：下标越界 的错误，好像item()现在还不是一个数组一样。
redim preserve item(ubound(item)+1)
但是，我确实需要这么做，下标为0的数组元素也需动态添加进去。
用on error ，但是ASP又不支持goto,即：
on error goto errorHandler
在VB里可以如下做：
Private Sub Form_Load()
On Error GoTo errorHandler
ReDim Preserve item(UBound(item) + 1)
item(UBound(item)) = UBound(item)
errorHandler:
ReDim item(0)
item(0) = 0
End Sub
解决方法：
dim item()
sub aa()
’On Error Resume Next的意思是如果发生错误就继续直接执行出错语句下面的那句。一般的，如果出错，VB会报告并停止运行，但有时错误并不严重，不会产生严重影响，你可以在可能出错的语句前面加上这句。但是如果错误很严重，会影响到后续语句，就不要使用这个方法了。
on error resume next
'重定义item数组的下界=当前下界+1
redim preserve item(ubound(item)+1)
’如果定义错误，当然会报错了，因为ubound(item)根本取不到下界，然后定义item为下界为1
if err.number <>0 then
redim preserve item(1)
end if
response.write uBound(item)
end sub
aa
