MySQLプログラム-ソース


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

#!/usr/local/bin/perl
###################################################
#mysql.cgi  MySQLプログラム
#                   2003.02.13  MARCO
#              edit 2003.12.13  MARCO
#
#  パーミッション
#              mysql.cgi(755)
###################################################

############ 設定項目 ##############
#データベース名
$dbname='データベース名';
#ユーザー名
$user='ユーザ名';
#パスワード
$pass='パスワード';
######################################
#入力データを獲得
use CGI;
use DBI;

$form=CGI->new();
$sql=$form->param("sql");

#HTML作成
print "Content-type: text/html\n\n";
print "<HTML>\n<HEAD>\n";
print "<meta http-equiv=\"Content-Type\" content=\"text/html;charset=x-sjis\">\n";
print "<TITLE>MySQL</TITLE>\n";
print "</HEAD>\n<BODY>\n";
print "<center><font size=5><b>MySQL</b></font></center>\n";
if($sql ne ''){
 $db=DBI->connect("DBI:mysql:$dbname:localhost","$user","$pass");
 $sth=$db->prepare($sql);
 $res=$sth->execute;
 if($res){
  $num=$sth->rows;
  $com=substr($sql,0,6);
  $com=~tr/a-z/A-Z/;
  if($com eq 'SELECT'){
   print "<TABLE bgcolor=#ddddff>\n";
   for($i=0;$i<$num;$i++){
    @a=$sth->fetchrow_array;
    print "<tr>";
    foreach(@a){
     print "<td> $_ </td>\n";
    }
    print "</tr>\n";
   }
   print "</table>\n";
  }
  print "$num件処理されました<br>\n";
  print "戻り値 = $res<br>\n";
 }
 else{
  print "エラーです\n";
 }
 $sth->finish;
 $db->disconnect;
}
print "<FORM ACTION=mysql.cgi METHOD=POST>SQL<br>\n";
print "<textarea name=sql rows=5 cols=70>$sql</textarea>\n";
print "<br><input type=submit value=submit><br>\n";
print "</FORM>\n";

print "</BODY>\n</HTML>\n";