home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _0a483d5f592048a2424f30da6414f842 < prev    next >
Encoding:
Text File  |  2000-03-15  |  1.5 KB  |  56 lines
  1. <%@ LANGUAGE = PerlScript%>
  2. <HTML>
  3. <HEAD><TITLE>Request Object</TITLE></HEAD>
  4.  
  5. <BODY> <BODY BGCOLOR=#FFFFFF>
  6. <!-- 
  7.     ActiveState PerlScript sample 
  8.     PerlScript:  The coolest way to program custom web solutions. 
  9. -->
  10.  
  11. <!-- Masthead -->
  12. <TABLE CELLPADDING=3 BORDER=0 CELLSPACING=0>
  13. <TR VALIGN=TOP ><TD WIDTH=400>
  14. <A NAME="TOP"><IMG SRC="PSBWlogo.gif" WIDTH=400 HEIGHT=48 ALT="ActiveState PerlScript" BORDER=0></A><P>
  15. </TD></TR></TABLE>
  16.  
  17. <H3>Web Forms Example</H3><P>
  18.  
  19. <%
  20.     my($name) = $Request->Form('Yourname')->Item();
  21.     $name = $Server->HTMLEncode($name);
  22. %>
  23.  
  24. <%
  25.     if($name eq 'Enter Your name here') {
  26.     $Response->Write("Please type your name in the box below and then press the button");
  27.     }
  28.     else {
  29.     $Response->Write("Hello $name"); 
  30.     }
  31. %>
  32.  
  33. <CENTER>
  34. <FORM ACTION="wform.asp" METHOD="POST">
  35. <INPUT TYPE="Textfield" NAME="Yourname" MAXLENGTH="30" VALUE="Enter Your Name Here">
  36. <INPUT TYPE="SUBMIT" VALUE="Click Me">
  37. </FORM>
  38. </CENTER>
  39.  
  40.  
  41. <!-- +++++++++++++++++++++++++++++++++++++
  42. here is the standard showsource link - 
  43.     Note that PerlScript must be the default language --> <hr>
  44. <%
  45.     $url = $Request->ServerVariables('PATH_INFO')->item;
  46.     $_ = $Request->ServerVariables('PATH_TRANSLATED')->item;
  47.     s/[\/\\](\w*\.asp\Z)//m;
  48.     $params = 'filename='."$1".'&URL='."$url";
  49.     $params =~ s#([^a-zA-Z0-9&_.:%/-\\]{1})#uc '%' . unpack('H2', $1)#eg;
  50. %>
  51. <A HREF="index.htm"> Return </A>
  52. <A HREF="showsource.asp?<%=$params%>">
  53. <h4><i>view the source</i></h4></A>  
  54.  
  55. </BODY>
  56. </HTML>