Webアプリ ColdFusion

今回は、「男脳・女脳」です。

「話を聞かない男、地図が読めない女」
という本がありますが、
その本にテストがありましたので作ってみました。

こちらをクリックしてください。

index.cfm

<cfinclude template="define.cfm">
<cfinclude template="header.cfm">
<cfinclude template="set_data.cfm">
<cfinclude template="form.cfm">
<cfinclude template="footer.cfm">

post.cfm

<cfinclude template="define.cfm">
<cfinclude template="header.cfm">
<cfinclude template="chk_data.cfm">
<cfinclude template="footer.cfm">

set_data.cfm

<cfset question=ArrayNew(1)>
<cfset answer=ArrayNew(2)>
<cfset def_ans="どれも該当しない">

<cfscript>
i=1;
question[i]="地図や市街図を見るとき";
answer[i][1]="なかなか理解できなくて、結局は誰かに聞いてしまう。";
answer[i][2]="そんなものは見ないで、自分の行きたい道を行く。";
answer[i][3]="地図も市街図も、苦もなく読むことができる。";
answer[i][4]=def_ans;

i=2;
question[i]="ラジオの鳴っている台所で、手のこんだ料理を作っている。そこに友人から電話がかかってきた。";
answer[i][1]="友人と電話で話しながら、料理を続ける。もちろんラジオもそのまま。";
answer[i][2]="ラジオを消して、友人と話しながら料理を続ける。";
answer[i][3]="料理が終わったらかけ直すからと言って電話を切る。";
answer[i][4]=def_ans;

i=3;
question[i]="あなたの家をはじめて訪れる友人に、行きかたを聞かれたら･･････";
answer[i][1]="わかりやすい地図を描いて送る。あるいは誰かほかの人に説明してもらう。";
answer[i][2]="そこから何が見えるのかたずね、それを手がかりに道順を説明する。";
answer[i][3]="行きかたを言葉で説明する。「高速にのって、ニューキャッスルで降りたら左に曲がって、二番目の信号を･･････」";
answer[i][4]=def_ans;

i=4;
question[i]="考えや概念を説明するとき、あなたがよくやるのは･･････";
answer[i][1]="ペンと紙を使い、身ぶりをまじえて説明する。";
answer[i][2]="身ぶり手ぶりをまじえながら、言葉で説明する。";
answer[i][3]="明快でわかりやすい言葉を使って説明する。";
answer[i][4]=def_ans;

i=5;
question[i]="映画を見てすごく感動した。家に帰ったあなたは･･････";
answer[i][1]="その映画の場面を思いうかべる。";
answer[i][2]="感動した場面やせりふについて語る。";
answer[i][3]="その映画の評判をもっぱら引用する。";
answer[i][4]=def_ans;

i=6;
question[i]="映画館で座る場所は";
answer[i][1]="スクリーンに向かって右側。";
answer[i][2]="どこでもかまわない。";
answer[i][3]="スクリーンに向かって左側。";
answer[i][4]=def_ans;

i=7;
question[i]="友人の持っている機械がうまく動かない。あなたは……";
answer[i][1]="同情して友人がどんな気持ちかということを話題にする。";
answer[i][2]="直せそうな人を教えてあげる。";
answer[i][3]="仕組みを探り、自分で直そうとする。";
answer[i][4]=def_ans;

i=8;
question[i]="はじめての場所で、北の方角はどっちですかとたずねられた。あなたは……";
answer[i][1]="わからないと正直に言う。";
answer[i][2]="ちょっと考えて、適当に答える。";
answer[i][3]="確信を持って北の方角を指す。";
answer[i][4]=def_ans;

i=9;
question[i]="駐車スペースが見つかったのはいいが、バックでないと入りそうにない。あなたは……";
answer[i][1]="ほかの場所を探す。";
answer[i][2]="慎重に車を入れる。";
answer[i][3]="苦もなく車を入れる。";
answer[i][4]=def_ans;

i=10;
question[i]="テレビを見ているとき、電話が鳴った。あなたは……";
answer[i][1]="テレビはそのままにして電話に出る。";
answer[i][2]="テレビの音量を下げて電話に出る。";
answer[i][3]="テレビを消し、ほかの者に静かにするように言ってから電話にでる。";
answer[i][4]=def_ans;

i=11;
question[i]="好きなアーティストの新曲をはじめて聞いた。あなたは……";
answer[i][1]="どんな曲でも、全部または一部分を思い出して歌うことができる。";
answer[i][2]="難しい曲でなければ、一部分を思いだして歌うことができる。";
answer[i][3]="メロディはなかなか覚えられないが、歌詞の一部なら思いだせる。";
answer[i][4]=def_ans;

i=12;
question[i]="予想が当たるのは、もっぱら";
answer[i][1]="直感に頼ったとき。";
answer[i][2]="手に入る情報と、「本能的な」感覚にもとづいて判断したとき。";
answer[i][3]="事実、統計、データを参考にしたとき";
answer[i][4]=def_ans;

i=13;
question[i]="鍵をどこに置いたかわからなくなった。そのときあなたは……";
answer[i][1]="自然に思いだすまで別のことをする。";
answer[i][2]="別のことをしているが、そのあいだも懸命に思いだそうとする。";
answer[i][3]="自分の足どりを思いおこして、どこに置いたか突きとめようとする。";
answer[i][4]=def_ans;

i=14;
question[i]="ホテルの部屋で、遠くからサイレンが聞こえてきた。";
answer[i][1]="音がどっちから聞こえるかまったくわからない。";
answer[i][2]="神経を集中させて聞けば、だいたいの方角がわかる。";
answer[i][3]="音がどの方向から聞こえるか即座にわかる。";
answer[i][4]=def_ans;

i=15;
question[i]="ある集まりで、初対面の人を７～８人紹介された。翌日あなたは……";
answer[i][1]="全員の顔をはっきり思いだせる。";
answer[i][2]="何人かは思いだせる。";
answer[i][3]="顔より名前のほうをよく覚えている。";
answer[i][4]=def_ans;

i=16;
question[i]="休みの日。あなたは高原に行きたいが、パートナーは海辺のリゾート地を希望している。高原のほうが断然いいと相手に納得してもらうためにはどうする？";
answer[i][1]="猫なで声で自分の心情を訴える。高原に行けば自分も子供たちも楽しく過ごせて、家族みんなが満足すると言う。";
answer[i][2]="今回は高原にしてくれたら恩に着る、次はぜったい海にするからと言う。";
answer[i][3]="有利な事実を持ちだす。高原のほうが近いし、安いし、スポーツやレジャーを楽しむ設備も整っていると主張する。";
answer[i][4]=def_ans;

i=17;
question[i]="今日何をするか考えるとき、あなたは……";
answer[i][1]="片づけなければならない用事がひと目でわかるよう、一覧にする。";
answer[i][2]="やるべきことについて考える。";
answer[i][3]="今日会う人、行く場所、やることを思いえがく。";
answer[i][4]=def_ans;

i=18;
question[i]="友人が悩みを相談しにやってきた。あなたは……";
answer[i][1]="同情と理解を示す。";
answer[i][2]="悩みというものは本人が思っているほど深刻ではない、なぜなら……と説明する。";
answer[i][3]="問題解決のための合理的な提案とアドバイスをする。";
answer[i][4]=def_ans;

i=19;
question[i]="友人どうしがひそかに不倫しているようだ。あなたは……";
answer[i][1]="かなり早い段階で感づく。";
answer[i][2]="途中で気がつく。";
answer[i][3]="たぶん知らないままだろう。";
answer[i][4]=def_ans;

i=20;
question[i]="あなたにとって人生とは結局どういうもの？";
answer[i][1]="友人をたくさん作って、みんなと仲良くやっていくこと。";
answer[i][2]="周囲の人たちとうまくやりながら、個人としての自立を守ること。";
answer[i][3]="有意義な目標を実現し、周囲の尊敬をかちとり、名声を手にして出世すること。";
answer[i][4]=def_ans;

i=21;
question[i]="あなたにとって望ましい仕事のしかたは";
answer[i][1]="メンバーが適宜入れかわるチームで働くこと。";
answer[i][2]="みんなと同じ場所で、ただし自分だけのスペースは確保して仕事すること。";
answer[i][3]="ひとりでやる。";
answer[i][4]=def_ans;

i=22;
question[i]="好きな本のジャンルは";
answer[i][1]="小説などのフィクション。";
answer[i][2]="新聞や雑誌。";
answer[i][3]="自伝などのノンフィクション。";
answer[i][4]=def_ans;

i=23;
question[i]="あなたの買い物のしかたは";
answer[i][1]="衝動のおもむくままで、とりわけ「お買い得」という言葉に弱い。";
answer[i][2]="だいたいの計画は立てるが、あとは成りゆきまかせ。";
answer[i][3]="表示を念入りに読み、値段をくらべる。";
answer[i][4]=def_ans;

i=24;
question[i]="寝起きや食事は";
answer[i][1]="好きな時間にする。";
answer[i][2]="だいたいの時間は決まっているが、ずれることも多い。";
answer[i][3]="毎日ほぼ決まった時間である。";
answer[i][4]=def_ans;

i=25;
question[i]="転職してまもないとき、新しい同僚のひとりから自宅に電話がかかってきた。あなたは……";
answer[i][1]="相手がすぐにわかる。";
answer[i][2]="しばらく話していると誰かわかる。";
answer[i][3]="声だけでは誰かわからない。";
answer[i][4]=def_ans;

i=26;
question[i]="口論しているとき、いちばんむかつく態度は？";
answer[i][1]="相手の沈黙、あるいは無反応。";
answer[i][2]="あなたの考え方を理解してもらえないこと。";
answer[i][3]="挑戦的な、あるいは鋭い質問やコメント。";
answer[i][4]=def_ans;

i=27;
question[i]="学校の漢字テストや作文の課題は……";
answer[i][1]="楽々とこなしていた。";
answer[i][2]="どちらかだけ点が良かった。";
answer[i][3]="どっちも苦手だった。";
answer[i][4]=def_ans;

i=28;
question[i]="ダンスやジャズダンスをするとき……";
answer[i][1]="ステップを覚えないと音楽に「のれ」ない。";
answer[i][2]="身体を動かすことはできるが、まわりの人と合わない。";
answer[i][3]="リズムについていけない。";
answer[i][4]=def_ans;

i=29;
question[i]="動物の声や音を聞きわけたり、まねたりするのは……";
answer[i][1]="かなり得意。";
answer[i][2]="けっこうできる。";
answer[i][3]="まあまあ。";
answer[i][4]=def_ans;

i=30;
question[i]="さんざんな目にあった日は、どうしたくなる？";
answer[i][1]="友人や家族にその日のことをぶちまける。";
answer[i][2]="ほかの人がどんな日を過ごしたか聞く。";
answer[i][3]="新聞を読んでテレビを見る。話はしない。";
answer[i][4]=def_ans;
</cfscript>

上記のようにcfsetタグよりcfscriptを使ったほうが、見やすいですね。

form.cfm

<cfoutput>
<h3>男脳・女脳テスト</h3>
<form action="post.cfm" method="post">
<cfloop index="i" from="1" to="30">
(#i#)&nbsp;<b>#question[i]#</b><br>
&nbsp;&nbsp;&nbsp;&nbsp;<input type="Radio" name="chk_#i#" value="1">a)&nbsp;#answer[i][1]#<br>
&nbsp;&nbsp;&nbsp;&nbsp;<input type="Radio" name="chk_#i#" value="2">b)&nbsp;#answer[i][2]#<br>
&nbsp;&nbsp;&nbsp;&nbsp;<input type="Radio" name="chk_#i#" value="3">c)&nbsp;#answer[i][3]#<br>
&nbsp;&nbsp;&nbsp;&nbsp;<input type="Radio" name="chk_#i#"  value="4" checked>d)&nbsp;#answer[i][4]#<br>
<br>
</cfloop>
<hr>
<input type="Submit" value="送信">
</form>
</cfoutput>

chk_data.cfm

<cfset val_1=0>
<cfset val_2=0>
<cfset val_3=0>
<cfset val_4=0>

<cfloop index="i" from="1" to="30">

    <cfset tmp=evaluate("cnt=form.chk_#i#")>
    <!---解説
        evaluate関数内で動的な変数名をセットしたりできます。

        ただし、処理スピードが遅くなるので
        注意が必要です。

        上記の場合は以下のように変更できます。

        <cfset cnt=form["chk_#i#"]>

        実は元ネタが10年以上前でして、
        「evaluate関数は利用価値がある」
        って言ってました。。。

        あると思いますけど、できるだけ使用しない方向で
        お願いします。
    --->

    <cfset tmp=evaluate("val_#cnt#=val_#cnt#+1")> 
</cfloop>

<cfset val_1=val_1 * 15>
<cfset val_2=val_2 *  5>
<cfset val_3=val_3 * -5>
<cfset val_4=val_4 *  5>

<cfset kei=val_1 + val_2 + val_3 + val_4>

<cfset u_mes="
男脳・女脳の結果をお知らせします。

あなたの点数は、#kei#点です。

男のほとんどは0～180点、女は150～300点の範囲だそうです。
150～180点の人は異性同性を問わず、友達ができるそうです。
">

<cfoutput>
#u_mes#
</cfoutput>