3352
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
1 #!/usr/bin/env ruby
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
2 # -*- coding: utf-8 -*-
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
3 Encoding.default_internal = "UTF-8"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
4 Encoding.default_external = "UTF-8"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
5
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
6 require 'cgi'
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
7 require 'csv'
|
3439
|
8 require 'sqlite3'
|
3352
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
9 c = CGI.new(:accept_charset => "UTF-8")
|
3440
|
10 #print "Content-type: text/html; charset=UTF-8\n\n"
|
3352
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
11
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
12 number = c["rd"]
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
13 img = c["img"]
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
14
|
3439
|
15 file = "../db/point.sq3"
|
|
16 #cookie≫
|
|
17 cookie_id=c.cookies["id"][0]
|
|
18
|
|
19 form_seikai=c["seikai"] #罩hВ??
|
|
20 form_name=c["playname"] #ュ
|
|
21
|
|
22 someValue="IKC"
|
|
23
|
|
24
|
|
25 if cookie_id == nil
|
|
26 newid = Time.now.to_i.to_s + "/" + rand(99999).to_s
|
|
27 id = newid
|
|
28 else
|
|
29 id = cookie_id
|
|
30 end
|
|
31
|
|
32 # idcookieх御吟
|
|
33 # 紊違24荐絎expire紊違ャ
|
|
34 expire = (Time.now+24*3600).gmtime.strftime("%a, %d %b %Y %H:%M:%S GMT")
|
|
35 printf("Content-type: text/html; charset=UTF-8\n")
|
|
36 printf("Set-Cookie: id=%s; expires=%s\n\n", id, expire)
|
|
37
|
|
38 db = SQLite3::Database.new(file)
|
|
39 db.execute("PRAGMA foreign_keys=on")
|
|
40 db.execute("CREATE TABLE IF NOT EXISTS " +
|
|
41 "users(id text primary key, name text, creation text)")
|
|
42 db.execute("CREATE TABLE IF NOT EXISTS " +
|
|
43 "point(id, keyword text, FOREIGN KEY(id) REFERENCES users(id))")
|
|
44
|
|
45
|
|
46 if form_seikai > "" && id > ''# 罩hВ
|
|
47 db.execute("DELETE FROM point WHERE id=?", id)
|
|
48 end
|
|
49
|
|
50 # cookie∫c障сc
|
|
51
|
|
52 ################################################################## 若句脂
|
|
53 playname = form_name
|
|
54 if form_name > "" # 若name
|
|
55 now = Time.now.strftime("%F %T")
|
|
56 db.execute("REPLACE INTO users VALUES(?, ?, ?)", id, form_name, now);
|
|
57 else # 若namedb
|
|
58
|
|
59 # dbname = db.execute("SELECT name from users WHERE id=?", id)[0][0]
|
|
60 #if dbname != nil
|
|
61 # playname = dbname # 若帥若鴻ゅ
|
|
62 #end
|
|
63 #end
|
|
64
|
|
65 dbname = db.execute("SELECT name from users WHERE id=?", id)[0]
|
|
66 if dbname != nil && dbname[0]
|
|
67 playname = dbname[0]
|
|
68 end
|
|
69 end
|
|
70
|
|
71
|
|
72 if playname == ""
|
|
73 print(<<-EOF)
|
|
74 <form action="#{File.basename($0)}" method="POST">
|
|
75 <p>ゅャ:
|
|
76 <input type="text" name="playname">
|
|
77 <input type="submit" value="篆">
|
|
78 <input type="reset" value="祉">
|
|
79 </form>
|
|
80 EOF
|
|
81 exit
|
|
82 end
|
|
83 #printf("<h1>%sc潟</h1>\n", playname)
|
|
84 ##################################################################
|
|
85
|
|
86
|
|
87
|
|
88 number = c["rd"]
|
|
89 img = c["img"]
|
|
90 def outinput(value, name)
|
|
91 printf("<label><input type=\"radio\" name=\"rd\" value=\"%s\">%s</label>", value, name)
|
|
92 end
|
|
93
|
|
94 def imgsrc(img)
|
|
95 printf("<img src=\"%s\">", img)
|
|
96 end
|
|
97
|
|
98 if number == "" #莎桁
|
|
99 number = "1" #number"1"篁e
|
|
100 end
|
|
101
|
|
102
|
3352
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
103 x = Hash.new
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
104 CSV.foreach("daizu.csv") do |row|
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
105 q_number = row.shift
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
106 question = row.shift
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
107 x[q_number] = [question, Hash[*row]]
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
108 ##x[number] = {"Q" => question, "A" => Hash[*row]}
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
109 end
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
110 #p x
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
111 #encoding:"SJIS:UTF-8"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
112
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
113 gazou1="07.png"#1若悟糸
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
114 link1 ="07.png"#1若悟潟糸
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
115 alt1 ="daizu"#1若悟alt糸
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
116 gazou2="08.png"#2若悟糸
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
117 link2 ="08.png"#2若悟潟糸
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
118 alt2 ="tounyu"#2若悟alt糸
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
119 gazou3="09.png"#3若悟糸
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
120 link3 ="09.png"#3若悟潟糸
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
121 alt3 ="toufu"#3若悟alt糸
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
122 ongaku1="daizu1.mp3"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
123 ongaku2="daizu2.mp3"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
124 ongaku3="daizu3.mp3"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
125 ongaku4="daizu.ogg"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
126
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
127
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
128 def outinput(value, name)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
129 printf("<label><input type=\"radio\" name=\"rd\" value=\"%s\">%s</label>", value, name)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
130 end
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
131
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
132 def imgsrc(img)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
133 printf("<img src=\"%s\">", img)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
134 end
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
135
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
136 if number == "" #莎桁
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
137 number = "1" #number"1"篁e
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
138 end
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
139
|
3439
|
140 print(<<-EOF)
|
|
141 <!DOCTYPE html>
|
|
142 <html lang="ja">
|
3441
|
143 <head><title>紊ц</title>
|
3440
|
144 <link rel="stylesheet" type="text/css" href="daizu.css" >
|
3439
|
145 <meta name="viewport" content="width=device-width">
|
|
146 </head>
|
|
147 <body>
|
|
148 EOF
|
|
149 printf("<h1>%sc潟</h1>\n", playname)
|
3352
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
150
|
3439
|
151 #print"<!DOCTYPE html>
|
|
152 #<html><head><title>紊ц</title>
|
|
153 #<meta name=\"viewport\" content=\"width=device#-width,initial-scale=1\">
|
|
154 #<link rel=\"stylesheet\" type=\"text/css\" hre#f=\"daizu.css\">
|
|
155 #</head><body>\n"
|
3352
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
156
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
157 print"<form method=\"POST\" action=\"./daizu.rb\">\n"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
158
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
159 q = x[number]
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
160
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
161 #ifу翫馹茵罩hВ筝罩hВ鐚筝罩hВ鐚鐚鐚
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
162
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
163 if number == "1" || number == "5" || number == "9" #
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
164 printf("<p>%s</p>", q[0])
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
165 if number == "1"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
166
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
167 printf("<p><a href=\"%s\"><img src=\"%s\" alt=\"%s\" height=\"300px\" width=\"300px\"></a></p>",link1,gazou1,alt1)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
168
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
169 elsif number == "5"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
170 printf("<p><a href=\"%s\"><img src=\"%s\" alt=\"%s\" height=\"300px\" width=\"300px\"></a></p>",link2,gazou2,alt2)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
171 elsif number == "9"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
172 printf("<p><a href=\"%s\"><img src=\"%s\" alt=\"%s\" height=\"300px\" width=\"300px\"></a></p>",link3,gazou3,alt3)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
173 end
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
174 for v, sel in q[1]
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
175 outinput(v, sel)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
176 end
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
177 print"<input name=\"ok\" type=\"submit\" value=\"篆\">\n"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
178 print"<input name=\"ng\" type=\"reset\" value=\"祉\">\n"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
179
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
180 elsif number == "3" || number == "8" || number == "10" #罩hВ
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
181 printf("%s", q[0])
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
182 #printf("%s", q[1])
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
183 if number == "3"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
184 print("<p>")
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
185 printf("<audio controls autoplay loop false preload=\"auto\"><source src=\"%s\"></audio>",ongaku1)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
186 print("<\p>")
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
187
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
188 printf("<label><input type=\"radio\" name=\"rd\" value=\"5\">罨<檎蚊<br></label>")
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
189 # printf("<input type=\"submit\" value=\"罨<\">")
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
190
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
191 elsif number =="8"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
192 print("<p>")
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
193
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
194 printf("<audio controls autoplay loop false preload=\"auto\"><source src=\"%s\"></audio>",ongaku2)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
195 print("</p>")
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
196 printf("<label><input type=\"radio\" name=\"rd\" value=\"9\">罨<檎蚊<br></label>")
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
197
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
198
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
199
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
200 elsif number == "10"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
201 print("<p>")
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
202
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
203 printf("<audio controls autoplay loop false preload=\"auto\"><source src=\"%s\"></audio>",ongaku3)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
204 print("<\p>")
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
205 printf("<label><input type=\"radio\" name=\"rd\" value=\"13\">罨<檎蚊<br></label>")
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
206 end
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
207 printf("<input type=\"submit\" value=\"罨<\">")
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
208
|
3439
|
209 db.execute("REPLACE INTO point VALUES(?, ?)", id, someValue)
|
3352
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
210
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
211
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
212
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
213
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
214 elsif number == "2" || number == "6" || number == "11" #筝罩hВ1
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
215 print("<h1>罧綽居筝綺若</h1>")
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
216 printf("<p>%s</p>", q[0])
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
217 if number == "2"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
218 printf("<p><a href=\"%s\"><img src=\"%s\" alt=\"%s\" height=\"300px\" width=\"300px\"></a></p>",link1,gazou1,alt1)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
219 elsif number == "6"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
220 printf("<p><a href=\"%s\"><img src=\"%s\" alt=\"%s\" height=\"300px\" width=\"300px\"></a></p>",link2,gazou2,alt2)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
221 elsif number == "11"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
222 printf("<p><a href=\"%s\"><img src=\"%s\" alt=\"%s\" height=\"300px\" width=\"300px\"></a></p>",link3,gazou3,alt3)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
223 end
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
224 for v, sel in q[1]
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
225 outinput(v, sel)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
226 end
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
227 print"<input name=\"ok\" type=\"submit\" value=\"篆\">\n"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
228 print"<input name=\"ng\" type=\"reset\" value=\"祉\">\n"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
229
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
230
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
231
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
232 elsif number == "4" || number == "7" || number == "12" #筝罩hВ2
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
233 print("<h1>鐚筝綺c帥若</h1>")
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
234 printf("<p>%s</p>", q[0])
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
235 if number == "4"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
236 printf("<p><a href=\"%s\"><img src=\"%s\" alt=\"%s\" height=\"300px\" width=\"300px\"></a></p>",link1,gazou1,alt1)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
237 elsif number == "7"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
238 printf("<p><a href=\"%s\"><img src=\"%s\" alt=\"%s\" height=\"300px\" width=\"300px\"></a></p>",link2,gazou2,alt2)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
239 elsif number == "12"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
240 printf("<p><a href=\"%s\"><img src=\"%s\" alt=\"%s\" height=\"300px\" width=\"300px\"></a></p>",link3,gazou3,alt3)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
241 end
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
242 for v, sel in q[1]
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
243 outinput(v, sel)
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
244 end
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
245 print"<input name=\"ok\" type=\"submit\" value=\"篆\">\n"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
246 print"<input name=\"ng\" type=\"reset\" value=\"祉\">\n"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
247
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
248 elsif number == "13"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
249 print("<p>恰ソ</p>\n")
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
250 printf("<audio controls autoplay loop false preload=\"auto\"><source src=\"%s\"></audio>\n",ongaku4)
|
3367
|
251 #printf("<p><a href=\"http://roy.e.koeki-u.ac.jp/~c115036/ikusei2017/ikusei.html\">top若吾祉</a></p>\n")
|
3352
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
252 end
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
253
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
254 print"</form>\n"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
255 print "</body>\n"
|
OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
parents:
diff
changeset
|
256 print "</html>\n"
|