BytesToBstr获取的源码转换为中文的代码

1. '==================================================  
2. '函数名：BytesToBstr  
3. '作  用：将获取的源码转换为中文  
4. '参  数：Body ------要转换的变量  
5. '参  数：Cset ------要转换的类型  
6. '==================================================  
7. Function BytesToBstr(Body,Cset)  
8.    Dim Objstream  
9.    Set Objstream = Server.CreateObject("adodb.stream")  
10.    objstream.Type = 1  
11.    objstream.Mode =3  
12.    objstream.Open  
13.    objstream.Write body  
14.    objstream.Position = 0  
15.    objstream.Type = 2  
16.    objstream.Charset = Cset  
17.    BytesToBstr = objstream.ReadText   
18.    objstream.Close  
19.    set objstream = nothing  
20. End Function