<%@ LANGUAGE = PerlScript%> <HTML> <HEAD> <!-- Copyright (c) 1996, Microsoft Corporation. All rights reserved. Developed by ActiveState Internet Corp., http://www.ActiveState.com --> <TITLE>Active Server Pages - Perl Version</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> <HR> <H3>Active Server Session Object</H3> <br> <% # get the value associated with 'MyVar' $varReturn = $Session->{'MyVar'}; # let the user know what the value of the variable is $Response->write("The value of the session variable MyVar is $varReturn"); %> <!-- +++++++++++++++++++++++++++++++++++++ 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>