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

时间:2022-05-14 01:32:28

方法一: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%>