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