ASP convert bytes array to string

Encapsulated method function: 

'/**将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

Call example:

'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)