Function WriteToUTF(content,sFilen)'content为替换后的字符串,filename为生成的文件名
dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Charset = "utf-8"' //编码,这里你可以改成任何编码
.Position = objStream.Size
.WriteText = content' //模版+数据 写入内容
.SaveToFile server.mappath("../"&sFilen),2' //生成文件路径
.Close
End With
Set objStream = Nothing
End Function
ASP用ADODB.Stream写UTF-8格式文件,已测试成功
最新推荐文章于 2022-03-11 01:26:46 发布