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   文件。