BASPでのファイルアップロード

質問

お世話になります。

win2000でBASPを使って、ファイルのアップロードを行うプログラムを製作しています。

一つ目のASPファイルでアップロードするファイルを選択し、
これをSubmitして二つ目のASPファイルでファイルアップロード作業をするものです。
ネスケ６．２ではformsaveasが正常に動作したのですが、IEやネスケ４．７などではformsaveasが上手く働いてくれません（後述）。
できることなら保有するブラウザ全てで正常に動かしたいです。
しかし色々試したり調べたりしましたがどうしても自分だけの力では無理でした。

下記で二つ目のASPファイルで行う必要最低限のアップロード作業部分を載せました。
他にも載せようとしたら文字数オーバーだったので、ご容赦ください。
この保存作業部分で明らかに足りない何かがあったりしたら、そこをご指摘いただければ助かります。

Datasize = Request.TotalBytes
B_Data = Request.BinaryRead(Datasize)
Set objB = Server.CreateObject("basp21")
strPath= "C:\test\"
strname = objB.formfilename(b_data,"f_file")
errno = objB.formsaveas(b_data,"f_file",strpath & strname)
（この時点でerrnoに-3の値が入ってしまう＝ファイルアップロード失敗）

読みづらい、分かりにくい質問で申し訳ないです。
分かる範囲でけっこうですので、ご協力よろしくお願いします。

回答No.1

itohh · ベストアンサー

こんにちは。itohhといいます。

＞Datasize = Request.TotalBytes
＞B_Data = Request.BinaryRead(Datasize)
＞Set objB = Server.CreateObject("basp21")
＞strPath= "C:\test\"
＞strname = objB.formfilename(b_data,"f_file")　　　　　　　　　＜－－（１）
＞errno = objB.formsaveas(b_data,"f_file",strpath & strname)

（１）
ここでブラウザで指定したファイル名を取得していますが、フルパス名になってしまいますよ。
例。
ブラウザで「C:\test1\test.txt」と指定した場合。
strnameには、「C:\test1\test.txt」が設定されてしまうと思うのですが。

変更例。
fname=objB.FormFileName(B_Data,"f_file")
strname=Mid(fname,InstrRev(fname,"\")+1)

strnameには、「test.txt」が設定される。

BASP21の公式サイトはご存じですか？
もし、この後、判らないことが起きたらそちらの掲示板に質問をしてみては如何でしょうか？

URL:http://www.hi-ho.ne.jp/babaq/

参考URL：

http://www.hi-ho.ne.jp/babaq/

お礼

ご指摘の通りに修正したところ、しっかり動作するようになりました！

＞BASP21の公式サイト
お恥ずかしいかぎりですが、知りませんでした……。
勉強を兼ねて、そちらの方も色々とチェックしていきたいと思います。

本当に助かりました、
場違いな質問でしたが丁寧に答えていただいてどうもありがとうございます。

では失礼します。