hello.asp | searchcode

/IronPython_Main/Runtime/Tests/LinqDlrTests/testenv/perl/eg/aspsamples/hello.asp

#
ASP | 49 lines | 44 code | 5 blank | 0 comment | 1 complexity | ce3bc8910cef9bc039cc5f02afccbdc0 MD5 | raw file
Possible License(s): GPL-2.0, MPL-2.0-no-copyleft-exception, CPL-1.0, CC-BY-SA-3.0, BSD-3-Clause, ISC, AGPL-3.0, LGPL-2.1, Apache-2.0


<%@ LANGUAGE = PerlScript %>

<html>

<HEAD>

<!-- 

	Copyright (c) 1996, Microsoft Corporation.  All rights reserved.

	Developed by ActiveState Internet Corp., http://www.ActiveState.com

-->

<TITLE> Hello World </TITLE>

</HEAD>



<BODY> <BODY BGCOLOR=#FFFFFF>

<!-- 

	ActiveState PerlScript sample 

	PerlScript:  The coolest way to program custom web solutions. 

-->



<!-- Masthead -->

<TABLE CELLPADDING=3 BORDER=0 CELLSPACING=0>

<TR VALIGN=TOP ><TD WIDTH=400>

<A NAME="TOP"><IMG SRC="PSBWlogo.gif" WIDTH=400 HEIGHT=48 ALT="ActiveState PerlScript" BORDER=0></A><P>

</TD></TR></TABLE>



<% 

	for ($i = 3; $i < 8; $i++) { 

%>

	<font size=<%= $i %>> 

		"Hello World!" 

	</font>

	<BR> 

<% 

	} 

%>



<!-- +++++++++++++++++++++++++++++++++++++

here is the standard showsource link - 

	Note that PerlScript must be the default language --> <hr>

<%

	$url = $Request->ServerVariables('PATH_INFO')->item;

	$_ = $Request->ServerVariables('PATH_TRANSLATED')->item;

	s/[\/\\](\w*\.asp\Z)//m;

	$params = 'filename='."$1".'&URL='."$url";

	$params =~ s#([^a-zA-Z0-9&_.:%/-\\]{1})#uc '%' . unpack('H2', $1)#eg;

%>

<A HREF="index.htm"> Return </A>

<A HREF="showsource.asp?<%=$params%>">

<h4><i>view the source</i></h4></A>  



</BODY>

</HTML>