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