#!/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";
このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー と 利用規約 が適用されます。
1文字以上入力してください
本文は少なくとも1文字以上必要です。
1文字以上入力してください。