VBA使用ADO stream输出UTF格式文本时去掉BOM 的2个有用的函数

'***********************************************
'函数名：LoadFile
'作用：利用ADODB.Stream读取模板文件
'参数：File：要读取的文件
'Author：Evller
'***********************************************
Function LoadFile(ByVal File)
Dim objStream
On Error Resume Next
Set objStream =Server.CreateObject("ADODB.Stream")
If Err.Number=-2147221005 Then
Response.Write"<div>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"
Err.Clear
Response.End
End If
With objStream
.Type = 2
.Mode = 3
.Open
.LoadFromFileServer.MapPath(File)
If Err.Number<>0 Then
Response.Write "<divalign='center'>文件<fontcolor='#ff0000'>"&File&"</font>无法被打开，请检查是否存在!</font></div>"
Err.Clear
Response.End
End If
.Charset ="utf-8"
.Position = 2
LoadFile = .ReadText
.Close
End With
Set objStream = Nothing
End Function
'******************************************************************************
'函数名：SaveToFile
'作用：生成html静态页面，去掉bom标签文件
'参数： Content内容,FileName路径
'Author：Evller
'******************************************************************************
Sub SaveToFile (Content,FileName)
dim stm:setstm=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.SaveToFileserver.MapPath(FileName),2
stm.flush
stm.Close
Set stm = Nothing
Set newStream = Nothing
End Sub
实例：
List="news list!"
Content=LoadFile("template.htm")'先利用LoadFile读取模板template.htm内容
Content = Replace(Content,"{$list$}",list)'把模板中的内容替换
Call SaveToFile(Content,"index.htm")'生成文件html文件
Response.Write "生成成功!"