2012年2月23日木曜日

basp21 utf-8 文字化けに対応するには(クラシックasp)

<meta  charset="utf-8">で送信すると文字化けしてDB側にかきこまれてしまう。

受け取り側プログラムの中にcodepageを挿入し、文字コードを明確化することで解決しました。

<使用例>

a=Request.TotalBytes
b=Request.BinaryRead(a)
set obj=server.createobject("basp21")

'utf8 文字化け ↓でCodePage設定
obj.CodePage = 65001   '65001はutf-8のコードページ
F1=obj.FormFileName(b,"other_filenm")
  ・・・・
 ・・・・
newf1=Mid(F1,InstrRev(F1,"\")+1)   'ファイル名
obj.CodePage = 932 'JISに変更
l1=obj.FormSaveAs(b,"other_filenm","ディスク名:\フォルダ名\" & newf1)

  ・・・・
 ・・・・

obj.CodePage = 65001  'UTF-8に変更

<参考>
コードページ一覧http://www.xmleditor.jp/blog/archives/40

0 件のコメント:

コメントを投稿