ASP中动态数组的定义

baacloud免费翻墙vpn注册使用

现在需要一数组,但是大小不固定,所以用动态数组。
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

赞(0) 打赏
分享到: 更多 (0)

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏