perl-asp mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Steve Lilley <slil...@healthapps.com>
Subject Large Select Box Selection Error
Date Thu, 07 Aug 2003 19:55:12 GMT
One of my applications has a select box which can get very large, 
however I have found that the Apache::ASP does not handle it 
particularly well.  I have tested it with the following two scripts. 
 The asp version craps out at about 165 while the CGI handles at least 
1000 everytime.  I have the file upload max set well beyond 165.

Here are the test scripts.

#!/usr/bin/perl /usr/bin/asp-perl
# first the large select box form

<form name="main" action="env.cgi" method="POST">
  <input type="text" name="sx">
  <select name="test" multiple size="10">
  <%foreach my $i (1..1000) {%>
  <option value="<%=$i%>" SELECTED><%=$i%></option>
  <%}%>
  </select>
  <input type="submit">
</form>

#!/usr/bin/perl /usr/bin/asp-perl
# the asp dump of the values
<%
my $fh = $Request->Form();
my $p=1;
%>
Form Results<br>
-------------------------------------<br>
<%foreach my $key (keys %{$fh}) {%>
  <%=$key . ' = '. $fh->{$key} . '<br>'%>
  <%if ($fh->{$key} =~ 'ARRAY') {
    foreach my $i (@{$fh->{$key}}) {%>
    <%=$p++%>.&nbsp;&nbsp;&nbsp;<%= $i %><br>
    <%} $p=1;%>
  <%}%>
<%}%>
<br>


#!/usr/bin/perl
# the CGI dump of the values
use CGI;

my $cgi = new CGI;

print $cgi->header;
print 'QueryString Results<br>';

my @values = $cgi->param('test');
foreach my $key (@values) {
  print $key . '<br>';
}

Any help will be greatly appreciated.

Steve



---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@perl.apache.org
For additional commands, e-mail: asp-help@perl.apache.org


Mime
View raw message