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