<form method="post" action=""> <textarea name="asp2html" style="display:none"><!--#include file="htmer.asp"--></textarea> <input type="submit" value="生成html页"/> </form> <% Dim Filename,Fso,Fout If Request.Form("asp2html")<>"" Then Filename="htmer.html" Set Fso=Server.CreateObject("Scripting.FileSystemObject") Set Fout=Fso.CreateTextFile(Server.Mappath(Filename)) Fout.Write Request.Form("asp2html") Fout.Close Set Fout=Nothing Set Fso=Nothing End If %>