如何用ASP输出HTML文件？

<!–#include file=\”top.inc\”–><%u_title=request.form(\”u_title\”)

\’ 检查标题是否被输入.if u_title = \”\” then%><form method=\”POST\” action=\”<%= request.servervariables(\”script_name\”) %>\”><!–当没有标题输入时显示输入框–> 文件标题 <input type=\”text\” name=\”u_title\” size=\”35\”> Font Size <select size=\”1\” name=\”u_text_size\”> <option selected value=\”1\”>1</option> <option value=\”2\”>2</option> <option value=\”3\”>3</option> <option value=\”4\”>4</option> <option value=\”5\”>5</option> <option value=\”6\”>6</option>   </select> 第1段 <textarea rows=\”2\” name=\”u_paragraph1\” cols=\”35\”></textarea> 第2段 <textarea rows=\”2\” name=\”u_paragraph2\” cols=\”35\”></textarea><input type=\”submit\” value=\”提交\” ></form><%end if%><%if u_title <> \”\” then u_title=request.form(\”u_title\”) u_paragraph1=request.form(\”u_paragraph1\”) u_paragraph2=request.form(\”u_paragraph2\”) u_text_color=request.form(\”u_text_color\”) u_text_size=request.form(\”u_text_size\”) g_filename=replace(u_title,\” \”,\”_\”)

\’ 如果有一个用户输入了标题,则获取所有的用户输入的内容.set fso = createobject(\”scripting.filesystemobject\”)Set act = fso.CreateTextFile(server.mappath(\”write2htm/\”&g_filename & \”-\”& month(date())& day(date())& year(date()) &\”.htm\”), true)\’创建create the text (html) file文件到服务器,并添加mmddyyyy 格式年月日.\’写所有用户输入的text (html) 文件, .htm 扩展名文件可以很容易地转换成你网站最需要的.asp 或 .inc文件. act.WriteLine \”<html>\” act.WriteLine chr(13) act.WriteLine \”<title>\”& u_title &\”</title>\” act.WriteLine chr(13) act.WriteLine \”<body bgcolor=\’#FFFFFF\’>\” act.WriteLine chr(13) act.WriteLine \”\” act.WriteLine chr(13) act.WriteLine u_title &\”\” act.WriteLine chr(13) act.WriteLine \”\” act.WriteLine chr(13) act.WriteLine u_paragraph1 &\”\” act.WriteLine chr(13) act.WriteLine \”\” act.WriteLine chr(13) act.WriteLine u_paragraph2 &\”\” act.WriteLine chr(13) act.WriteLine \”   \” act.WriteLine \”\” act.WriteLine \”此文件被创建!\” act.WriteLine now() &\”\”act.Close

\’ 关闭文件.%>您的页面已成功创建!请点击查看. <a href=\”write2htm/<%= g_filename &\”-\”& month(date())& day(date())& year(date()) %>.htm\” target=\”_blank\”>查看</a> <%response.write \”<html>\” response.write chr(13) response.write \”<title>\”& u_title &\”</title>\” response.write chr(13) response.write \”<body bgcolor=\’#FFFFFF\’>\” response.write chr(13) response.write \”\” response.write chr(13) response.write u_title &\”\” response.write chr(13) response.write \”\” response.write chr(13) response.write u_paragraph1 &\”\” response.write chr(13) response.write \”\” response.write chr(13) response.write u_paragraph2 &\”\” response.write chr(13) response.write \”   \” response.write \”\” response.write \”此文件被创建!\” response.write now() &\”\”end if%><!–#include file=\”bottom.inc\”–>