源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

如何用ASP输出HTML文件?

  • 时间:2020-03-29 12:01 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:如何用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"-->  

  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部