annotate etsuran.rb @ 3041:841545c01ce9

higawari3
author Minoru Konno <c113069@e.koeki-u.ac.jp>
date Tue, 15 Dec 2015 18:59:49 +0900
parents bd675bc7adcf
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2290
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
1 #!/usr/bin/env ruby
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
2 #coding:utf-8
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
3
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
4 require'cgi'
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
5 require'sqlite3'
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
6
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
7 db = SQLite3::Database.new("../sql/stamp.sq3")
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
8
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
9 c = CGI.new(:accept_charaset => "UTF-8")
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
10
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
11 flag = 0
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
12 text = "<p>脂画筝荀с茵腓冴障</p>\n"
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
13 begin
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
14 result = db.execute("select * from main;")
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
15 rescue
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
16 flag = 1
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
17 text = "<p>若帥障</p>\n"
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
18 end
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
19
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
20 printf("Content-type: text/html; charset=UTF-8\n\n")
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
21
bd675bc7adcf データ消す用見る用プログラム 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
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
23 tml4/strict.dtd">
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
24 <html>
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
25 <head>
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
26 <title>Delete table</title>
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
27 <link rel="stylesheet" type="text/css" href="design.css">
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
28 </head>
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
29 </body>
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
30 <h1>若翠画Η若</h1>'
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
31 puts text
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
32 if flag == 1
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
33 else
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
34 print"<table border = 1>\n"
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
35 result.each do |line|
bd675bc7adcf データ消す用見る用プログラム 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])
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
37 end
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
38 print"</table>"
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
39 end
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
40
bd675bc7adcf データ消す用見る用プログラム added
FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
parents:
diff changeset
41 print'</body></html>'

yatex.org