<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
            %>