以下为引用的内容: <% Dim post,filename,path,path1,yes,content post=request("post") filename=request("filename") path=request("path") path1=replace(path,"/","") yes=request("yes") content=request("content") If post=1 Then If filename="" Or path="" Or yes="" Or content="" Then response.write "对不起你有某项内容没有填写无法生成!" '如果用户信息填写不完全就返回错误信息 response.End else set fso = Server.CreateObject("Scripting.FileSystemObject") '设置FSO对象 If yes=1 Then '如果用户选择了"如果路径不存在就创建新文件夹", If Not fso.FolderExists(server.mappath(""&path&"")) Then '则检查用户输入的文件夹是否存在 fso.CreateFolder (server.mappath(""&path1&"")) '不存在就自动创建 End If Else '如果用户选择了"如果路径不存在不自动创建新文件夹", If not fso.FolderExists(server.mappath(""&path&"")) Then '则检查用户输入的文件夹是否存在 response.write "路径不存在,请后退重新输入!" '如果路径不存在就提示用户返回重写 response.End End If End If End If set fout = fso.CreateTextFile(server.mappath(""&path&"/"&filename&"")) '设置一个对象fout创建文件 fout.write content '把文件内容写入文件 response.write "生成成功!" '给用户返回生成成功的信息 response.end fout.close '关闭fout对象 set fout=Nothing '清空fout对象 set fso=Nothing '清空FSO对象 End If %> <form name="form1" method="post" action=""><br><br>要生成的文件内容:<br> <textarea rows=15 cols=60 name="content"></textarea> <br><br> 如果路径不存在就创建新文件夹:<input type="radio" name="yes" value="1">是 <input type="radio" name="yes" value="0">否 <br><br> 路 径:<input type="text" name="path" value=""> <br><br> 文件名:<input type="text" name="filename" value=""> <br><br> <input type="hidden" name="post" value="1"> <input type="submit" name="Submit" value="生成"> </form> </form> </form> |
关键词标签:实例,详解,原创,简单,
相关阅读
热门文章 Active Server Pages 错误 'ASP 0131'解决方
人气排行 ASP下标越界的解决方法ASP代码中如何屏蔽ip地址 禁止某IP段访问网站“文件共享锁定数溢出” 原因及解决方法无法写入数据库的解决方法如何用ASP来获取客户端真实IP的地址用Asp编程实现QQ的在线情况查询ASP常用函数列表ASP用FSO生成HTML简单实例+详解[原创]
查看所有0条评论>>