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 に答える