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