封装的方法函数:
'/**将bytes数组转换为字符串
' * @param vin 要转换的bytes数组
' * @param charset 编码方式 utf-8或者gb2312
' */
function bytes2str(vin,charset)
dim bytesstream,stringreturn
set bytesstream = server.CreateObject("adodb.stream")
bytesstream.type = 2
bytesstream.open
bytesstream.writeText vin
bytesstream.position = 0
bytesstream.charset =charset
bytesstream.position = 2
stringreturn = bytesstream.readtext
bytesstream.close
set bytesstream = nothing
bytes2str = stringreturn
end function
调用示例:
'1.得到字节数
bytes=Request.TotalBytes
if bytes=0 then
response.Write("data null")
response.End()
end if
'2.使用二进制方式来读取客户端使用POST传送方法所传递的数据
readjson=Request.BinaryRead(bytes)
'3.将bytes数组转换为字符串
json= bytes2str(readjson,"utf-8")
set bytes = nothing
set readjson = nothing
'输出结果
response.write(json)