若需要utf-8格式，請自行將下面的GB2312改成utf-8。

1. ' 二進制轉字符串，否則會出現亂碼的！   
2. Function sTb(vin)  
3.         Const adTypeText = 2  
4.         Dim BytesStream,StringReturn  
5.         Set BytesStream = Server.CreateObject("ADODB.Stream")  
6.  With BytesStream  
7.        .Type = adTypeText  
8.        .Open  
9.        .WriteText vin  
10.        .Position = 0  
11.        .Charset = "GB2312"  
12.        .Position = 2  
13.         StringReturn = .ReadText  
14.        .Close  
15.    End With  
16. Set BytesStream = Nothing  
17. sTb = StringReturn  
18. End Function