如何用ASP输出HTML文件?

栏目: 编程语言 · 发布时间: 7年前

内容简介:如何用ASP输出HTML文件?

<!--#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"-->

 


以上就是本文的全部内容,希望本文的内容对大家的学习或者工作能带来一定的帮助,也希望大家多多支持 码农网

查看所有标签

猜你喜欢:

本站部分资源来源于网络,本站转载出于传递更多信息之目的,版权归原作者或者来源机构所有,如转载稿涉及版权问题,请联系我们

计算机程序设计艺术卷1:基本算法(英文版.第3版)

计算机程序设计艺术卷1:基本算法(英文版.第3版)

Donald E.Knuth / 人民邮电出版社 / 2010-10 / 119.00元

《计算机程序设计艺术》系列著作对计算机领域产生了深远的影响。这一系列堪称一项浩大的工程,自1962年开始编写,计划出版7卷,目前已经出版了4卷。《美国科学家》杂志曾将这套书与爱因斯坦的《相对论》等书并列称为20世纪最重要的12本物理学著作。目前Knuth正将毕生精力投入到这部史诗性著作的撰写中。想了解本书最新信息,请访http://www-cs-faculty.stanford.edu/~knut......一起来看看 《计算机程序设计艺术卷1:基本算法(英文版.第3版)》 这本书的介绍吧!

JS 压缩/解压工具
JS 压缩/解压工具

在线压缩/解压 JS 代码

JSON 在线解析
JSON 在线解析

在线 JSON 格式化工具

XML 在线格式化
XML 在线格式化

在线 XML 格式化压缩工具