!--#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 Sizebr>
  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>
  nbsp;
  /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>nbsp;/p>p>nbsp;/p>p>nbsp;/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>nbsp;/p>p>nbsp;/p>p>nbsp;/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"-->