「MySQLプログラム－ソース」の編集履歴（バックアップ）一覧はこちら

「MySQLプログラム－ソース」(2008/07/15 (火) 17:49:37) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

<p>#!/usr/local/bin/perl<br />
###################################################<br />
#mysql.cgi  MySQLプログラム<br />
#                   2003.02.13  MARCO<br />
#              edit 2003.12.13  MARCO<br />
#<br />
#  パーミッション<br />
#              mysql.cgi(755)<br />
###################################################</p>
<p>############　設定項目　##############<br />
#データベース名<br />
$dbname='データベース名';<br />
#ユーザー名<br />
$user='ユーザ名';<br />
#パスワード<br />
$pass='パスワード';<br />
######################################<br />
#入力データを獲得<br />
use CGI;<br />
use DBI;</p>
<p>$form=CGI-&gt;new();<br />
$sql=$form-&gt;param(&quot;sql&quot;);</p>
<p>#ＨＴＭＬ作成<br />
print &quot;Content-type: text/html\n\n&quot;;<br />
print &quot;&lt;HTML&gt;\n&lt;HEAD&gt;\n&quot;;<br />
print &quot;&lt;meta http-equiv=\&quot;Content-Type\&quot;
content=\&quot;text/html;charset=x-sjis\&quot;&gt;\n&quot;;<br />
print &quot;&lt;TITLE&gt;MySQL&lt;/TITLE&gt;\n&quot;;<br />
print &quot;&lt;/HEAD&gt;\n&lt;BODY&gt;\n&quot;;<br />
print &quot;&lt;center&gt;&lt;font
size=5&gt;&lt;b&gt;MySQL&lt;/b&gt;&lt;/font&gt;&lt;/center&gt;\n&quot;;<br />
if($sql ne ''){<br />
 $db=DBI-&gt;connect(&quot;DBI:mysql:$dbname:localhost&quot;,&quot;$user&quot;,&quot;$pass&quot;);<br />
 $sth=$db-&gt;prepare($sql);<br />
 $res=$sth-&gt;execute;<br />
 if($res){<br />
  $num=$sth-&gt;rows;<br />
  $com=substr($sql,0,6);<br />
  $com=~tr/a-z/A-Z/;<br />
  if($com eq 'SELECT'){<br />
   print &quot;&lt;TABLE bgcolor=#ddddff&gt;\n&quot;;<br />
   for($i=0;$i&lt;$num;$i++){<br />
    @a=$sth-&gt;fetchrow_array;<br />
    print &quot;&lt;tr&gt;&quot;;<br />
    foreach(@a){<br />
     print &quot;&lt;td&gt; $_ &lt;/td&gt;\n&quot;;<br />
    }<br />
    print &quot;&lt;/tr&gt;\n&quot;;<br />
   }<br />
   print &quot;&lt;/table&gt;\n&quot;;<br />
  }<br />
  print &quot;$num件処理されました&lt;br&gt;\n&quot;;<br />
  print &quot;戻り値 = $res&lt;br&gt;\n&quot;;<br />
 }<br />
 else{<br />
  print &quot;エラーです\n&quot;;<br />
 }<br />
 $sth-&gt;finish;<br />
 $db-&gt;disconnect;<br />
}<br />
print &quot;&lt;FORM ACTION=mysql.cgi METHOD=POST&gt;SQL&lt;br&gt;\n&quot;;<br />
print &quot;&lt;textarea name=sql rows=5 cols=70&gt;$sql&lt;/textarea&gt;\n&quot;;<br />
print &quot;&lt;br&gt;&lt;input type=submit value=submit&gt;&lt;br&gt;\n&quot;;<br />
print &quot;&lt;/FORM&gt;\n&quot;;</p>
<p>print &quot;&lt;/BODY&gt;\n&lt;/HTML&gt;\n&quot;;</p>
<p> </p>
<p> </p>