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

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