■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
ＣＧＩ３分クッキング
Vol:046
発行日： 1999年12月24日
総発行部数： 1930部
（1999年12月24日現在）
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆PR◆--------------------------------------------------------------------
●もう、牛なしでは生きていけない・・・
京都で一番おいしい牛肉に選ばれました。
お正月は「いづつ屋」のお肉だね！
http://www.tanba-izutsuya.com/
--------------------------------------------------------------------◆PR◆
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆目次◆
●Ｗｅｂ新撰組ニュース
●今日の献立：熱血！検索君
●予告
●はぎちゃん今日のひとこと
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆PR◆--------------------------------------------------------------------
大人の女性のニキビ対策に。１００％オイルカットの３ステップで健やかな肌へ。
オルビスのクリアシリーズミニセット 1680円←初回購入特典さらに300円引き！
click< http://a.clickincome.net/md/dk?mid=e01606c2e2a6bb19677f81173f8ba5e8 >
--------------------------------------------------------------------◆PR◆
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
●Ｗｅｂ新撰組ニュース
メールを使った新しい遊びを追及する「メールで遊ぼう！」。
出会いの広場「みんなの掲示板」も登場！
http://www.web-kyoto.com/vmail/
へＧＯ！
Ｗｅｂ新撰組メンバー執筆のCGI参考書。
「Perlで作る楽しいCGI」は、エーアイ出版のエーアイムックNo.237。
内容についての御質問は、新撰組ＭＬ(http://www.web-kyoto.com/ml/)へ。
●お知らせ
今年のCGI3分クッキングは、今週で終了です。
次回は、来年１月１１日（火曜日）発行で〜す。
●今日の献立：データ変更その２
今回から、ほんとにデータ変更・削除部分の作成です。
変更の手順としては、先ず、データ番号でデータを検索し、その結果を変更用
フォームに表示させます。
変更用フォームに入力して変更ボタンを押すとデータが変更されます。
この時、題名を空にして変更ボタンを押すと、データが削除されるようにします。
今回は、変更用フォームの表示部分までを作成しましょう。
◇前回の続き。。。
-----------------------------------------------
1:#!/usr/local/bin/perl
2:
3:use Sprite; #Spriteの読み込み
4:$CgiName='hserch.cgi'; #このCGIのファイル名
5:$CgiTitle='熱血！検索君'; #このCGIの名前
6:$DBFile='book.db'; #データファイル名
7:
8:%FORM=&GetFormdata; #フォームの内容を%FORMに入れる
9:
10:if($FORM{'action'}){ #actionによって動作を変える
11: $action=$FORM{'action'};
12:}else{
13: $action="show_serch_form";
14:}
15:
16:if($action eq 'show_serch_form'){
17: &ShowSerchForm;
18:}elsif($action eq 'serch'){
19: &SerchValues;
20:}elsif($action eq 'show_input_form'){
21: &ShowInputForm;
22:}elsif($action eq 'input'){
23: &InputData;
24:}elsif($action eq 'show_update_form'){
25: &ShowUpdateSerchFrom;
26:}elsif($action eq 'update_serch'){
27: &ShowUpdateForm;
28:}
29:exit;
-----------------------------------------------
24,25行目は変更するデータ検索用フォーム。
26,27行目はデータ変更フォーム。
◇データ番号による検索フォーム
-----------------------------------------------
1:sub ShowUpdateSerchFrom {
2:
3: print <<"EOL";
4:Content-type: text/html
5:
6:
7:
8:
9:$CgiTitle
10:
11:
12:
18:変更しましょ
19:
20:
21:
22:
23:
24:
30:
31:
32:
33:
34:EOL
35:
36:}
-----------------------------------------------
◇データ変更用フォーム
-----------------------------------------------
1:sub ShowUpdateForm {
2:
3: if($FORM{'dnum'}){
4: $dnum=$FORM{'dnum'};
5: }else{
6: &hserror(200,"データ番号を入力して下さい");
7: }
8:
9: $query="select * from $DBFile where (dnum = $dnum)";
10:
11: $rdb = new Sprite;
12: $rdb->set_os ('UNIX');
13: $rdb->set_delimiter('Read',';');
14:
15: @data = $rdb->sql($query);
16: $rdb->close ("$DBFile");
17:
18: $status=shift(@data);
19:
20: if($status == 1){
21: if(@data <= 0){
22: &hserror(210,"該当するデータはありません");
23: }else{
24: ($db_dnum,$title,$title_kana,$author,$author_kana,$honyaku,
25: $syuurokusaki,$syuurokusaki_kana,$syuuroku,
26: $syuuroku_kana,$country,$syuppan,$date,$price,
27: $ISBN,$group,$kounyu,$URL,$URL_ALT,
28: $note)=split(/\0/,$data[0]);
29: }
30: }else{
31: &hserror(220,"データを取得出来ませんでした");
32: }
33:
34: $date =~ s/年/-/;$date =~ s/月/-/;$date =~ s/日//;
35: ($date_y,$date_m,$date_d)=split(/\-/,$date);
36: $group="\n";
37: $note =~ s/
/\n/g;
38:
39: print <<"EOL";
40:Content-type: text/html
41:
42:
43:
44:
45:$CgiTitle
46:
47:
48:
54:変更しましょ
55:
56:題名を空にすると、データは削除されます
57:※印は必ず入力すること
58:複数可の場合は、,（半角カンマ）区切りで入力
59:
60:
61:
62:
191:
192:
193:
194:EOL
195:}
-----------------------------------------------
てな具合です。
では、よいクリスマス＆お正月を、、、、、、続く
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆予告◆------------------------------------------------------------------
●次回は、データ変更部分本体です
------------------------------------------------------------------◆予告◆
◆PR◆--------------------------------------------------------------------
★女性の健康と美しさは、1ヵ月ごとの♪体のリズム♪と深く関わっています。
☆生体リズムを整えるやさしいサプリメント。ファンケルから新発売です。
click< http://a.clickincome.net/md/dk?mid=ea07a093f0e01448d4335945c08cafbd >
/////////
やりたいって言ったら、今すぐやりたいんだい！！
いや〜んえっちぃ〜〜、、、じゃないよ、ゲームのお話し。
欲しいソフトが発売日に手元に届きます。こりゃええわい。
てなわけで、こちらにどうぞ。
http://takafumi.grabit.net/powersoft/
--------------------------------------------------------------------◆PR◆
このメールマガジンは、
Subject部が、CGI3分クッキング【Vol.番号】は、まぐまぐ様にて、
（ http://www.mag2.com/ ）
Subject部が、CGI3分クッキング Vol.【番号】は、Macky様にて、
（ http://macky.nifty.ne.jp/ ）
Subject部が、CGI3分クッキング番号 は、Pubzine様にて、
配布致しています。
メールマガジンの解除について
まぐまぐ様の解除は、
http://www.web-kyoto.com/dp/3min/
に、削除及び登録フォームを用意致しております。
Macky様の解除は、
http://macky.nifty.ne.jp/
を参考して下さい。
Pubzine様の解除は、
http://www.pubzine.com/srchid.asp?keyword=1379
に、削除及び登録フォームを用意致しております。
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
◆はぎちゃん今日のひとこと◆------------------------------------------
●明日はクリスマスイブ
お仕事です。もちろん・・・。
------------------------------------------◆はぎちゃん今日のひとこと◆
◆お願い◆
このマガジンについてのお問い合わせは、WEB新撰組メーリングリストで、
お願い致します。
はぎちゃんについての、麗しいお嬢様からのお問い合わせがないので寂しいです。
参加方法は、
http://www.web-kyoto.com/ml/
を参考にして下さい。
◆担当者◆
本文文責 ：Web新撰組プログラマー萩原逸郎（はぎちゃん）
Ｗｅｂ新撰組 ：http://www.web-kyoto.com/
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■