選択式アンケートで分岐するCGIを教えて

2012/10/30 18:46

このQ&Aのポイント

ホームページ作成ソフトを購入してホームページが自作できるようになったので、プレゼントの紹介サイトを作りたい。選択肢を点数化し、選択された回答項目の合計点数で分岐し、商品紹介ページを変える。
アンケート結果に応じて合計点数で分岐し、プレゼントの商品紹介ページを変える仕組みを作りたい。宝くじセット、ご当地スイーツ、シネコンチケット、ワイン試飲会チケットなどのプレゼントを用意する。
ホームページ作成ソフトで作成したサイトの中に、選択式のアンケートを盛り込みたい。しかし、CGIプログラムの作成はできないため、選択アンケートCGIを探している。無料のものを希望している。

選択式アンケート項目合計点で分岐するCGIを教えて

こんにちは、お世話になります。ホームページ作成ソフトを購入してホームページがすこしづつ自作できるようになってきたのでプレゼントの紹介サイトを作りたいと思っています。具体的には次のようなことがしたいです次のようなアンケートをとりそれぞれの選択肢を点数化して配点しておき、選択された回答項目の合計点数で分岐してプレゼントの商品紹介のページを変えるように表示したいと思います。たとえば次の3項目の質問をして、それぞれの選択肢にそれぞれ配点をしてみた場合ですが　注.(配点部分）はホームページには表示しません＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ ●あなたのプレゼントについてのアンケートです。　どうぞ条件を選択してください 1.年齢：　20代(10点）　30代(20点）　40代（30点）　50代以上（30点） 2.予算：　2000円（10点）　3000円（15点）　5000円（20点）　6000円以上（30点） 3.プレゼントの相手：　女性（20点）　男性(10点）＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝この結果　訪問者が20代、予算は3000円、相手は女性を選択したアンケート結果とすれば合計点45点になりますが合計点数のテーブルはあらかじめ次のように設定してあるとします。 30点台：宝くじセット　　　　　　→分岐先A.html 40点台：ご当地スイーツ　　　　　→分岐先B.html 50点台：シネコンチケット　　　　→分岐先C.html　 60点以上：ワイン試飲会チケット　→分岐先D.html 結果、表示するのはB.htmlになります。ホームページそのものは自分でホームページ作成ソフトで作れるようになりましたがこのようなアンケートを取って、合計点数をつけこのように条件分岐するにはそのような動作をする選択アンケートCGIが必要らしいと聞きました。自分ではCGIというプログラムを書くことはできませんのでどなたか、このような選択アンケートを使えるCGIをご存知でしたら教えていただけませんでしょうか。（できたら無料のものがありがたいのですが）サーバーはロリポップさんというところを借りています。FTPというのは少しわかります。よろしくお願いいたします

resetbrain
お礼率100% (4/4)

CGI
回答数2
ありがとう数3

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

春原なの（@ymda）
ベストアンサー率37% (668/1777)

2012/10/30 19:51 回答No.1

ささっと、要求する仕様のものを作ってみました。 http://www.daiba.cx/okwave/q7773869/test.cgi ダウンロードは、こちらより。。。 http://www.daiba.cx/okwave/q7773869/test.zip 注意点 Shift-JIS、EUC、UTF8どのコードでも一応動きます。（使用する文字で、Shift-JISは化ける場合があります）ですが、できればUTF8にして、htmlのヘッダ部分を以下のようにして下さい最初のHTML の・・の部分あたりです。 <html><head> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html lang="ja"> <head> <meta http-equiv="Content-Language" content="ja"> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> あとは、パーミッションを、最低でも 755 に設定し、この例では、0.htmlとa.htmlからd.htmlまで移動しますので、ファイルを置いてください。以下、コード ---------- #!/usr/bin/perl use strict; use CGI; # プレゼントのデータハッシュ my $presents={ 1=>{ name=>"年齢", 1=>{ name=>"20代", score=>10, }, 2=>{ name=>"30代", score=>20, }, 3=>{ name=>"40代", score=>30, }, 4=>{ name=>"50代以上", score=>40, }, }, 2=>{ name=>"予算", 1=>{ name=>"2000円", score=>10, }, 2=>{ name=>"3000円", score=>15, }, 3=>{ name=>"5000円", score=>20, }, 4=>{ name=>"6000円以上", score=>30, }, }, 3=>{ name=>"プレゼントの相手", 1=>{ name=>"男性", score=>10, }, 2=>{ name=>"女性", score=>20, }, }, }; # 合計点数のテーブル my %scoretable=( 0=>"0.html", # 該当なかったので新設 30=>"a.html", # 宝くじセット 40=>"b.html", # ご当地スイーツ 50=>"c.html", # シネコンチケット 60=>"d.html", # ワイン試飲会チケット ); # エラーメッセージ my $errmsg="選択されていません。"; my $errflg=0; my %err; my $score=0; my $cgi=new CGI; # チェック及び計算 if($cgi->param("submit") ne "") { for(my $i=1; $presents->{$i}->{name} ne ""; $i++) { my $parm=$cgi->param("form$i"); if($parm eq "") { $err{$i}=$errmsg; $errflg=1; } else { $score+=$presents->{$i}->{$parm}->{score} } } # スコアに応じてページに飛ぶ # （ここもCGIでもいいのですが、あえて飛ばします） if(!$errflg) { my $page=""; foreach my $stable(sort keys %scoretable) { if($score >= $stable) { $page=$scoretable{$stable}; } } print <<EOM; Location: $page EOM exit; } } if(1) { # HTTPヘッダ print "Content-type: text/html\n\n"; # 最初のHTML print <<EOM; <html><head> <title>プレゼントテスト</title> </head> <body> <h1>あなたのプレゼントについてのアンケートです。</h1> どうぞ条件を選択してください <hr /> <form action="test.cgi"> <table> EOM for(my $i=1; $presents->{$i}->{name} ne ""; $i++) { print <<EOM; <tr><td> $i.@{[$presents->{$i}->{name}]} </td><td> EOM for(my $j=1; $presents->{$i}->{$j}->{name} ne ""; $j++) { print <<EOM; <input type="radio" name="form$i" value="$j"@{[$cgi->param("form$i") eq $j ? ' checked="checked"' : '']} /> @{[$presents->{$i}->{$j}->{name}]} EOM } print <<EOM; </td><td>$err{$i} </td></tr> EOM } print <<EOM; <tr><td> </td><td> <input type="submit" name="submit" value="送信" /> </td></tr> </form> </body> </html> EOM }

質問者

お礼 2012/10/30 22:29

vmdaさん　こんばんは　ご親切に教えていただきありがとうございます。魔法のようにCGIを書いていただき感謝です。ロリポップのサーバにアップロードして属性を変更したら見事に動きました。自分のやりたかったことがそのまま現実になりました本当にありがとうございました。とてもうれしいです。また、未記入の時にエラーメッセージがでるようにまで気を使っていただきありがとうございました最初に htmlのデータをホームページビルダー17で読み込んで開いてみるとどういうわけか <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> <meta http-equiv="Content-Style-Type" content="text/css"> <meta name="GENERATOR" content="JustSystems Homepage Builder Version 17.0.2.0 for Windows"> が書き込まれてしまい、 chraset=utf-8になりませんでした。タイトルのところや他の文字が化けてしまったので無償ソフトのKompozerで読み込み直し、教えていただいた通りの設定を書き込み文字エンコードを指定して保存でUTF-8で保存したらうまくいきましたのでそちらと差し替えています。検索してみるとCGIというのは、 PerlとかPHPとかいろいろな言語で書いてあるそうなのでこんなに自分の欲しかったものをさくっと作られてしまう vmdaさんは本当に尊敬してやみません自分でも条件や商品名を変えればうまくつかえそうです

質問者

補足 2012/10/30 22:43

ymdaさん　こんばんはさきほどはありがとうございました。で、実はお名前をタイプミスしておりました。ｙとｖを間違えてしまい申し訳ありませんでしたプロフィールを拝見させていただきました。プログラミングにお強い理由がよくわかりました。これからも困ったときには「教えて」のお世話になるかと思いますが、またお教えいただければと思います本当にありがとうございました

ログインすると、全ての回答が全文表示されます。

その他の回答 (1)

春原なの（@ymda）
ベストアンサー率37% (668/1777)

2012/10/30 22:57 回答No.2

実は、偶然たまたま組んでいたもののカケラを利用したようなものなのですが・・・その為に、書き方が一部いいかげんな部分があるかもしれません。後は、これは無料サーバーでは動かない場合があるかもしれません。（海外だと、文字コードの問題も出ることもありますが）ページを転送する部分を書き換えれば動くかとは思われます。後は、自分の探しているCGIというのは、見つかるようで見つからないことも結構あるようです。ページを転送しない仕様でしたら、既存であるかもしれませんが今回のは、HPビルダを使うことを前提にしましたので転送するようにしています。本当は、勉強して頂くのが一番ですが、最低でも、改造するスキルがあれば良いかもしれません。最後に（使用する文字で、Shift-JISは化ける場合があります）と書きましたが、その場合、化けている文字の前に、半角の￥を記述すると、化けがなおることがあります。

質問者

お礼 2012/10/31 15:58

ymdaさん　こんにちはきょうは午後からは時間がとれたのでいろいろHPビルダーで試行錯誤していました ymdaさんはPerlでも、最初の方にuse cgiを書かれているからどうもモジュールとかいうものを使って簡潔なものを作られたらしいことだけは検索してわかりましたとても偶然のカケラで作られたものなんて... 謙遜されていますが、ぜんぜんオーダーメードのCGIですあと、言語についてもわからないながら自分も少し勉強しようと思って無料のプログラム学習サイトドットインストール http://dotinstall.com/ を見つけました。そのうち自分でもできるようにマイペースで勉強してみたいとおもいます。のちほどベストアンサーでお礼を差し上げます

質問者