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.
|
|
<%@ LANGUAGE = PerlScript%><html><head><meta name="GENERATOR" content="ActiveState_Hack = Dick Hardt"><!-- Copyright (c) 1996, Microsoft Corporation. All rights reserved. Developed by ActiveState Internet Corp., http://www.ActiveState.com--><title>ActiveX Database Objects</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>ActiveX Data Objects (ADO)</H3>
<% # Create the database connection object # $Conn = $Server->CreateObject("ADODB.Connection");
# Open a system DSN # $Conn->Open( "ADOSamples" );
# Execute an SQL query to retrieve all data from the table # Orders # $RS = $Conn->Execute( "SELECT * FROM Orders" );%>
<P> <TABLE BORDER=1> <TR> <% # This lets you know how many columns there are for each # record that was retrieved # $count = $RS->Fields->{Count};
# Print out the names of these columns # for ( $i = 0; $i < $count; $i++ ) { %> <TD> <B> <%= $RS->Fields($i)->{Name} %> </B> </TD> <% }; %> </TR> <% # EOF is a property which signals that the last # record in the recordset returned from the SQL # query has been passed # while ( ! $RS->{EOF} ) { %> <TR> <% # Print every value per column # for ( $i = 0; $i < $count; $i++ ) { %><TD VALIGN=TOP> <%= $RS->Fields($i)->{Value} %></TD><% }; %> </TR> <% # Move to the next record in the set # $RS->MoveNext; }; # Close the Recordset # $RS->Close;
# Close the Connection # $Conn->Close; %></TABLE>
<!-- +++++++++++++++++++++++++++++++++++++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>
|
