1. ･ﾚ･ﾃ･ﾈｿﾞｴﾕ･ﾆ｡ｼ･ﾖ･�ｫ､鬘｢･ﾑ･鬣癸ｼ･ｿ､ﾈ､ｷ､ﾆﾅﾏ､ｵ､�ｿ｡ﾖﾈﾖｹ譯ﾗ､ｭ｡ｼ､ﾋ｡｢､ｹ､ﾙ､ﾆ､ﾎｹ猯ﾜ､｡ｺｹ､�｣
   ｡ﾊselect * from pet_list where bangou=?｡ﾋ
2. ｸ｡ｺｵ､�ｿﾆ簣ﾆ､�ﾎﾏ･ﾜ･ﾃ･ｯ･ｹ､ﾎ､ｽ､�ｾ､�ﾎﾍﾋｴ鈺�ﾍ､ﾈ､ｷ､ﾆﾉｽｼｨ､ｹ､�｣
3. ﾉｽｼｨ､ｵ､�ｿﾆ�ﾎﾏ･ﾜ･ﾃ･ｯ･ｹ､ﾎﾆ簣ﾆ､ﾑｹｹｸ蝪｢ｹｹｿｷ･ﾜ･ｿ･ｬｲ｡､ｵ､��ﾈ｡｢､ｹ､ﾙ､ﾆ､ﾎｹ猯ﾜ､ﾎﾆ簣ﾆ､�､ﾃ､ﾆ･ﾚ･ﾃ･ﾈｿﾞｴﾕｹｹｿｷ･ﾗ･愠ｰ･鬣爍ﾊpet44.cgi｡ﾋ､ﾘｰﾜ､�｣､ｽ､ﾎｺﾝ｡｢､ｹ､ﾙ､ﾆ､ﾎｹ猯ﾜ､ﾎｾﾈ"UPDATE"(ｹｹｿｷ)､ﾑ･鬣癸ｼ･ｿ､ﾈ､ｷ､ﾆﾅﾏ､ｹ｡｣
4. ﾋﾃ･ﾜ･ｿ･ｯ･�ﾃ･ｯ､ｹ､�ﾈ･ﾚ･ﾃ･ﾈｿﾞｴﾕｹｹｿｷ･ﾗ･愠ｰ･鬣爍ﾊpet44.cgi｡ﾋ､ﾘｰﾜ､�｣､ｽ､ﾎｺﾝ｡｢､ｹ､ﾙ､ﾆ､ﾎｹ猯ﾜ､ﾎｾﾈ"DELETE"(ﾋﾃ)､ﾑ･鬣癸ｼ･ｿ､ﾈ､ｷ､ﾆﾅﾏ､ｹ｡｣

#!/usr/bin/perl
#------------------
#program-ID:pet42.cgi
#auther    :t-egi
#date      :2002/2/5
#------------------
use CGI;
use DBI;

$query = new CGI;
$t0id = $query->param('ibangou');

print "Content-Type: text/html\n\n";
#-------------------
$username="egi";
if($t0id){
	$dbh = DBI->connect("dbi:Pg:dbname=egi",$username)
	or die "Cannot connect:",$DBI->errstr;
	$iSelect = "Select bangou, animal, type, photo, height, weight, chara from pet_list where bangou=?";
	$sth = $dbh->prepare($iSelect)
	or die "Cannot prepare:",$dbh->errstr();
	$sth->execute($t0id) or die "Cannot execute: " , $sth->errstr();
}
#-------------------
print "｡緝tml>\n";
print "｡緝ead>｡縟itle>select｡�/title>\n";
print "｡緡eta http-equiv=\"content-type\" content=\"text/html;charset=x-euc-jp\">\n";
print "｡�/head>\n";
print "｡綯ody bgcolor =LINEN>\n";
print "｡緜enter>\n";
print "｡緝5>\n";
print "｡紵>ｹｹｿｷｲ靂ﾌ｡�/I>\n";
print "｡紮ORM ACTION=\"./pet44.cgi\" METHOD=\"post\">";
print "｡綉ABLE BORDER = 1 bgcolor =SKYBLUE>\n";
if($t0id){ @row = $sth->fetchrow_array(); }
print "｡縟r>｡縟h>ﾈﾖｹ譯�/th>｡縟d>｡緤nput type=text size=2 name=ibangou value=\"$row[0]\" ｡�/td>｡�/tr>\n";
print "｡縟r>｡縟h>ﾆｰﾊｪｼ��/th>｡縟d>｡緤nput type=text size=10 name=ianimal value=\"$row[1]\" ｡�/td>｡�/tr>\n";
print "｡縟r>｡縟h>ｼ�爍�/th>｡縟d>｡緤nput type=text size=40 name=itype value=\"$row[2]\" ｡�/td>｡�/tr>\n";
print "｡縟r>｡縟h>ｼﾌｿｿ｡�/th>｡縟d>｡緤nput type=text size=15 name=iphoto value=\"$row[3]\"｡�/td>｡�/tr>\n";
print "｡縟r>｡縟h>ﾂﾎｹ筍�/th>｡縟d>｡緤nput type=text size=40 name=iheight value=\"$row[4]\"｡�/td>｡�/tr>\n";
print "｡縟r>｡縟h>ﾂﾎｽﾅ｡�/th>｡縟d>｡緤nput type=text size=40 name=iweight value=\"$row[5]\"｡�/td>｡�/tr>\n";
print "｡縟r>｡縟h>ﾀｭｳﾊ｡�/th>｡縟d>｡緤nput type=text size=120 name=ichara value=\"$row[6]\"｡�/td>｡�/tr>\n";
print "｡�/TABLE>\n";
print "｡緤nput type=\"hidden\" name=\"ibangou\" value=".$t0id.">";
if ($t0id){
	print "｡縣>｡緤nput type=\"submit\" name=UPDATE value=\"ｹｹｿｷ\">\n";
	print "｡緤nput type=\"submit\" name=DELETE value=\"ﾋﾃ\">\n";
}
else{
	print"｡縣>｡緤nput type=\"submit\" name=INSERT value=\"ﾄﾉｲﾃ\">\n";
}

print "｡�/FORM>";
print "｡紜 HREF=\"./pet41.cgi\"ﾌ皃�";
print "｡�/CENTER>\n";
print "｡�/BODY>\n";
print "｡�/HTML>\n";