Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl 
use DBI;
...
print "Query will return $sth->{NUM_OF_FIELDS} fields.\n\n";
print "Field names: @{ $sth->{NAME} }\n";
  2. or download this
    while ( my($sno, $name) = $sth->fetchrow() ) {
    print "$name: $sno\n";
    print "<img src=\"" . $name . "\" >\n";
} 
$sth->finish;
  3. or download this
    $dbh->disconnect;
print "succefully disconnected\n"; 

print "</body></html>\n";