diff etsuran.rb @ 2290:bd675bc7adcf

データ消す用見る用プログラム added
author FUJIKAWA Kosuke <c111126@g.koeki-u.ac.jp>
date Wed, 23 Jul 2014 16:01:44 +0900
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/etsuran.rb	Wed Jul 23 16:01:44 2014 +0900
@@ -0,0 +1,41 @@
+#!/usr/bin/env ruby
+#coding:utf-8
+
+require'cgi'
+require'sqlite3'
+
+db = SQLite3::Database.new("../sql/stamp.sq3")
+
+c = CGI.new(:accept_charaset => "UTF-8")
+
+flag = 0
+text = "<p>脂画筝荀с茵腓冴障</p>\n"
+begin
+  result = db.execute("select * from main;")
+rescue
+  flag = 1
+  text = "<p>若帥障</p>\n"
+end
+
+printf("Content-type: text/html; charset=UTF-8\n\n")
+
+printf'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/h
+tml4/strict.dtd">
+<html>
+<head>
+<title>Delete table</title>
+<link rel="stylesheet" type="text/css" href="design.css">
+</head>
+</body>
+<h1>若翠画Η若</h1>'
+puts text
+if flag == 1
+else
+  print"<table border = 1>\n"
+  result.each do |line|
+    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])
+  end
+ print"</table>"
+end
+
+print'</body></html>'

yatex.org