home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 1997 / CT_SW_97.ISO / pc / software / entwickl / win95 / plsei306.exe / aspSamples / hello.asp < prev    next >
Text File  |  1997-03-22  |  1KB  |  45 lines
  1. <%@ LANGUAGE = PerlScript %>
  2. <html>
  3. <HEAD>
  4. <!-- 
  5.     Copyright (c) 1996, Microsoft Corporation.  All rights reserved.
  6.     Developed by ActiveWare Internet Corp., http://www.ActiveWare.com
  7. -->
  8. <TITLE> Create a  MSWC.BrowserType Browser Capabilities component </TITLE>
  9. </HEAD>
  10.  
  11. <BODY> <BODY BGCOLOR=#FFFFFF>
  12. <!-- 
  13.     ActiveWare 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="ActiveWare PerlScript" BORDER=0></A><P>
  21. </TD></TR></TABLE>
  22.  
  23. <% 
  24.     for ($i = 3; $i < 8; $i++) { 
  25.         %><font size=
  26.         <%= $i %> > "Hello World!" </font><BR> <% 
  27.     } %>
  28.  
  29. <!-- +++++++++++++++++++++++++++++++++++++
  30. here is the standard showsource link - 
  31.     Note that PerlScript must be the default language --> <hr>
  32. <%
  33.     $url = $Request->ServerVariables('PATH_INFO')->item;
  34.     $_ = $Request->ServerVariables('PATH_TRANSLATED')->item;
  35.     s/[\/\\](\w*\.asp\Z)//m;
  36.     $params = 'filename='."$1".'&URL='."$url";
  37.     $params =~ s#([^a-zA-Z0-9&_.:%/-\\]{1})#uc '%' . unpack('H2', $1)#eg;
  38. %>
  39. <A HREF="index.htm"> Return </A>
  40. <A HREF="showsource.asp?<%=$params%>">
  41. <h4><i>view the source</i></h4></A>  
  42.  
  43. </BODY>
  44. </HTML>
  45.