ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ivan Frolcov                         2:5020/175.2   10 Nov 2000  14:09:11
 To : Andrey Larushkin
 Subject : Win32::ODBC
 -------------------------------------------------------------------------------- 
 

  AL> Люди, кинте в меня, плиз, примером использования сажевого молуля.
  AL> Почитал хелп не все понятно.
 
 #!perl
 use Win32::ODBC;
 use CGI qw/:standart/;
 use strict;
 
 my($q, $id, $fn, $db, $res);
 
 $q=new CGI;
 
 binmode(STDOUT);
 print "Content-type: image/gif\n\n";
 
 print STDERR $id, "\n";
 
 $id=$q->param('id');
 $fn="/perl/data/$id";
 
 print STDERR $fn;
 
 if (-f $fn ){
   open FL, $fn;
   binmode FL;
   sysread FL, $res, -s FL;
   print $res;
   close FL;
   return;
 }
 
 $db= new Win32::ODBC("DSN=nm1;UID=sa;PWD=");
 
 $db->Sql("set textsize 65536");
 $db->Sql("use pubs");
 $db->Sql("select logo from pub_info where pub_id='$id'");
 $db->FetchRow();
 
 $res=$db->Data('logo');
 print $res;
 
 $db->Close;
 
 open FL,">$fn";
 binmode FL;
 syswrite FL, $res, length($res);
 close FL;
 
 --- ifmail v.2.15
  * Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Win32::ODBC   Andrey Larushkin   10 Nov 2000 11:48:16   Win32::ODBC   Ivan Frolcov   10 Nov 2000 14:09:11