ASP4
17 results

 view release on metacpan or  search on metacpan

t/htdocs/useragent/upload-form.asp  view on Meta::CPAN 

<html>
<body>
<%
  if( my $file = $Request->FileUpload("filename") )
  {
    my $tmp = '/tmp/' . rand();
    $file->SaveAs( $tmp );
    unlink($tmp);
%>
<form name="form1">
<%= $file->FileName %> -- <%= $file->FileExtension %> -- <%= $file->FileSize %><br/>
<textarea name="file_contents"><%= $file->FileContents %></textarea>
</form>
<%
  }
  else
  {
%>
<form name="form1" action="/useragent/upload-form.asp" method="post" enctype="multipart/form-data">
  <input type="file" name="filename">
  <br>
  <input type="submit" value="Submit" >
</form>
<%
  }# end if()
%>
</body>
</html>



( run in 0.713 second using v1.01-cache-2.11-cpan-ceb78f64989 )