miércoles, 7 de noviembre de 2018

Parsear un JSON posteado a una pag ASP

If Request.TotalBytes > 0 Then
    Set Stream = Server.CreateObject("ADODB.Stream")
    Stream.Type = 1 'adTypeBinary
    Stream.Open
    Stream.Write Request.BinaryRead(Request.TotalBytes)
    Stream.Position = 0
    Stream.Type = 2 'adTypeText
    Stream.Charset = "iso-8859-1"

    Set oJSON = New aspJSON ' www.aspjson.com
    oJSON.loadJSON(Stream.ReadText)
    Stream.Close

    ' JSON levantado

End If

No hay comentarios:

Publicar un comentario