上一篇: 
下一篇: 
文章来自: 
引用通告: 
Tags: 
最新日志:
不错呦！smile@林凯西，确保“准备文件”中的几个文件都有安装，S...您好，看了您这篇帖子觉得很有帮助。但是有个问题想请...我的修改过了怎么还被恶意注册呢 @jjjjiiii 用PJ快9年了，主要是A...PJ3啊，貌似很少有人用PJ了，现在不是WP就是z...@332347365，我当时接入时错误码没有-10...楼主，ChkValue值应为-103是什么意思呢？...大哥 你最近能看到我发的信息，请跟我联系，我有个制...
ASP接收POST提交的JSON数据示例
编辑:dnawo 日期:2022-05-24
在做一个项目对接时，状态信息对方使用POST提交JSON数据进行推送， ASP接收程序如下：
注意，Request.BinaryRead和Request.Form互斥，使用一个后不能再使用另一个：
引用内容
引用内容
参考资料
[1].asp接收和解析post传递的json数据：https://blog.csdn.net/lanzengquan/article/details/123707971
复制内容到剪贴板
程序代码
程序代码<%
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
%>
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.Form
/request.asp，行 30
调用 BinaryRead 之后，不能使用 Request.Form 集合。
引用内容Request 对象 错误 'ASP 0206 : 80004005'
不能调用 BinaryRead
/request.asp，行 32
使用 Request.Form 集合之后，不能调用 BinaryRead。
不能调用 BinaryRead
/request.asp，行 32
使用 Request.Form 集合之后，不能调用 BinaryRead。
参考资料
[1].asp接收和解析post传递的json数据：https://blog.csdn.net/lanzengquan/article/details/123707971
评论: 0 | 引用: 0 | 查看次数: 2119
发表评论
请登录后再发表评论！
