1. AI技术聚合首页
  2. IT

如何用ASP输出HTML文件？

社会演员多 • • IT • 阅读 26

<!–#include file=”top.inc”–>
<%
u_title=request.form(“u_title”)xml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??

‘ 检查标题是否被输入.
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>
  &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”–>

 

共计人评分，平均分

到目前为止还没有投票！成为第一位评论此文章。

赞 (0)
社会演员多的头像社会演员多普通用户
0
上一篇 2023年12月29日
下一篇 2023年12月29日

相关推荐