JSONをClassic ASPで解析して値を抽出する

Question

SendGrid API経由で電子メールを送信する際に、Classic ASPとASPJSON（http://www.aspjson.com/）を使用してJSON形式で返されたデータを抽出しようとしています。

これは、いくつかのサンプルJSONデータである：

{ 
    "message":"error", 
    "errors":[ 
     "some errors" 
    ] 
} 

私は経由して、「メッセージ」セクションの値にアクセスすることができます。しかし、私は "の値にアクセスすることはできません

Set oJSON = New aspJSON 
oJSON.loadJSON(string_containing_json) 

json_status = ap(oJSON.data("message")) 

response.write(json_status) 

エラー "セクションの1つのレベルのようなものです。

これは可能ですか？

Answer 1

エラーは、ディクショナリオブジェクトとして格納されます。

dim errors : set errors = oJSON.data("errors") 
dim curError 
for curError = 0 to errors.Count -1 
    Response.Write(errors(curError)) 
    Response.Write("<br />") 
next