用ASP生成UTF-8网页文件的两种方法

　　<%function WriteToFile(FileName,FileContent)

　　set fso=server.createobject("scripting.filesystemobject")

　　set fp=fso.createtextfile(server.mappath(FileName),,True)

　　fp.write(FileContent)

　　end function%>

　　<%Function WriteToFile(FileName,FileContent)

　　Set ccObjStream = Server.CreateObject("ADODB.Stream")

　　With ccObjStream

　　.Type = 2

　　.Mode = 3

　　.Open

　　.Charset = "utf-8"

　　.Position = ccObjStream.Size

　　.WriteText FileContent

　　.SaveToFile FileName,2

　　.Close

　　End With

　　End Function%>