ASP 打印输出数组答案

【问题标题】：ASP print out arrayASP 打印输出数组
【发布时间】：2009-07-17 08:38:33
【问题描述】：

我想打印出数据，用于调试。

数据格式应该是这样的

    cntryCode       = resArray("COUNTRYCODE")
    business        = resArray("BUSINESS") ' Payer's business name.
    shipToName      = resArray("SHIPTONAME")

resArray 本身包含超过 10 条记录。

我试图打印出来，但失败了。

版本 1 不工作

public sub prArray (myarr)
    Dim x, ResponseData
    For x = 0 to myarr.Count
        ResponseData = ResponseData & myarr.Key(x) & " = " & myarr.Item(x) & "<br>"
    Next
    Response.Write ResponseData
end sub

版本 2 也无法正常工作

public sub prArray (myarr)
    Dim x, ResponseData
    For x = 0 to UBound(myarr)
        ResponseData = ResponseData & myarr(x) & " = " & myarr(x) & "<br>"
    Next
    Response.Write ResponseData
end sub

我相信肯定有一些方法可以用经典的 asp 打印出来

【问题讨论】：

当你说“失败”时——实际发生了什么？
你的“resArray”是什么数据类型？
无法打印出任何数据。它是分配给 resArray 的 NVP Collection 对象。

标签： arrays asp-classic debugging associative

【解决方案1】：

毫无疑问，您正在使用 Scripting.Dictionary。它没有被命令使用这个：-

 Sub prArray(myArr)
     Dim key
     For Each key in myArr
         Response.Write key & " = " & myArr.Item(key) & "<br />"
     Next
 End Sub

【讨论】：

【解决方案2】：

resArray 是什么类型？是收藏吗？从第一个代码部分开始，您似乎可以通过键访问项目，所以它不能是一个简单的数组..？你能给出如何声明和填充 resArray 的代码示例吗？

如果集合是 0 基数，它将是：

For x = 0 to myarr.Count - 1

如果集合是 0 基数，它将是：

For x = 1 to myarr.Count

如果它是一个基本数组，并且你不知道它是什么索引基数：

For x = LBound(myarr) to UBound(myarr)

【讨论】：