去掉生成UTF-8格式文件那該死的(de)BOM

‘*********************************************************************************************************
  ‘函數名：FSOSaveFile
  ‘作  用：生成文件
  ‘參  數： Content内容,路徑 注意虛拟目錄
  ‘*********************************************************************************************************
  Sub FSOSaveFile(Content, FileName)
   dim stm:set stm=server.CreateObject(“adodb.stream”)
   stm.Type=2 ‘以(yǐ)文本模式讀取
   stm.mode=3
   stm.charset=”utf-8″
   stm.open
   stm.Writetext (content)
            stm.Position = 3
            dim newStream:Set newStream = Server.CreateObject(“adodb.stream”)
            With newStream
                .Mode = 3
                .Type = 1
                .Open()
            End With
            stm.CopyTo(newStream)
            newStream.SaveToFile server.MapPath(FileName),2
   stm.flush
   stm.Close
        Set stm = Nothing
        Set newStream = Nothing

  End Sub