6

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

数据格式是这样的

    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 打印出来

4

2 回答 2

7

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

 Sub prArray(myArr)
     Dim key
     For Each key in myArr
         Response.Write key & " = " & myArr.Item(key) & "<br />"
     Next
 End Sub
于 2009-07-17T08:48:35.807 回答
1

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

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

For x = 0 to myarr.Count - 1

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

For x = 1 to myarr.Count

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

For x = LBound(myarr) to UBound(myarr)
于 2009-07-17T09:01:18.293 回答