<!–#include file=\”top.inc\”–><%u_title=request.form(\”u_title\”)
\’ 检查标题是否被输入.if u_title = \”\” then%><form method=\”POST\” action=\”<%= request.servervariables(\”script_name\”) %>\”><!–当没有标题输入时显示输入框–> <p>文件标题<br> <input type=\”text\” name=\”u_title\” size=\”35\”></p> <p>Font Size<br> <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></p> <p>第1段<br> <textarea rows=\”2\” name=\”u_paragraph1\” cols=\”35\”></textarea></p> <p>第2段<br> <textarea rows=\”2\” name=\”u_paragraph2\” cols=\”35\”></textarea><input type=\”submit\” value=\”提交\” ></p></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 \”<p align=\’center\’><font face=\’arial\’ size=\’\”& u_text_size &\”\’>\” act.WriteLine chr(13) act.WriteLine u_title &\”</p>\” act.WriteLine chr(13) act.WriteLine \”<p align=\’left\’><font face=\’arial\’ size=\’\”&u_text_size&\”\’>\” act.WriteLine chr(13) act.WriteLine u_paragraph1 &\”</p>\” act.WriteLine chr(13) act.WriteLine \”<p align=\’left\’><font face=\’arial\’ size=\’\”& u_text_size &\”\’>\” act.WriteLine chr(13) act.WriteLine u_paragraph2 &\”</p>\” act.WriteLine chr(13) act.WriteLine \”<p> </p><p> </p><p> </p>\” act.WriteLine \”<p align=\’center\’><font face=\’arial\’ size=\’\”& u_text_size &\”\’>\” act.WriteLine \”此文件被创建!\” act.WriteLine now() &\”</p>\”act.Close
\’ 关闭文件.%>您的页面已成功创建!请点击查看. <a href=\”write2htm/<%= g_filename &\”-\”& month(date())& day(date())& year(date()) %>.htm\” target=\”_blank\”>查看</a><br><br><%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 \”<p align=\’center\’><font face=\’arial\’ size=\’\”& u_text_size &\”\’>\” response.write chr(13) response.write u_title &\”</p>\” response.write chr(13) response.write \”<p align=\’left\’><font face=\’arial\’ size=\’\”&u_text_size&\”\’>\” response.write chr(13) response.write u_paragraph1 &\”</p>\” response.write chr(13) response.write \”<p align=\’left\’><font face=\’arial\’ size=\’\”& u_text_size &\”\’>\” response.write chr(13) response.write u_paragraph2 &\”</p>\” response.write chr(13) response.write \”<p> </p><p> </p><p> </p>\” response.write \”<p align=\’center\’><font face=\’arial\’ size=\’\”& u_text_size &\”\’>\” response.write \”此文件被创建!\” response.write now() &\”</p>\”end if%><!–#include file=\”bottom.inc\”–>