用CreateObject("Scripting.FileSystemObject")写入utf-8的文件会出现乱码问题

可以使用CreateObject("adodb.stream")写入，设置编码为utf-8即可

function writeToFile(charset,content,filepath)

			set stm=server.CreateObject("adodb.stream")
			stm.Type=2'以本模式读取
			stm.mode=3
			stm.charset=charset
			stm.open
			stm.WriteText content
			stm.SaveToFile server.MapPath(filepath),2 
			stm.flush
			stm.Close
			set stm=nothing
		end function

content：写入内容

filepath：文件路径