一聚教程网:一个值得你收藏的教程网站

热门教程

asp利用xmlhttp取文件乱码问题

时间:2022-07-02 23:09:03 编辑:袖梨 来源:一聚教程网


 
 '==============================
 '函 数 名:BytesToBstr
 '作    用:转换编码函数
 '参    数:解码字符串Body,编码Cset
 '============================== 
 Private Function BytesToBstr(Body,Cset)
  Set objAdoStream = Server.CreateObject("adod"&"b.stream")
  objAdoStream.Type = 1
  objAdoStream.Mode =3
  objAdoStream.Open
  objAdoStream.Write body
  objAdoStream.Position = 0
  objAdoStream.Type = 2
  objAdoStream.Charset = Cset
  BytesToBstr = objAdoStream.ReadText
  objAdoStream.Close
  Set objAdoStream = Nothing
 End Function
 

热门栏目