位置：首页>> 网络编程>> Asp编程>> 如何用ASP输出HTML文件？

如何用ASP输出HTML文件？

　　发布时间：2010-06-11 20:01:00　

标签：html,asp

如何用ASP输出HTML文件？

<％
u_title=request.form("u_title")
' 检查标题是否被输入
if u_title = "" then
％>
<form method="POST" action="<％= request.servervariables("script_name") ％>">

 文件标题 
 <input type="text" name="u_title" size="35">
 Font Size 
 <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>
 第1段 
 <textarea rows="2" name="u_paragraph1" cols="35"></textarea>
 第2段 
 <textarea rows="2" name="u_paragraph2" cols="35"></textarea><input type="submit" value="提交" >
</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 ""
 act.WriteLine chr(13)
 act.WriteLine u_title &""
 act.WriteLine chr(13)
 act.WriteLine ""
 act.WriteLine chr(13)
 act.WriteLine u_paragraph1 &""
 act.WriteLine chr(13)
 act.WriteLine ""
 act.WriteLine chr(13)
 act.WriteLine u_paragraph2 &""
 act.WriteLine chr(13)
 act.WriteLine "   "
 act.WriteLine ""
 act.WriteLine "此文件被创建!"
 act.WriteLine now() &""
act.Close
' 关闭文件
％>
您的页面已成功创建!请点击查看.
<a href="write2htm/<％= g_filename &"-"& month(date())& day(date())& year(date()) ％>.htm"
target="_blank">查看</a>
 
 
<％ 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 ""
 response.write chr(13)
 response.write u_title &""
 response.write chr(13)
 response.write ""
 response.write chr(13)
 response.write u_paragraph1 &""
 response.write chr(13)
 response.write ""
 response.write chr(13)
 response.write u_paragraph2 &""
 response.write chr(13)
 response.write "   "
 response.write ""
 response.write "此文件被创建!"
 response.write now() &""
end if
％>

投稿

如何用ASP输出HTML文件？

猜你喜欢