用ASP，FSO生成HTML页面
如何以UTF-8编码生成HTML？

'用我这个函数，Charset设置为utf-8即可

Function SaveByCharset(str,FileName,Charset,Flag)
'Flag: adSaveCreateNotExist=1
' adSaveCreateOverWrite 2
dim stream
set stream=Server.CreateObject("ADODB.Stream")
stream.type=1
stream.Mode=3
stream.Open()
stream.Write str
stream.Position = 0
stream.Type = 2
stream.Charset=Charset
stream.SaveToFile FileName, Flag
stream.Close()
set stream=nothing
End Function

谢谢