如何用ASP輸出HTML文件？

來源：本站原創(chuàng)|時(shí)間：2020-01-11|欄目：編程問答|點(diǎn)擊：次

<%
u_title=request.form("u_title")<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

' 檢查標(biāo)題是否被輸入.
if u_title = "" then
%>
<form method="POST" action="<%= request.servervariables("script_name") %>">


文件標(biāo)題 
<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," ","_")

' 如果有一個用戶輸入了標(biāo)題,則獲取所有的用戶輸入的內(nèi)容.

set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath("write2htm/"&g_filename & "-"& month(date())& day(date())& year(date()) &".htm"), true)
' 創(chuàng)建create the text (html) file文件到服務(wù)器,并添加mmddyyyy 格式年月日.

' 寫所有用戶輸入的text (html) 文件, .htm 擴(kuò)展名文件可以很容易地轉(zhuǎn)換成你網(wǎng)站最需要的.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 "此文件被創(chuàng)建!"
act.WriteLine now() &""
act.Close

' 關(guān)閉文件.
%>
您的頁面已成功創(chuàng)建!請點(diǎn)擊查看.
<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 "此文件被創(chuàng)建!"
response.write now() &""
end if
%>

上一篇：如何顯示隨機(jī)信息？

欄目：編程問答

下一篇：如何把URL和郵件地址轉(zhuǎn)換為超級鏈接？

本文標(biāo)題：如何用ASP輸出HTML文件？

本文地址：http://mengdiqiu.com.cn/a1/bianchengwenda/12054.html

更多編程問答

欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

編程問答

如何用ASP輸出HTML文件？

您可能感興趣的文章

閱讀排行

本欄相關(guān)

隨機(jī)閱讀