CreateTextFile(filename)
dim fso, f
set fso = server.CreateObject( "Scripting.FileSystemObject ")
filename= "test.txt "
set f = fso.CreateTextFile(filename) '第二个参数表示目标文件存在时是否覆盖
f.Write( "写入内容 ")
f.WriteLine( "写入内容并换行 ")
f.WriteBlankLines(3) '写入三个空白行（相当于在文本编辑器中按三次回车）
f.Close()
set f = nothing
set fso = nothing
Response.write " <A HREF= " & filename & "> Open The Excel File </a> "
end if
请问怎么没发现生成文件????也没提示错误
[解决办法]
没有路指定路径set f = fso.CreateTextFile(server.MapPath(filename))
[解决办法]
没有 server.mappath ,那么,你生成的文件,到 windows 目录里去找吧...
