[ruby-list:35902] CGI & DBI

金光です。cgi.rbについて教えてください。

文字セットを指定したいのですが、どのようにすればよいのでしょう？
なんか、今のところ、こんな感じになっています↓
──────────────────────────────────────
HTTP/1.1 200 OK Date: Wed, 11 Sep 2002 19:39:35 GMT Server: Microsoft-IIS/5.1 Connection: close Content-Type: text/html; charset=shift_jis 


???o?¶???n?I""?A?・
{"SONGNAME"=>"Song 1", "SONGLENGTH_S"=>10}
{"SONGNAME"=>"Song 2", "SONGLENGTH_S"=>20}
{"SONGNAME"=>"Song 3", "SONGLENGTH_S"=>30}
{"SONGNAME"=>"Song 4", "SONGLENGTH_S"=>40}
{"SONGNAME"=>"Song 5", "SONGLENGTH_S"=>50}
{"SONGNAME"=>"Song 6", "SONGLENGTH_S"=>60}
{"SONGNAME"=>"Song 7", "SONGLENGTH_S"=>70}
{"SONGNAME"=>"Song 8", "SONGLENGTH_S"=>80}
{"SONGNAME"=>"Song 9", "SONGLENGTH_S"=>90}
{"SONGNAME"=>"Song 10", "SONGLENGTH_S"=>100}
{"SONGNAME"=>"Song 11", "SONGLENGTH_S"=>110}
{"SONGNAME"=>"Song 12", "SONGLENGTH_S"=>120}
{"SONGNAME"=>"Song 13", "SONGLENGTH_S"=>130}
──────────────────────────────────────
こんな風になっちゃいます。（文字化け）


ソースは↓です。
──────────────────────────────────────
require "cgi"
require "dbi"

# フォームの値をハッシュで取得
cgi = CGI.new("html3")
params = cgi.params

# データベースに接続
dbh = DBI.connect('dbi:OCI8:', 'ruby', 'oci8')


sql = "insert into sample01 (SongName, SongLength_s) VALUES (?, ?)"
dbh.prepare(sql) do | sth | 
  1.upto(13) { |i| sth.execute("Song #{i}", "#{i*10}") }
end 






# SQL文
sql = "select * from sample01"

# 検索キーワードが指定されている場合の処理
sql += %q( where SongName=? ) if params['KEYWORD'] == nil

# SQLの設定
sth = dbh.prepare(sql)
sth.bind_param(1, params['KEYWORD'][0]) if params['KEYWORD'] == nil

# 設定されたSQL文を実行
sth.execute

# レコードの取得
str = ""
sth.fetch_hash do |record|
  str += record.inspect + "\n"
end


# HTMLの出力
cgi.out() do
  cgi.html() do
    cgi.head do
      cgi.header({"charset"=>"shift_jis"}) +
      cgi.title{"TITLE"}
    end +
    cgi.body() do
      cgi.form() do
        cgi.textarea("get_text") +
        cgi.br +
        cgi.submit
      end +
      cgi.pre() do
        CGI::escapeHTML(
          "検索文字列は#{params['KEYWORD'][0].inspect}です\n" +
          str
        )
      end
    end
  end
end

# データベースを閉じる
dbh.disconnect
──────────────────────────────────────


M.Kanemitsu
———————————————
金光雅夫 [e-mail]

http://www.masao-k.net
http://isweb14.infoseek.co.jp/art/soshikon/
http://isweb15.infoseek.co.jp/computer/ruby256/
〒216-0031 川崎市宮前区神木本町5-14-12
自宅： 044-877-5006
携帯： 090-2753-5292