出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[2379] ﾌｧｲﾙアップロードに関して
投稿者：もさぎさん 2002/07/30 19:49:30
メール送信の処理を作成しています。
機能概要は、クライアントで添付ファイルを複数指定し、
「メール送信ボタン」押下で指定された添付ファイルを添付して
メールを送信したいのですが、現在のところ以下の機能は作成済みです。

　①<INPUT type="file"　～>でファイルを指定する機能を作成
　②「追加」ボタンを作成し、ボタン押下で、①で指定されたパスを
同一ページ上にリストとして表示
　③「削除」ボタンでリストより選択されたパスを削除
　　（チェックボックスを設け、ONで対象を感知しています）

以上の機能に「メール送信」ボタン押下時に指定された
クライアントのファイルをサーバの指定フォルダにアップロードし、
メールに添付する機能を付け加えたいのですが、
調べたところ<FORM>タグに「ENCTYPE="multipart/form-data"」を
追加しなければならないそうですね。
そこで、早速そのようにしてみたところ、上記②③の処理が
動かなくなってしまいました。
上記の処理で「追加」「削除」をする度に毎回自分自身に送信して
処理をしているせいかと思うのですが、
「ENCTYPE="multipart/form-data"」を追加する事によって
上記①②③の処理を有効にしつつ、ファイルをアップロードするには
どうしたら良いのでしょうか？

ASPは初心者の為、上手く説明できず済みません。
説明の到らない分、ソースを一部載せますので、
どなたかご教授下さい。
宜しくお願い致します。
------------------------------------
'■「追加」「削除」「メール送信」でモードを設定し、
' 処理を分岐させています
'■指定されたファイルを同一ページ上にリストとして
' 追加/削除する為にセッションに格納ししています

Select Case intMode
'追加処理
Case 1
If intFCnt < 20 Then ⇒ﾌｧｲﾙ数を判定しています
If strPath <> "" Then
'セッションに格納
Session("strPath" & intFCnt) = strPath
'ファイル数のカウントアップ
intFCnt = intFCnt + 1
End if
Else
Response.write"ファイルは20コまでです。"
End if

'削除処理
Case 2
For intidx = 1 To intFCnt
'チェックボックスの値を取得する
intChk = CStr(Request.Form("chk_" & intidx))
If intChk <> "on" Then　⇒ONの場合は削除
'変数再定義
intNewFCnt = intNewFCnt + 1
Session("strPath" & intNewFCnt - 1) = Session("strPath" & intidx - 1)
End if
Next
intFCnt = intNewFCnt

'メール送信処理
Case 3
'添付ファイルの編集
For intidx = 1 To intFCnt
strFile = Session("strPath" & intidx - 1)　 strFileString = strFileString & strFile & vbTab
Next
'メール送信処理へ
Call Send_Mail(strFileString,strComment)　⇒※へ
End Select


---------------------------------------
'メール送信処理（※）
---------------------------------------
svname = "XXXX@XXX.co.jp"
mailto = "<XXXX@XXX.co.jp>"
body = "本文です"
files = strFileString ⇒上で指定した添付ﾌｧｲﾙﾘｽﾄです
mailfrom = "XXXX@XXXX.co.jp"
subj = "メール送信テスト（添付あり）"

'メール送信
Set bobj = Server.CreateObject("BASP21")
rc = bobj.SendMail(svname,mailto,mailfrom, subj,body,files)


ﾌｧｲﾙアップロードに関して 　 もさぎさん [2002/07/30 19:49:30] [2379]
　 Re:ﾌｧｲﾙアップロードに関して 　 北岳さん [2002/07/31 15:09:53] [2391]

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