ASP生成UTF-8编码的代码

　　方法一：createtextfile生成文件方法

　　function WriteToFile(FileName,FileContent)

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

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

　　fp.write(FileContent)

　　end function

　　方法二：ADODB.Stream生成文件方法

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

　　With ccObjStream

　　.Type = 2

　　.Mode = 3

　　.Open

　　.Charset = "utf-8"

　　.Position = ccObjStream.Size

　　.WriteText 要生成的内容

　　.SaveToFile 要生成文件路径和文件名,2

　　.Close

　　End With

　　CreateTextFile   方法

　　创建指定文件并返回   TextStream   对象，该对象可用于读或写创建的文件。

　　object.CreateTextFile(filename[,   overwrite[,   unicode]])

　　参数

　　object

　　必选项。应为   FileSystemObject   或   Folder   对象的名称。

　　filename

　　必选项。字符串表达式，指明要创建的文件。

　　overwrite

　　可选项。Boolean   值指明是否可以覆盖现有文件。如果可覆盖文件，该值为   True；如果不能覆盖文件，则该值为   False   。如果省略该值，则不能覆盖现有文件。

　　unicode

　　可选项。Boolean   值指明是否以   Unicode   或   ASCII   文件格式创建文件。如果以   Unicode   文件格式创建文件，则该值为   True；如果以   ASCII   文件格式创建文件，则该值为   False。如果省略此部分，则假定创建   ASCII   文件。