'字节流转为字符串
function bytes2bstr(vin)
dim bytesstream,stringreturn
set bytesstream = server.CreateObject("adodb.stream")
bytesstream.type = 2
bytesstream.open
bytesstream.writeText vin
bytesstream.position = 0
bytesstream.charset = "utf-8"'或者gb2312
bytesstream.position = 2
stringreturn = bytesstream.readtext
bytesstream.close
set bytesstream = nothing
bytes2bstr = stringreturn
end function
'解析json
Function parseJSON(str)
If Not IsObject(scriptCtrl) Then
Set scriptCtrl = Server.CreateObject("MSScriptControl.ScriptControl")
scriptCtrl.Language = "JScript"
scriptCtrl.AddCode "Array.prototype.get = function(x) { return this[x]; }; var result = null;"
End If
scriptCtrl.ExecuteStatement "result = " & str & ";"
Set parseJSON = scriptCtrl.CodeObject.result
End Function
'获取Post中的字节流大小
getpostjson=Request.TotalBytes
if getpostjson=0 then
response.Write("json null")
response.End()
end if
'读取POST所传递的字节流
readjson=Request.BinaryRead(getpostjson)
'将字节流转为字符串
json = bytes2bstr(readjson)
'response.write(json)
'解析JSON
Set obj = parseJSON(json)
code=obj.code '状态
mobid=obj.mobid
taskid=obj.taskid
mobile=obj.mobile
Set obj = Nothing
01-02
10-09
901
04-18
674
01-16
1198