asp实现二进制字符串转换为Unicode字符串

若需要utf-8格式，请自行将下面的gb2312改成utf-8。

' 二进制转字符串，否则会出现乱码的！ 
function stb(vin)
        const adtypetext = 2
        dim bytesstream,stringreturn
        set bytesstream = server.createobject("adodb.stream")
 with bytesstream
       .type = adtypetext
       .open
       .writetext vin
       .position = 0
       .charset = "gb2312"
       .position = 2
        stringreturn = .readtext
       .close
   end with
set bytesstream = nothing
stb = stringreturn
end function