下面介绍如何使用adodb.stream对象来生成utf8文件的方法，解决fso不能生成utf8格式的文件。

<%
'读取模板文件内容
dim str
set stm=server.CreateObject("adodb.stream")
stm.Type=2 '以本模式读取
stm.mode=3
stm.charset="utf-8"
stm.open
stm.loadfromfile server.MapPath("/model.html")
str=stm.readtext
stm.Close
set stm=nothing
ReadFromTextFile=str

'写入内容生成文件
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText=ReadFromTextFile
.SaveToFile server.mappath("/page.html"),2
.Close
End With
Set objStream = Nothing
%>