ASP动态数组下标越界问题解决办法

在一段ASP程序中，需要定义一个动态数组，但数组大小没办法一次ReDim到位，得根据实际需要逐个增大，于是有了下边代码：

<table style="background: #fb7" border="0" cellspacing="1" cellpadding="1" width="620" align="center"> <tbody> <tr> <td bgcolor="#ffe7ce" height="27" width="464"> 代码如下</td> <td style="cursor: pointer" bgcolor="#ffe7ce" width="109" align="center" onclick="doCopy('copy1936')">复制代码</td> </tr> <tr> <td style="padding-bottom: 10px; padding-left: 10px; padding-right: 10px; padding-top: 10px" id="copy1936" class="copyclass" bgcolor="#ffffff" valign="top" colspan="2">

<%
Dim arr()
'赋值
For i = 1 To 10
    Redim Preserve arr(UBound(arr) 1)
    arr(UBound(arr)) = i   
Next
'遍历
For i=0 to UBound(arr)
    Response.Write(arr(i)&"<br/>")
Next
%>

</td> </tr> </tbody> </table>

运行出错：

原因是在没有调用Redim定义数组下标前，使用UBound获得数组下标会出错，提示下标越界，对代码稍做修改即可解决：

<table style="background: #fb7" border="0" cellspacing="1" cellpadding="1" width="620" align="center"> <tbody> <tr> <td bgcolor="#ffe7ce" height="27" width="464"> 代码如下</td> <td style="cursor: pointer" bgcolor="#ffe7ce" width="109" align="center" onclick="doCopy('copy2297')">复制代码</td> </tr> <tr> <td style="padding-bottom: 10px; padding-left: 10px; padding-right: 10px; padding-top: 10px" id="copy2297" class="copyclass" bgcolor="#ffffff" valign="top" colspan="2">

<%
Dim arr()
ReDim arr(0)
'赋值
For i = 1 To 10
    If arr(UBound(arr)) <> "" Then
        Redim Preserve arr(UBound(arr) 1)
    End If   
    arr(UBound(arr)) = i   
Next
'遍历
For i=0 to UBound(arr)
    Response.Write(arr(i)&"<br/>")
Next
%>

</td> </tr> </tbody> </table>

 

您可能感兴趣的文章：
ASP动态数组下标越界问题解决办法
asp与php区别是什么？
Flash不显示怎么办？Flash不显示问题解决办法
创建ASP.NET数据存储层(6)
asp 与asp的区别(1)
ASP＋与ASP有哪些区别
深入解读 C/C 内存管理需要注意的问题
魔兽世界6.0更新一半卡住了怎么办?魔兽世界6更新卡住解决方法
Win2003无法识别USB2.0或USB3.0移动硬盘设备解决办法
PHP新手上路（二）