Leaked source code of windows server 2003
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"> <html>
<head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <meta name="GENERATOR" content="Microsoft FrontPage 2.0"> <title>PerlScript sample: Hello, world</title> </head>
<!--
ActiveState PerlScript sample PerlScript: The coolest way to program custom web solutions. -->
<TABLE CELLPADDING=0 BORDER=3 CELLSPACING=0> <TR VALIGN=TOP ><TD> <A NAME="TOP"><IMG SRC="PSBWlogo.gif" WIDTH=400 HEIGHT=48 ALT="The power of PerlScript!" BORDER=2></A><P> </TD></TR></TABLE> <HR>
<BODY BGCOLOR=#FFFFFF topmargin="8"> <!--
Microsoft PerlScript sample -->
<font size="5"></font><font size="5">HTML says: Hello, world!<br> <script language="VBScript"><!-- document.write "VBScript says: Hello, world!" --></script><br> <script language="PerlScript"> $window->document->write("PerlScript says: Hello, world!"); </script></font><br>
<form method="POST" name="MyForm"> <p><input type="text" size="32" name="Text1" value="Text1 says: Hello, world!"></p> <p><font size="5"><input type="button" name="VBSBtnHello" value="VBScript"><script language="VBScript"><!-- Sub VBSBtnHello_OnClick MyForm.Text1.value = "VBScript says: Hello, world!" End Sub --></script> <input type="button" name="PLSBtnHello" value="PerlScript"></font> <script language="PerlScript"> sub PLSBtnHello_onClick { #$MyForm->Text1->{'value'} = "PerlScript says: Hello, world!"; $window->document->MyForm->Text1->{'value'} = "PerlScript says: Hello, world!"; } sub PLSBtnHello_onclick { PLSBtnHello_onClick } </script><font size="5"> </font></p> </form> <HR> <p align="center"><font size="5"></font> </p> <TABLE BORDER=0 CELLPADDING=3 CELLSPACING=0 width=600> <TR VALIGN=TOP> <TD ALIGN=RIGHT> <FONT FACE="Arial, Helvetica" SIZE="1"> <B>Best experienced with<BR> <A HREF="http://www.microsoft.com/ie/" TARGET="_top"><img src="ie_animated.gif" width="88" height="31" border="0" alt="Microsoft Internet Explorer" vspace="5"></a> <BR>Click here to start.</B> </FONT></TD> </TR> </TABLE> </body> </html>
|