二进制字符串转换为普通字符串的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 
%>