annotate etsuran.rb @ 1734:c3852b9a1ecb

audio 変更11
author OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
date Fri, 28 Jul 2017 21:08:18 +0900
parents 05303d4b8344
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
557
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
1 #!/usr/bin/env ruby
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
2 #coding:utf-8
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
3
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
4 require'cgi'
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
5 require'sqlite3'
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
6
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
7 db = SQLite3::Database.new("../sql/stamp.sq3")
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
8
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
9 c = CGI.new(:accept_charaset => "UTF-8")
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
10
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
11 flag = 0
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
12 text = "<p>脂画筝荀с茵腓冴障</p>\n"
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
13 begin
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
14 result = db.execute("select * from main;")
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
15 rescue
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
16 flag = 1
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
17 text = "<p>若帥障</p>\n"
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
18 end
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
19
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
20 printf("Content-type: text/html; charset=UTF-8\n\n")
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
21
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
22 printf'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/h
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
23 tml4/strict.dtd">
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
24 <html>
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
25 <head>
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
26 <title>Delete table</title>
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
27 <link rel="stylesheet" type="text/css" href="design.css">
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
28 </head>
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
29 </body>
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
30 <h1>若翠画Η若</h1>'
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
31 puts text
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
32 if flag == 1
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
33 else
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
34 print"<table border = 1>\n"
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
35 result.each do |line|
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
36 printf("<tr><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td></tr>\n",line[0],line[1],line[2],line[3],line[4],line[8],line[9])
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
37 end
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
38 print"</table>"
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
39 end
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
40
05303d4b8344 データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
41 print'</body></html>'

yatex.org