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

时间:2022-05-21 01:10:00
  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