ある nakagami の日記

http://blog.so-net.ne.jp/nakagami/2005-09-05 のつづき

とりあえず、これ↓を試してみた。
http://www.asp101.com/articles/jacob/scriptupload.asp
サンプルのファイルに保存する例を動かしてみて、
1.日本語のファイル名だとうまくアップロードできない
2.ファイルの中身で漢字の部分が化ける（総バイト数は合っている）
の不具合あり。
1.については、プログラムを書き換えれば、今回の要件はなんとかなるんじゃないかと推測。
問題は 2.
ソースを見ると、upload.asp の SaveToDisk() の中で

Set oFile = oFS.CreateTextFile(sPath & FileName, True)
For nIndex = 1 to LenB(FileData)
        oFile.Write Chr(AscB(MidB(FileData,nIndex,1))) <---- ここ！
Next

oFile.Close

のあたりがおかしいか？ 上の処理の時点で FileData が既におかしい可能性もあるが「ここ！」の部分で １文字ずつ Write してるのがおかしいんだろうなぁ。 VBScript でバイナリデータ（上の FileData の値）をファイルに出力するのって どうすればいいんだろう。 だれか教えてください。 追記 この中に、宝は隠れているのか？ http://www.google.co.jp/search?hl=ja&c2coff=1&q=Binary+File+Save+VBScript&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=