木子屋
 

标题: ASP动态数组下标越界解决方法

作者: dnawo

日期: 2014-11-07 00:28 AM

分类: Web编程

内容: 在一段ASP程序中，需要定义一个动态数组，但数组大小没办法一次ReDim到位，得根据实际需要逐个增大，于是有了下边代码：
复制内容到剪贴板 程序代码<%
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
%>
运行出错：
原因是在没有调用Redim定义数组下标前，使用UBound获得数组下标会出错，提示下标越界，对代码稍做修改即可解决：
复制内容到剪贴板 程序代码<%
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
%>

+ 查看当前日志评论 (0)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.578 ms

标题: ASP动态数组下标越界解决方法

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.578 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.578 ms