如何用ASP输出HTML文件?_编程10000问教程-查字典教程网
如何用ASP输出HTML文件?
如何用ASP输出HTML文件?
发布时间:2016-12-29 来源:查字典编辑
摘要:

<>

<%

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

%>

<>

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新编程10000问学习
    热门编程10000问学习
    编程开发子分类