プロが教えるわが家の防犯対策術!

以前ご質問した内容で、改良したい部分があって、ご質問しました。
以前の質問は、

フォームで必要事項を入力してもらい(テキストやコンボなど)、「確認」みたいなボタンを押すと、入力した必要事項が確認できるものを作りたいのですが。
その値をメールで送信やDBに書き込むような作業はしない予定です。
単純に表示が出来ればOKです。
その画面を印刷して使用するものなので。

というものでした。

テキストボックスとコンボについては、出来ましたが、
チェックボックス、ラジオボタンの場合、どのように確認画面で表示すれば良いのかわからずご質問しました。
確認画面では、チェックボックスの値をテキストで表示するのではなく、
チェックボックスそのものを表示して、チェックの有無を確認できるようにしたいのですが(チェックをはずしたり出来る状態)
同じようにラジオボタンも選びなおせるようにしたいのです。

前回の投稿のURLはhttp://oshiete1.goo.ne.jp/kotaeru.php3?q=1014263
です。

使用したソースは、
michisanpoさんにお答え頂いたものを元にして使用しています。

A 回答 (1件)

これでどうでしょうか?


チェックボックス、ラジオボタンの表示には
そのまま<form>のチェックボックス、ラジオボタンを使用しました。

--------------------- form.html --------------------------------------
<html>
<body>
<form action="../../cgi-bin/kakunin.cgi" method="post">
<table><tr>
<td>名前</td>
<td><input type="text" name="name" size="30"></td>
</tr>
<tr>
<td>出身地</td>
<td>
<select name="home">
<option value="大阪府">大阪府</option>
<option value="京都府">京都府</option>
<option value="兵庫県">兵庫県</option>
<option value="和歌山県">和歌山県</option>
<option value="奈良県">奈良県</option>
</select>
</td>
</tr>
<tr>
<td>性別:</td>
<td>
<input type=radio name="sex" value="MAN" checked>男
<input type=radio name="sex" value="FIMALE">女
</td>
</tr>
<tr>
<td>趣味:</td>
<td>
<input type=checkbox name="hobby1" value="PC">パソコン
<input type=checkbox name="hobby2" value="SP">スポーツ
<input type=checkbox name="hobby3" value="RD">読書
</td>
</tr>
<tr>
<td><input type="submit" value="登録"></td>
<td><input type="reset" value="クリア"></td>
</tr>
</table>
</form>
</body>
</html>
----------------------------------------------------------------------
--------------------- kakunin.cgi ------------------------------------
#!C:/Perl/bin/perl
#フォーム(POST)の内容を受け取る
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$buffer);
foreach $pair (@pairs){
($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("C",hex($1))/eg;
$form{$name} = $value;
}
$name = $form{'name'};
$home = $form{'home'};
$sex = $form{'sex'};
$hobby1 = $form{'hobby1'};
$hobby2 = $form{'hobby2'};
$hobby3 = $form{'hobby3'};
print "Content-type: text/html\n";
print "\n";
print "<HTML>\n";
print "<BODY>\n";
print "確認画面<br>\n";
print "<table border><tr> \n";
print "<td>名前</td><td>$name</td> \n";
print "</tr><tr> \n";
print "<td>出身地</td> \n";
print "<td>$home</td> \n";
print "</tr><tr> \n";
print "<td>性別</td> \n";
print "<td> \n";

if( $sex eq "MAN" ){

print "<input type=radio name='sex' value='MAN' checked>男 \n";
print "<input type=radio name='sex' value='FIMALE'>女 \n";

}else{

print "<input type=radio name='sex' value='MAN'>男 \n";
print "<input type=radio name='sex' value='FIMALE' checked>女 \n";

}

print "</td> \n";
print "</tr><tr> \n";
print "<td>趣味</td> \n";
print "<td> \n";

if( $hobby1 eq "PC" ){

print "<input type=checkbox name='hobby1' value='PC' checked>パソ\コン \n";

}else{

print "<input type=checkbox name='hobby1' value='PC'>パソ\コン \n";

}

if( $hobby2 eq "SP" ){

print "<input type=checkbox name='hobby2' value='SP' checked>スポーツ \n";

}else{

print "<input type=checkbox name='hobby2' value='SP'>スポーツ \n";

}

if( $hobby3 eq "RD" ){

print "<input type=checkbox name='hobby3' value='RD' checked>読書 \n";

}else{

print "<input type=checkbox name='hobby3' value='RD'>読書 \n";

}

print "</td> \n";
print "</tr></table> \n";
print "</BODY>\n";
print "</HTML>\n";
exit;
----------------------------------------------------------------------
    • good
    • 0
この回答へのお礼

ありがとうございます!!
問題なくできました。
これを元に今後も色々作れそうです。
勉強になりました。
ホント助かりました!!!

お礼日時:2005/07/14 20:54

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!