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 目录里去找吧...