arrays - ASP打印数组

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