出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[5056] BASP21でファイルをアップロードしたいのですが、うまくいきません。
投稿者：tanoyakiさん 2005/06/14 11:25:42
こんにちわ。
ASP（VBScript）+IIS6.0にて、Webシステムを作成しましたが、
ファイルのアップロードがうまくいきません。
今までLAN上では問題なく動作していたのですが、インターネット経由
（別の支店から）になると、アップロードが正常に動作しません。
クライアント側PCのファイルをサーバーにアップロードするため、
BASP21を使用しています。
LAN上での動作は完璧だったのですが、ネット経由となった場合、
プログラムの問題なのか、サーバー側の設定なのか悩んでいます。
一応コードも記述しておきますので、何か問題があればご指摘
いただければと思います。
宜しくお願い致します。

Wk_TotalBytes = Request.TotalBytes
Wk_Data = Request.BinaryRead(Wk_TotalBytes)

set basp_obj = server.createobject("basp21")

Wk_FileName = basp_obj.FormFileName(Wk_Data, "FileName")
Wk_FileSize = basp_obj.FormFileSize(Wk_Data, "FileName")

Wk_SvrFileName = Mid(Wk_FileName,InstrRev(Wk_FileName,"\") + 1)
Wk_SvrFileSize = basp_obj.FormSaveAs(Wk_Data, "FileName", Server.MapPath("../kanesyo") & "\" & Wk_SvrFileName)

response.write "<HTML>"
response.write "<HEAD>"
response.write " <TITLE>アップロード</TITLE>"
response.write " </HEAD>"
response.write " <BODY>"

If clng(Wk_SvrFileSize) > 0 Then

response.write " <H3>*** アップロード完了 ***</H3>"

Else

response.write " <H3>*** アップロードに失敗しました。 ***</H3>"

End If

response.write " </BODY>"
response.write "</HTML>"
BASP21でファイルをアップロードしたいのですが、うまくいきません。 　 tanoyakiさん [2005/06/14 11:25:42] [5056]
　 Re:BASP21でファイルをアップロードしたいのですが、うまくいきません。 　 morさん [2005/06/14 17:52:18] [5058]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ