Question

我想知道如何直接从另一台服务器（如表单）直接读取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

Answer 1

尝试使用

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

如何从ASP中的请求表单中读取json

1 个答案: