home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 4 / hacker04 / 04_HACK04.ISO / src / PHP / foxproodbc.php3.txt < prev    next >
Encoding:
Text File  |  2002-05-06  |  2.7 KB  |  97 lines
  1. Foxpro via ODBC 
  2.  
  3. Example script of using ODBC to connect to a Visual Foxpro FREE TABLE directory and execute simple sql query. Please note:- this code is generic ODBC SQL. It should work with any ODBC database. 
  4.  
  5.  
  6. <? 
  7.  
  8. //__________________________________________________________ 
  9. // 
  10. //      foxpro.php 
  11. //      test odbc interface to visual foxpro free tables 
  12. //__________________________________________________________ 
  13. // 
  14.                   
  15.                   
  16. //__________________________________________________________ 
  17. function Error_Handler( $msg, $cnx ) { 
  18. // 
  19.     echo  "$msg \n"; 
  20.     odbc_close( $cnx); 
  21.     exit(); 
  22. } 
  23.  
  24. //__________________________________________________________ 
  25. function format_data( $data ) { 
  26. // 
  27.     $dat = trim($data); 
  28.     if (strlen($dat) == 0 || $dat ==  "1899-12-30" || $dat ==  "0") 
  29.         $dat =  " "; 
  30.     return $dat; 
  31. } 
  32.                   
  33. //---------------------------------------------------------- 
  34. // mainline 
  35. //---------------------------------------------------------- 
  36.  
  37. odbc_close_all(); 
  38. $cnx = odbc_connect(  "beauty",  "",  "" );               
  39. if( ! $cnx ) { 
  40.     Error_handler(  "Error in odbc_connect" , $cnx ); 
  41. } 
  42.                   
  43. echo  '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">'; 
  44. echo  "\n<html>\n"; 
  45. echo  "<head> 
  46. <STYLE type='text/css'> 
  47. <!-- 
  48.       th { 
  49.       FONT-FAMILY: 'Tahoma','Arial'; 
  50.       color: red; 
  51.       FONT-SIZE: 10pt; 
  52.       FONT-WEIGHT: bold; 
  53.       Font-style: normal; 
  54.       } 
  55.       td { 
  56.       FONT-FAMILY: 'Tahoma','Arial'; 
  57.       color: black; 
  58.       FONT-SIZE: 10pt; 
  59.       FONT-WEIGHT: bold; 
  60.       Font-style: normal; 
  61.       } 
  62. --> 
  63.  </STYLE>"; 
  64. echo  "</head>\n"; 
  65. echo  "<body>\n"; 
  66. $cur = odbc_exec( $cnx,  "select * from product where lower(desc2) like '%perfume%'" ); 
  67. if( ! $cur ) { 
  68.     Error_handler(  "Error in odbc_exec( no cursor returned ) " , $cnx ); 
  69. }                
  70.                   
  71. echo  "<table border=1 align='center' bgcolor='#ffefef' cellpadding=1 cellspacing=1>\n"; 
  72. $nfields = odbc_num_fields($cur);  
  73. for($i= 1; $i <= $nfields; $i++ ) {  
  74.     if (odbc_field_name($cur, $i) !=  "note") { 
  75.            echo( "<TH>" . odbc_field_name($cur, $i) .  "</TH>");  
  76.     } 
  77. }  
  78. echo( "</TR>\n");  
  79. while(odbc_fetch_row($cur)) {  
  80.        echo( "<TR>"); 
  81.        for($j = 1; $j <= $nfields; $j++) { 
  82.            if (odbc_field_name($cur, $j) !=  "note") { 
  83.                $value = format_data(odbc_result($cur, $j)); 
  84.             echo( "<TD>" . $value .  "</TD>"); 
  85.         } 
  86.     }  
  87.     echo( "</TR>\n");  
  88. } 
  89. echo( "</TABLE>"); 
  90.                  
  91. odbc_close( $cnx); 
  92. echo  "</body>\n"; 
  93. echo  "</html>\n";    
  94.             
  95. ?>
  96.  
  97.