受け取り側プログラムの中に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 件のコメント:
コメントを投稿