asp接收和解析post传递的json数据

'字节流转为字符串
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