ASP接收POST提交的JSON数据示例

在做一个项目对接时,状态信息对方使用POST提交JSON数据进行推送, ASP接收程序如下:

<%
Function bytes2bstr(vin)
    Dim objStream,result    
    Set objStream = Server.CreateObject("ADODB.Stream")
    objStream.Type = 2
    objStream.Open
    objStream.WriteText vin
    objStream.Position = 0
    objStream.Charset = "utf-8"'或者gb2312    
    objStream.Position = 2
    result = objStream.ReadText
    objStream.Close
    Set objStream = Nothing
    bytes2bstr = result
End function

Dim numCount : numCount = Request.TotalBytes
If numCount>0 Then
    Response.Write(bytes2bstr(Request.BinaryRead(numCount)))
End If
%>

注意,Request.BinaryRead和Request.Form互斥,使用一个后不能再使用另一个:

引用内容 引用内容
Request 对象 错误 'ASP 0207 : 80004005'
不能使用 Request.Form
/request.asp,行 30
调用 BinaryRead 之后,不能使用 Request.Form 集合。

引用内容 引用内容
Request 对象 错误 'ASP 0206 : 80004005'
不能调用 BinaryRead
/request.asp,行 32
使用 Request.Form 集合之后,不能调用 BinaryRead。  

参考资料

[1].asp接收和解析post传递的json数据:https://blog.csdn.net/lanzengquan/article/details/123707971

评论: 0 | 引用: 0 | 查看次数: 2017
发表评论
登录后再发表评论!