|
|
Demo ASP: source.asp |
2024-12-04
|
Source of file formfill.asp:
<!--#include file=header.inc-->
<%
$Response->{FormFill} = 1;
%>
<table width=80%><tr><td>
This page makes use of the <b>FormFill</b> feature which
populates a HTML form from $Request->Form data. The FormFill
functionality is provided by the HTML::FillInForm module,
which in turn relies on HTML::Parser.
<p>
It is enabled with:
<pre>
at runtime: $Response->{FormFill} = 1
-- or --
in config: PerlSetVar FormFill 1
</pre>
At HTML::FillInForm v.07, select boxes must have
their option values defined explicitly to be auto filled
by the form fill feature, such as:
<pre>
<b><%=$Server->HTMLEncode('<option value="Value">')%></b>
</pre>
<table border=1 cellpadding=5>
<form method=POST>
<tr><td align=center colspan=2><b>Example Form</b></td></tr>
<tr>
<td>Your Name:</td>
<td><input name=name type=text size=30 value="Your Name"></td>
</tr>
<tr>
<td>Your Favorite Color:</td>
<td>
<select name=color>
<% for my $color (sort('Red', 'Blue', 'Green', 'Yellow')) { %>
<option value="<%=$color%>"><%= $color %></option>
<% } %>
</select>
</td>
</tr>
<tr><td colspan=2><input type=submit value="Submit Info"></td></tr>
</form>
</table>
<% if(%{$Request->{Form}}) { %>
<hr size=1>
Your name is <tt><%=$Request->Form('name')%></tt> <br>
Your favorite color is <tt><%= $Request->{Form}{color} %> </tt>
<% } %>
<hr size=1>
The following are the contents of the data returned
from doing a binary read of the form data:
<p>
<tt>
<%=$Request->BinaryRead($Request->{TotalBytes})%>
</tt>
</td></tr></table>
<!--#include file=footer.inc-->
view this file's source