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