home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _2c8dbb5baaffa68bbe1098ebc4f7bb57 < prev    next >
Encoding:
Text File  |  2000-03-15  |  2.6 KB  |  110 lines
  1. <%@ LANGUAGE = PerlScript%>
  2. <html>
  3. <head>
  4. <meta name="GENERATOR" content="ActiveState_Hack = Dick Hardt">
  5. <!-- 
  6.     Copyright (c) 1996, Microsoft Corporation.  All rights reserved.
  7.     Developed by ActiveState Internet Corp., http://www.ActiveState.com
  8. -->
  9. <title>ActiveX Database Objects</title>
  10. </head>
  11. <body>
  12. <BODY BGCOLOR=#FFFFFF>
  13.  
  14. <!-- 
  15.     ActiveState PerlScript sample 
  16.     PerlScript:  The coolest way to program custom web solutions. 
  17. -->
  18.  
  19. <!-- Masthead -->
  20. <TABLE CELLPADDING=3 BORDER=0 CELLSPACING=0>
  21. <TR VALIGN=TOP ><TD WIDTH=400>
  22. <A NAME="TOP"><IMG SRC="PSBWlogo.gif" WIDTH=400 HEIGHT=48 ALT="ActiveState PerlScript" BORDER=0></A><P>
  23. </TD></TR></TABLE>
  24.  
  25. <HR>
  26.  
  27. <H3>ActiveX Data Objects (ADO)</H3>
  28.  
  29.  
  30.     <%
  31.     # Create the database connection object
  32.         #
  33.     $Conn = $Server->CreateObject("ADODB.Connection");
  34.  
  35.         # Open a system DSN
  36.         #
  37.     $Conn->Open( "ADOSamples" );
  38.  
  39.         # Execute an SQL query to retrieve all data from the table
  40.         # Orders
  41.         #
  42.     $RS = $Conn->Execute( "SELECT * FROM Orders" );%>
  43.  
  44.     <P>
  45.     <TABLE BORDER=1>
  46.     <TR>
  47.     <%
  48.         # This lets you know how many columns there are for each 
  49.         # record that was retrieved
  50.         #
  51.     $count = $RS->Fields->{Count};
  52.  
  53.         # Print out the names of these columns
  54.         #
  55.     for ( $i = 0; $i < $count; $i++ ) {
  56.     %>
  57.         <TD>
  58.           <B>
  59.             <%= $RS->Fields($i)->{Name} %>
  60.           </B>
  61.         </TD>
  62.         <%
  63.     }; 
  64.         %> 
  65.         </TR> 
  66.         <%
  67.         # EOF is a property which signals that the last
  68.         # record in the recordset returned from the SQL
  69.         # query has been passed
  70.         #
  71.     while ( ! $RS->{EOF} ) {
  72.         %> <TR> <%
  73.                 # Print every value per column
  74.                 #
  75.         for ( $i = 0; $i < $count; $i++ ) {
  76.             %><TD VALIGN=TOP>
  77.             <%= $RS->Fields($i)->{Value} %></TD><%
  78.         };
  79.         %> </TR> <% 
  80.                 # Move to the next record in the set
  81.                 #
  82.         $RS->MoveNext;
  83.     };
  84.         # Close the Recordset
  85.         #
  86.     $RS->Close;
  87.  
  88.         # Close the Connection
  89.         #
  90.     $Conn->Close;
  91.     %>
  92. </TABLE>
  93.  
  94. <!-- +++++++++++++++++++++++++++++++++++++
  95. here is the standard showsource link - 
  96.     Note that PerlScript must be the default language --> <hr>
  97. <%
  98.     $url = $Request->ServerVariables('PATH_INFO')->item;
  99.     $_ = $Request->ServerVariables('PATH_TRANSLATED')->item;
  100.     s/[\/\\](\w*\.asp\Z)//m;
  101.     $params = 'filename='."$1".'&URL='."$url";
  102.     $params =~ s#([^a-zA-Z0-9&_.:%/-\\]{1})#uc '%' . unpack('H2', $1)#eg;
  103. %>
  104. <A HREF="index.htm"> Return </A>
  105. <A HREF="showsource.asp?<%=$params%>">
  106. <h4><i>view the source</i></h4></A>  
  107.  
  108. </BODY>
  109. </HTML>
  110.