asp利用xmlhttp取文件乱码问题

 
 '==============================
 '函 数 名：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