asp 二进制字符串转换为普通字符串

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