0

フォームのように、別のサーバーから直接送信された JSON を読み取る方法を知りたいです。JSON を要求して処理する必要があります。

dim datos: set datos = json.parse(BodyJson)
    dim key : for each key in datos.keys() 
        Status = datos.get(key).category 
        FechaHoraEnvio = datos.get(key).date 
        DireccionEmail =  datos.get(key).recipient
        InfoExtra = datos.get(key).tags
        ID= 123
        sSQL = "INSERT INTO EmailsStatus (Id, Status, FechaHoraEnvio, DireccionEmail, InfoExtra) VALUES ('"& ID &"', '"& Status &"', '"& FechaHoraEnvio &"', '"& DireccionEmail &"', '"& InfoExtra &"')"
        Response.write sSql
        objAccessDB.excecuteQuery(sSQL)
    next
4

1 に答える 1

0

使ってみて

dim datos: set datos = json.parse(BodyJson)
dim key : for each key in datos.keys()
    if (key = "category") then Status = datos.get(key)
    if (key="date") then FechaHoraEnvio = datos.get(key)
    if (key = "recipient") then DireccionEmail =  datos.get(key)
    if (key = "tags") then InfoExtra = datos.get(key)
    ID= 123
    sSQL = "INSERT INTO EmailsStatus (Id, Status, FechaHoraEnvio, DireccionEmail, InfoExtra) VALUES ('"& ID &"', '"& Status &"', '"& FechaHoraEnvio &"', '"& DireccionEmail &"', '"& InfoExtra &"')"
    Response.write sSql
    objAccessDB.excecuteQuery(sSQL)
next
于 2012-10-05T09:56:37.220 に答える