去掉生成UTF-8格式文件那该死的BOM

‘*********************************************************************************************************
  ‘函数名:FSOSaveFile
  ‘作  用:生成文件
  ‘参  数: Content内容,路径 注意虚拟目录
  ‘*********************************************************************************************************
  Sub FSOSaveFile(Content, FileName)
   dim stm:set stm=server.CreateObject(“adodb.stream”)
   stm.Type=2 ‘以文本模式读取
   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

发表评论

电子邮件地址不会被公开。 必填项已用*标注