1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#!/usr/bin/perl /usr/bin/asp-perl
<!--#include file=header.inc-->
<table>
<form method=POST>
<tr>
<td>Your Name:</td>
<td><input name=name type=text size=30
value="<%=$Request->Form('name')%>" >
</td>
<td><input type=submit value="Submit Name"></td>
</tr>
</table>
<% if($Request->Form('name')) { %>
Your name is <tt><%=$Request->Form('name')%></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>
<!--#include file=footer.inc-->
|
