form method="post" action="">
textarea name="asp2html" style="display:none">!--#include file="htmer.asp"-->/textarea>
input type="submit" value="生成html頁(yè)"/>
/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
%>