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  

上一个：asp 用InStr查找特定字符串的代码
下一个：解决采集时出现msxml3.dll 错误的方法