CodeAve.com/ASP - ASP Form Input to HTML

CodeAve.com - ASP - Read/Write

ASP
·Read/Write
·Script Writers
·Database Display
·Response Objects
·Server Variables
·Random Events
·Articles
·Miscellaneous
·Contents
·What's New?
JavaScript
CSS
HTML
Links
Mail List
Search
Sitemap

ASP Form Input to HTML

ASP has the ability to write .html or any other text based documents directly to a web server (You need to write the text output to a directory that has write authority). This enables the instantaneous publication of user input without the need for uploading files from a PC. The following example has four input fields (Title{Required}, Font Size, Paragraph1, and Paragraph2). From these inputted values a text object will be created on the server with the .htm (which can just as easily be a .asp, .inc, .txt, .shtml) extension named from the user input for the title a dash and the current date. The other input will be written to the text object and will able to be viewed at http://www.codeave.com/asp/write2htm/user_input-mmddyyyy.htm

•Text View

•Print View

•Mail this Link

<%
'Check to see if title has been entered or not
u_title=request.form("u_title")
if u_title = "" then
%>

<form method="POST" action="<%= request.servervariables("script_name") %>">

Document Title 
<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>
Paragraph 1 
<textarea rows="2" name="u_paragraph1" cols="35"></textarea>
Paragraph 2 
<textarea rows="2" name="u_paragraph2" cols="35"></textarea><input type="submit" value="Submit" >
</form>
<%
end if
%>

<%
if u_title <> "" then
' If there is a user inputted title
' get all of the user inputed values
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")
' create the text (html) file to the server adding the -mmddyyyy after the g_title value
Set act = fso.CreateTextFile(server.mappath("write2htm/"&g_filename & "-"& month(date())& day(date())& year(date()) &".htm"), true)

' write all of the user input to the text (html) document
' The .htm extension can just as easily be .asp or .inc whatever best suits your needs
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 "This document was created on "
act.WriteLine now() &""

' close the document
act.Close
%>
Your page has been successfully create and can be viewed by clicking
<a href="write2htm/<%= g_filename & month(date())& day(date())& year(date()) %>.htm" target="_blank">here</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 "This document was created on "
response.write now() &""
end if
%>