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

【编者按】：网学网ASP为您提供asp实现二进制字符串转换为Unicode字符串参考，解决您在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