Question

我想打印出数据，以便进行调试。

数据格式就像这样

    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

Answer 1

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

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

Answer 2

resArray是什么类型的？这是一个集合？从第一个代码部分看，你看起来像按键访问项目，所以它不能是一个简单的数组..？你能给出如何声明和填充resArray的代码示例吗？

如果集合为0 base，则为：

For x = 0 to myarr.Count - 1

如果集合为0 base，则为：

For x = 1 to myarr.Count

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

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

ASP打印输出数组

2 个答案: