PageRenderTime 3ms CodeModel.GetById 1ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/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
 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<!-- +++++++++++++++++++++++++++++++++++++
35here 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>