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.

71 lines
2.1 KiB

  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  2. <html>
  3. <head>
  4. <meta http-equiv="Content-Type"
  5. content="text/html; charset=iso-8859-1">
  6. <meta name="GENERATOR" content="Microsoft FrontPage 2.0">
  7. <title>PerlScript sample: Hello, world</title>
  8. </head>
  9. <!--
  10. ActiveState PerlScript sample
  11. PerlScript: The coolest way to program custom web solutions.
  12. -->
  13. <TABLE CELLPADDING=0 BORDER=3 CELLSPACING=0>
  14. <TR VALIGN=TOP ><TD>
  15. <A NAME="TOP"><IMG SRC="PSBWlogo.gif" WIDTH=400 HEIGHT=48 ALT="The power of PerlScript!" BORDER=2></A><P>
  16. </TD></TR></TABLE>
  17. <HR>
  18. <BODY BGCOLOR=#FFFFFF topmargin="8">
  19. <!--
  20. Microsoft PerlScript sample
  21. -->
  22. <font size="5"></font><font size="5">HTML says: Hello, world!<br>
  23. <script language="VBScript"><!--
  24. document.write "VBScript says: Hello, world!"
  25. --></script><br>
  26. <script language="PerlScript">
  27. $window->document->write("PerlScript says: Hello, world!");
  28. </script></font><br>
  29. <form method="POST" name="MyForm">
  30. <p><input type="text" size="32" name="Text1"
  31. value="Text1 says: Hello, world!"></p>
  32. <p><font size="5"><input type="button" name="VBSBtnHello"
  33. value="VBScript"><script language="VBScript"><!--
  34. Sub VBSBtnHello_OnClick
  35. MyForm.Text1.value = "VBScript says: Hello, world!"
  36. End Sub
  37. --></script> <input
  38. type="button" name="PLSBtnHello" value="PerlScript"></font>
  39. <script language="PerlScript">
  40. sub PLSBtnHello_onClick
  41. {
  42. #$MyForm->Text1->{'value'} = "PerlScript says: Hello, world!";
  43. $window->document->MyForm->Text1->{'value'} = "PerlScript says: Hello, world!";
  44. }
  45. sub PLSBtnHello_onclick
  46. {
  47. PLSBtnHello_onClick
  48. }
  49. </script><font size="5"> </font></p>
  50. </form>
  51. <HR>
  52. <p align="center"><font size="5"></font>&nbsp;</p>
  53. <TABLE BORDER=0 CELLPADDING=3 CELLSPACING=0 width=600>
  54. <TR VALIGN=TOP>
  55. <TD ALIGN=RIGHT>
  56. <FONT FACE="Arial, Helvetica" SIZE="1">
  57. <B>Best experienced with<BR>
  58. <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>
  59. <BR>Click here to start.</B>
  60. </FONT></TD>
  61. </TR>
  62. </TABLE>
  63. </body>
  64. </html>