home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _4cadf076a21cf890c2f1f249ef6e15fe < prev    next >
Text File  |  2004-06-01  |  1KB  |  50 lines
  1. <%@ LANGUAGE = PerlScript %>
  2. <html>
  3. <HEAD>
  4. <!-- 
  5.     Copyright (c) 1996, Microsoft Corporation.  All rights reserved.
  6.     Developed by ActiveState Internet Corp., http://www.ActiveState.com
  7. -->
  8. <TITLE> Hello World </TITLE>
  9. </HEAD>
  10.  
  11. <BODY> <BODY BGCOLOR=#FFFFFF>
  12. <!-- 
  13.     ActiveState PerlScript sample 
  14.     PerlScript:  The coolest way to program custom web solutions. 
  15. -->
  16.  
  17. <!-- Masthead -->
  18. <TABLE CELLPADDING=3 BORDER=0 CELLSPACING=0>
  19. <TR VALIGN=TOP ><TD WIDTH=400>
  20. <A NAME="TOP"><IMG SRC="PSBWlogo.gif" WIDTH=400 HEIGHT=48 ALT="ActiveState PerlScript" BORDER=0></A><P>
  21. </TD></TR></TABLE>
  22.  
  23. <% 
  24.     for ($i = 3; $i < 8; $i++) { 
  25. %>
  26.     <font size=<%= $i %>> 
  27.         "Hello World!" 
  28.     </font>
  29.     <BR> 
  30. <% 
  31.     } 
  32. %>
  33.  
  34. <!-- +++++++++++++++++++++++++++++++++++++
  35. here is the standard showsource link - 
  36.     Note that PerlScript must be the default language --> <hr>
  37. <%
  38.     $url = $Request->ServerVariables('PATH_INFO')->item;
  39.     $_ = $Request->ServerVariables('PATH_TRANSLATED')->item;
  40.     s/[\/\\](\w*\.asp\Z)//m;
  41.     $params = 'filename='."$1".'&URL='."$url";
  42.     $params =~ s#([^a-zA-Z0-9&_.:%/-\\]{1})#uc '%' . unpack('H2', $1)#eg;
  43. %>
  44. <A HREF="index.htm"> Return </A>
  45. <A HREF="showsource.asp?<%=$params%>">
  46. <h4><i>view the source</i></h4></A>  
  47.  
  48. </BODY>
  49. </HTML>
  50.