如何在 asp classic 中获取 request.body 值？

Question

在一个 .asp 经典页面中，我收到了一个 POST 发送给我（一个 JSON 字符串），它是在 request.body 中发送的，这个人说如何发送它。 但如果我只有theresponse=request.form 我什么都得不到？

那么我如何从request.body 获取值？

Answer 1

我过去使用的一些支付网关 API 以这种方式发送响应。数据 (JSON) 作为二进制正文发送。

要阅读它，您需要使用Request.BinaryRead 和Request.TotalBytes，然后使用Adodb.Stream 将二进制转换为UTF8 文本：

Response.ContentType = "application/json"

Function BytesToStr(bytes)
    Dim Stream
    Set Stream = Server.CreateObject("Adodb.Stream")
        Stream.Type = 1 'adTypeBinary
        Stream.Open
        Stream.Write bytes
        Stream.Position = 0
        Stream.Type = 2 'adTypeText
        Stream.Charset = "utf-8"
        BytesToStr = Stream.ReadText
        Stream.Close
    Set Stream = Nothing
End Function

' You shouldn't really be receiving any posts more than a few KB,
' but it might be wise to include a limit (200KB in this example),
' Anything larger than that is a bit suspicious. If you're dealing
' with a payment gateway the usual protocol is to post the JSON 
' back to them for verification before processing. 

if Request.TotalBytes > 0 AND Request.TotalBytes <= 200000 then

    Dim postBody
    postBody = BytesToStr(Request.BinaryRead(Request.TotalBytes))

    Response.Write(postBody) ' the JSON... hopefully 

end if