方法一：createtextfile生成文件方法
复制代码 代码如下:
<%functionWriteToFile(FileName,FileContent)
setfso=server.createobject("scripting.filesystemobject")
setfp=fso.createtextfile(server.mappath(FileName),,True)
fp.write(FileContent)
endfunction%>

方法二：ADODB.Stream生成文件方法
复制代码 代码如下:
<%FunctionWriteToFile(FileName,FileContent)
SetccObjStream=Server.CreateObject("ADODB.Stream")
WithccObjStream
.Type=2
.Mode=3
.Open
.Charset="utf-8"
.Position=ccObjStream.Size
.WriteTextFileContent
.SaveToFileFileName,2
.Close
EndWith
EndFunction%>