用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生成文件方法 

复制代码 代码如下:

<%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%>