523
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
1 #!/usr/bin/env ruby
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
2 # coding: utf-8
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
3
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
4 require 'sqlite3'
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
5 require 'cgi'
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
6
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
7 c = CGI.new(:tag_maker => "html4", :accept_charset => "EUC-JP")
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
8
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
9 db = SQLite3::Database.new("sql/acounts.sq3")
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
10
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
11 sql = "select sub_name, password from acounts;"
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
12 value = db.execute(sql)
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
13
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
14 print("Content-type: text/html; charset=UTF-8 \n\n")
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
15
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
16 print'
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
17 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
18 "http://www.w3.org/TR/html4/strict.dtd">
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
19 <html>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
20 <head>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
21 <title>トップページ -koeki network-</title>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
22 <style type="text/css">
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
23 <!--
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
24
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
25 -->
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
26 </style>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
27 <link rel="stylesheet" type="text/css" href="group.css">
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
28 </head>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
29 <body>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
30 <div class="base">
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
31 <h1 ><img class="kn" src="koeki-network.png" alt="300x167(14204bytes)" width="300" height="120">
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
32 </h1>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
33 <div class="bb">
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
34 <table>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
35 <tr><th>sub_name</th><th>pass</th></tr>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
36 '
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
37 value.each { |data|
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
38 printf('
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
39 <tr><td>%s</td><td>%s</td></tr>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
40 ', data[0], data[1])
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
41 }
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
42 # フッダ−
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
43 print'
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
44 </table>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
45 </div>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
46 <hr>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
47 <a class="cont" href="./top.rb?vis_log=out">ろぐあうと。</a>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
48 <a class="cont" href="./login.html">ほかのアカウントでログイン。</a>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
49 <address>c112124@h.koeki-u.ac.jp</address>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
50 </div>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
51 </body>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
52 </html>
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
53 '
|
MURAKAMI Masaki <c112124@h.koeki-u.ac.jp>
parents:
diff
changeset
|
54
|