htmlコード
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=EUC-JP">
<title>簡単掲示板</title>
</head>
<body>
<h3>簡単掲示板にようこそ！</h3>
<br>
<br>
書き込みに使用するハンドルネームを入力してください。<br>
<form method="GET" action="bbs2.cgi">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=EUC-JP">
<title>簡単掲示板</title>
</head>
<body>
<h3>簡単掲示板にようこそ！</h3>
<br>
<br>
書き込みに使用するハンドルネームを入力してください。<br>
<form method="GET" action="bbs2.cgi">
ハンドルネーム ： <input type="text" name="hn">
<input type="submit" value="開始">
</form>
<br>
</body>
</html>
<br>
</body>
</html>
CGIコード
#!/usr/bin/ruby
print "Content-type: text/html; charaset=euc-jp\n\n"
$KCODE = "e"
#!/usr/bin/ruby
print "Content-type: text/html; charaset=euc-jp\n\n"
$KCODE = "e"
require "cgi"
cgi = CGI.new
coment = cgi["coment"]
hn = cgi["hn"]
fo = open("logfile2.txt","a")
hn = cgi["hn"]
fo = open("logfile2.txt","a")
if(coment != "")
fo.print "#{hn}：#{coment}\n<hr>\n"
end
fo.close
fo = open("logfile2.txt","r")
log = fo.readlines
fo.close
log = fo.readlines
fo.close
print <<EOS
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charaset=EUC-JP">
<title>簡易チャット掲示板</title>
</head>
<body>
<h3>簡易チャット掲示板です！ けして荒らさないでください。</h3>
<head>
<meta http-equiv="Content-Type" content="text/html; charaset=EUC-JP">
<title>簡易チャット掲示板</title>
</head>
<body>
<h3>簡易チャット掲示板です！ けして荒らさないでください。</h3>
<p align="right">
<a href="bbs2.cgi">更新</a>
</p>
<form method="GET" action="bbs2.cgi">
コメント：
<input type="text" name="coment" size="50">
<input type="hidden" name="hn" value="#{hn}">
<input type="submit" value="送信">
</form><br>
EOS
EOS
log.each do |ele|
print ele
end
print <<EOS
</body>
</html>
EOS
</body>
</html>
EOS
webrickコード
