asp生成UTF-8的HTML页
'tmp = ReadFileFrom("xxxx.html","utf-8")
'Call WriteFileTo("../index.html",content,"utf-8")'********************************'fc：文件内容，f：文件路径，cset：文件编码'********************************Function WriteFileTo(f,fc,cset) Dim objStream Set objStream = Server.CreateObject("ADODB.Stream") With objStream
.Open
.Charset = cset
.Position = objStream.Size
.WriteText = fc
.SaveToFile Server.Mappath(f), 2
.Close End With
Set objStream = Nothing End Function'********************************'f：文件路径，cset：文件编码'********************************Function ReadFileFrom(f,cset) Dim fc,objStream Set objStream = Server.CreateObject("ADODB.Stream") With objStream
.Type = 2
.Mode = 3
.Charset = cset
.Open
.LoadFromFile Server.MapPath(f)
fc = .ReadText End With
Set objStream = Nothing
ReadFileFrom = fcEnd Functionhttps://www.cnblogs.com/lichsky/p/3308386.html