Mercurial > hgrepos > hgweb.cgi > skipweb
view 6hour/sagasu_shojo.rb @ 153:2871a3b9273d
New files added
| author | MIYAHARA Emiri <c110188@f.koeki-u.ac.jp> |
|---|---|
| date | Thu, 14 Feb 2013 12:08:04 +0900 |
| parents | |
| children |
line wrap: on
line source
#!/usr/bin/env ruby # coding: euc-jp require 'cgi' # cgiを使う宣言をする c = CGI.new(:accept_charset => "EUC-JP") print("Content-type: text/html; charset=EUC-jp\n\n") shojo = Array.new shojo[0] = c["a"] #お腹が痛い shojo[1] = c["b"] #胃がもたれる shojo[2] = c["c"] #食欲がない shojo[3] = c["d"] #下痢または便秘が続く shojo[4] = c["e"] #頭が痛い shojo[5] = c["f"] #熱がある shojo[6] = c["g"] #鼻水が出る shojo[7] = c["h"] #目が痛い・かゆい・充血す shojo[8] = c["i"] #歯が痛い・しみる shojo[9] = c["j"] #聴こえにくい・耳なりがする shojo[10] = c["k"] #喉が痛い・声がでない shojo[11] = c["l"] #腰が痛い shojo[12] = c["m"] #肩が痛い・凝っている shojo[13] = c["n"] #月経不順 shojo[14] = c["o"] #咳が止まらない shojo[15] = c["p"] #骨が痛い・折れたようだ shojo[16] = c["r"] #豊胸・整形・脂肪吸引・永久脱毛したい shojo[17] = c["s"] #顏に火傷をおった shojo[18] = c["t"] #呼吸が苦しい shojo[19] = c["u"] #幻聴・幻覚・妄想 shojo[20] = c["v"] #不安で眠れない shojo[21] = c["w"] #イライラが続く shojo[22] = c["x"] #目まい・立ちくらみ shojo[23] = c["y"] #物忘れ shojo[24] = c["z"] #整形したい print("<html>\n") # HTMLの規定 print("<head>\n") # HTMLの設定 print("<link rel=\"stylesheet\" type=\"text/css\" href=\"sagasu_shojo.css\">\n") # cssの設定 print("<title>症状の情報</title>\n") # <title>の表示 print("<link rel=\"shortcut icon\" href=\"smile.png\">") # アイコン print("</head>\n") # HTMLの設定(閉) print("<body>\n") # HTMLの表示部分 print("<h1>症状別 診療科<sub><img class=\"head\" src=\"chara2.png\" width=\"100\" height=\"120\" alt=\"FUCHO\"></img></sub></h1>\n") # <h1>の表示 print("<h3>選択した症状:\n") for apply in shojo printf("%s\n",apply) # <p>の表示 end print("</h3>") print("<div class=\"center\">") for apply in shojo if apply == "お腹が痛い" print("<p><img class=\"head\" src=\"chara_onaka.png\" width=\"250\" height=\"70\" alt=\"お腹が痛い\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>風邪・原因不明な場合…<a href=\"http://skip.koeki-prj.org/6hour/naika.html\">内科</a><br>\n 心理的要因が考えられる場合…<a href=\"http://skip.koeki-prj.org/h6hour/sinryonaika.html\">心療内科</a><br>\n 子ども(15歳くらいまで)である場合…<a href=\"http://skip.koeki-prj.org/6hour/shonika.html\">小児科</a><br>\n 女性で腹部下部が痛む場合…<a href=\"http://skip.koeki-prj.org/6hour/sanfujinka.html\">産婦人科</a><br>\n </p>\n") elsif apply == "胃がもたれる" print("<p><img class=\"head\" src=\"chara_iga.png\" width=\"250\" height=\"70\" alt=\"胃がもたれる\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>原因不明な場合…<a href=\"http://skip.koeki-prj.org/6hour/naika.html\">内科</a><br>\n 吐き気や胸焼けを伴う場合…<a href=\"http://skip.koeki-prj.org/6hour/ichouka.html\">胃腸科</a><br>\n </p>\n") elsif apply == "食欲がない" print("<p><img class=\"head\" src=\"chara_syokuyoku.png\" width=\"250\" height=\"70\" alt=\"食欲がない\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>原因不明な場合…<a href=\"http://skip.koeki-prj.org/6hour/naika.html\">内科</a><br>\n 鎮痛剤を常時服用している場合…<a href=\"http://skip.koeki-prj.org/6hour/ichouka.html\">胃腸科</a><br>\n 原因が精神的なものだと思われる場合…<a href=\"http://skip.koeki-prj.org/6hour/sinryonaika.html\">心療内科</a><br>\n 症状が出ているのが子どもの場合…<a href=\"http://skip.koeki-prj.org/6hour/shonika.html\">小児科</a><br>\n </p>\n") elsif apply == "下痢または便秘が続く" print("<p><img class=\"head\" src=\"chara_benpi.png\" width=\"250\" height=\"70\" alt=\"下痢または便秘が続く\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>あまりいきまなくても動悸がする場合…<a href=\"http://skip.koeki-prj.org/6hour/naika.html\">内科</a><br>\n 下痢によって全身に倦怠感を感じる場合…<a href=\"http://skip.koeki-prj.org/6hour/shoukakika.html\">消化器科</a><br>\n 原因が精神的なものだと思われる場合…<a href=\"http://skip.koeki-prj.org/6hour/sinryonaika.html\">心療内科</a><br>\n 症状が出ているのが子どもの場合…<a href=\"http://skip.koeki-prj.org/6hour/shonika.html\">小児科</a><br>\n </p>\n") elsif apply == "頭が痛い" print("<p><img class=\"head\" src=\"chara_zutsu.png\" width=\"250\" height=\"70\" alt=\"頭が痛い\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>原因不明な場合…<a href=\"http://skip.koeki-prj.org/6hour/naika.html\">内科</a><br>\n 症状が出ているのが子どもの場合…<a href=\"http://skip.koeki-prj.org/6hour/shonika.html\">小児科</a><br>\n 睡眠中に激しい痛みが短時間出現する場合…<a href=\"http://skip.koeki-prj.org/6hour/noushinkeigeka.html\">脳神経外科</a><br>\n </p>\n") elsif apply == "熱がある" print("<p><img class=\"head\" src=\"chara_natsu.png\" width=\"250\" height=\"70\" alt=\"熱がある\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>原因不明な場合…<a href=\"http://skip.koeki-prj.org/6hour/naika.html\">内科</a><br>\n 症状が出ているのが子どもの場合…<a href=\"http://skip.koeki-prj.org/6hour/shonika.html\">小児科</a><br>\n </p>\n") elsif apply == "鼻水が出る" print("<p><img class=\"head\" src=\"chara_hanamizu.png\" width=\"250\" height=\"70\" alt=\"鼻水が出る\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>") print("<p>発熱を伴うなど、原因が風邪などと思われる場合…<a href=\"http://skip.koeki-prj.org/6hour/naika.html\">内科</a><br>\n 原因がアレルギー等だと思われる場合…<a href=\"http://skip.koeki-prj.org/6hour/jibiinkouka.html\">耳鼻咽喉科</a><br>\n 症状が出ているのが子どもの場合…<a href=\"http://skip.koeki-prj.org/6hour/shonika.html\">小児科</a><br>\n </p>\n") elsif apply == "目が痛い・かゆい・充血する" print("<p><img class=\"head\" src=\"chara_me.png\" width=\"250\" height=\"70\" alt=\"目が痛い・かゆい・充血する\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>目が赤くなった場合…<a href=\"http://skip.koeki-prj.org/6hour/ganka.html\">眼科</a><br>\n </p>\n") elsif apply == "歯が痛い・しみる" print("<p><img class=\"head\" src=\"chara_ha.png\" width=\"250\" height=\"70\" alt=\"歯が痛い・しみる\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>矯正歯科(症状の原因が歯並びや出っ歯、親知らずの場合…<a href=\"http://skip.koeki-prj.org/6hour/shika.html\">歯科</a><br>\n 小児歯科(子どもの虫歯の治療の場合、また予防をしたい場合…<a href=\"http://skip.koeki-prj.org/6hour/shounishika.html\">小児科歯科</a><br>\n 歯科口腔科(虫歯、または病感染の原因除去をしたい場合…<a href=\"http://skip.koeki-prj.org/6hour/shikakoukuuka.html\">歯科口腔科</a><br>\n </p>\n") elsif apply == "耳が痛い・耳なりがする" print("<p><img class=\"head\" src=\"chara_mimi.png\" width=\"250\" height=\"70\" alt=\"耳が痛い・耳なりがする\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>中耳炎や聴力の低下など、耳に疾患があると考えられる場合…<a href=\"http://skip.koeki-prj.org/6hour/jibiinkouka.html\">耳鼻いんこう科</a><br>\n 原因が精神的な疾患であると考えられる場合…<a href=\"http://skip.koeki-prj.org/6hour/seishinka.html\">精神科</a><br>\n </p>\n") elsif apply == "喉が痛い・声がでない" print("<p><img class=\"head\" src=\"chara_nodo.png\" width=\"250\" height=\"70\" alt=\"喉が痛い・声がでない\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>原因が精神的な疾患であると考えられる場合…<a href=\"http://skip.koeki-prj.org/6hour/seishinka.html\">精神科</a><br>\n </p>\n") elsif apply == "腰が痛い" print("<p><img class=\"head\" src=\"chara_koshi.png\" width=\"250\" height=\"70\" alt=\"腰が痛い\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>ぎっくり腰の場合…<a href=\"http://skip.koeki-prj.org/6hour/seikeigeka.html\">整形外科</a><br>\n 女性の場合…<a href=\"http://skip.koeki-prj.org/6hour/sanfujinka.html\">産婦人科</a><br>\n 下腹部や腰のあたりに猛烈な痛みを感じる場合…<a href=\"http://skip.koeki-prj.org/6hour/hinyokika.html\">泌尿器科</a><br>\n </p>\n") elsif apply == "肩が痛い・凝っている" print("<p><img class=\"head\" src=\"chara_kata.png\" width=\"250\" height=\"70\" alt=\"肩が痛い・凝っている\"></img></p>\n") print("<p>-----おすすめの診療科-----</h3>\n") print("<p>肩こりが酷い…<a href=\"http://skip.koeki-prj.org/6hour/seikeigeka.html\">整形外科</a><br>\n </p>\n") elsif apply == "月経不順" print("<p><img class=\"head\" src=\"chara_gekkei.png\" width=\"250\" height=\"70\" alt=\"月経不順\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>原因不明の場合…<a href=\"http://skip.koeki-prj.org/6hour/sanfujinka.html\">産婦人科</a><br>\n 妊娠を疑う場合…<a href=\"http://skip.koeki-prj.org/6hour/sanka.html\">産科</a><br>\n 妊娠は疑えない場合…<a href=\"http://skip.koeki-prj.org/6hour/fujinka.html\">婦人科</a><br>\n 全身に赤い斑点が表れた場合…<a href=\"http://skip.koeki-prj.org/6hour/seibyoka.html\">性病科</a><br>\n </p>\n") elsif apply == "咳が止まらない" print("<p><img class=\"head\" src=\"chara_seki.png\" width=\"250\" height=\"70\" alt=\"咳が止まらない\"></img></p>\n") print("<p>-----おすすめの診療科-----</p>") print("<p>喉が痛い…耳鼻いんこう科<br>\n 痰に血が混じっている場合…<a href=\"http://skip.koeki-prj.org/6hour/kikanshokudouka.html\">気管食道科</a><br>\n 息がぜーぜーする場合…<a href=\"http://skip.koeki-prj.org/6hour/kokyukika.html\">呼吸器科</a><br>\n 急な発熱がある場合…<a href=\"http://skip.koeki-prj.org/6hour/arerugika.html\">アレルギー科</a><br>\n </p>\n") elsif apply == "骨が痛い・折れたようだ" print("<p><img class=\"head\" src=\"chara_koshi.png\" width=\"250\" height=\"70\" alt=\"骨が痛い・折れたようだ\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>骨折…<a href=\"http://skip.koeki-prj.org/6hour/seikeigeka.html\">整形外科</a><br>\n 関節が痛い…<a href=\"http://skip.koeki-prj.org/6hour/riumachika.html\">リウマチ科</a><br>\n </p>\n") elsif apply == "豊胸・整形・脂肪吸引・永久脱毛したい" print("<p><img class=\"head\" src=\"chara_houkyo.png\" width=\"250\" height=\"70\" alt=\"豊胸・整形・脂肪吸引・永久脱毛したい\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>美容目的の場合…<a href=\"http://skip.koeki-prj.org/6hour/biyougeka.html\">美容外科</a><br>\n </p>\n") elsif apply == "皮膚に火傷をおった" print("<p><img class=\"head\" src=\"chara_yakedo.png\" width=\"250\" height=\"70\" alt=\"皮膚に火傷をおった\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>火傷の症状が重度な場合…<a href=\"http://skip.koeki-prj.org/6hour/keiseigeka.html\">形成外科</a><br>\n 軽度の火傷の場合…<a href=\"http://skip.koeki-prj.org/6hour/hifuka.html\">皮膚科</a><br>\n 火傷の治療に対し、手術が必要な場合…<a href=\"http://skip.koeki-prj.org/6hour/geka.html\">外科</a><br>\n </p>\n") elsif apply == "呼吸が苦しい" print("<p><img class=\"head\" src=\"chara_kokyu.png\" width=\"250\" height=\"70\" alt=\"呼吸が苦しい\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>風邪かなと思った場合…<a href=\"http://skip.koeki-prj.org/6hour/kokyukika.html\">呼吸器科</a><br>\n </p>\n") elsif apply == "幻聴・幻覚・妄想" print("<p><img class=\"head\" src=\"chara_genkaku.png\" width=\"250\" height=\"70\" alt=\"幻聴・幻覚・妄想\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>不安からもたらすもの…<a href=\"http://skip.koeki-prj.org/6hour/seishinka.html\">精神科</a><br>\n ストレスと関連がある場合…<a href=\"http://skip.koeki-prj.org/6hour/shinkeinaika.html\">神経内科</a><br>\n </p>\n") elsif apply == "不安で眠れない" print("<p><img class=\"head\" src=\"chara_fuan.png\" width=\"250\" height=\"70\" alt=\"不安で眠れない\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>幻覚や妄想からくる不安の場合…<a href=\"http://skip.koeki-prj.org/6hour/seishinka.html\">精神科</a><br>\n ストレスからくる場合…<a href=\"http://skip.koeki-prj.org/6hour/sinryonaika.html\">心療内科</a><br>\n ※どちらもほぼ同じ診察<br>\n </p>\n") elsif apply == "イライラが続く" print("<p><img class=\"head\" src=\"chara_ira.png\" width=\"250\" height=\"70\" alt=\"イライラが続く\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>幻覚や妄想からくる場合…<a href=\"http://skip.koeki-prj.org/6hour/seishinka.html\">精神科</a><br>\n 生活が不摂生な人の場合…<a href=\"http://skip.koeki-prj.org/6hour/shinkeinaika.html\">神経内科</a><br>\n </p>\n") elsif apply == "めまい・立ちくらみ" print("<p><img class=\"head\" src=\"chara_memai.png\" width=\"250\" height=\"70\" alt=\"めまい・立ちくらみ\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>原因不明な場合…<a href=\"http://skip.koeki-prj.org/6hour/naika.html\">内科</a><br>\n 目眩によって意識を失った事がある場合…<a href=\"http://skip.koeki-prj.org/6hour/junkankika.html\">循環器科</a><br>\n </p>\n") elsif apply == "物忘れ" print("<p><img src=\"chara_monoasure.png\" width=\"250\" height=\"70\" alt=\"物忘れ\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>\n") print("<p>患者が高齢者の場合…<a href=\"http://skip.koeki-prj.org/6hour/seishinka.html\">精神科</a><br>\n しびれがある場合…<a href=\"http://skip.koeki-prj.org/6hour/noushinkeigeka.html\">脳神経外科</a><br>\n </p>\n") elsif apply == "整形したい" print("<p><img src=\"chara_seikei.png\" width=\"250\" height=\"70\" alt=\"整形したい\"></img></p>\n") print("<h3>-----おすすめの診療科-----</h3>") print("<p>傷や火傷を直したい場合…<a href=\"http://skip.koeki-prj.org/6hour/keiseigeka.html\">形成外科</a><br>\n 美容目的の場合…<a href=\"http://skip.koeki-prj.org/6hour/biyougeka.html\">美容外科</a><br>\n </p>\n") end end print("</div>") print("<a href=\"http://skip.koeki-prj.org/6hour/hospital.html\">戻る</a> <a href=\"http://skip.koeki-prj.org/\">SKIP</a>\n") # TOPへのリンクの表示 print("<p>最長 6 時間</p>\n") print("</body>\n") print("</html>\n")
