出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[3771] Re:掲示板でファイルのアップロード
投稿者：YasNet(管理人)さん 2003/11/04 18:51:18
こんにちは　YasNet(管理人)です。

下記を参考にして下さい。
Basp21を使用したサンプルです。

それでは　失礼致します。

--- HTMLここから (uploadtest.html) ---
<HTML>
<BODY>
<FORM ACTION="uploadteat.asp" ENCTYPE="multipart/form-data" METHOD="POST">
ファイル名: <INPUT TYPE="file" NAME="FileName"><BR>
<INPUT TYPE="SUBMIT" NAME="UPLOAD" VALUE="アップロード実行">
</FORM>
</BODY>
</HTML>
--- HTMLここまで ------------------------------------------

--- ASPここから(uploadteat.asp) ---
<%
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_NewFileName = Mid(Wk_FileName,InstrRev(Wk_FileName,"\")+1)
Wk_NewFileSize = basp_obj.FormSaveAs(Wk_Data, "FileName", Server.MapPath("./UPLoadData") & "/" & Wk_NewFileName)
%>
<HTML>
<HEAD>
<TITLE>アップロードサンプル</TITLE>
</HEAD>
<BODY>
<%
If clng(Wk_NewFileSize) > 0 Then
%>
<H1>*** アップロード完了 ***</H1>
ファイル名 = [<%= Wk_NewFileName %>]<BR>
ファイルサイズ= [<%= Wk_NewFileSize %>]<BR>
<%
Else
%>
<H1>*** アップロードに失敗しました。 ***</H1>
ファイル名 = [<%= Wk_NewFileName %>]<BR>
ファイルサイズ= [<%= Wk_NewFileSize %>]<BR>
<%
End If
%>
</BODY>
</HTML>
--- ASPここまで ------------------------------------------
> こんにちは。
> ASP初心者のたくと申します。
>
> ASPで掲示板を作成する事になりました。
> 今ASPの勉強中です。
> 作成する掲示板では、ファイルを添付(アップロード)する機能をつける予定です。
> ファイルの種類は、Word,Excel,PDF等になると思います。
> 掲示板のサンプルは見つける事が出来たのですが、ファイルのアップロード機能がついたサンプルを見つける事が出来ませんでした。
> これらの方法等が載っているHPなどがありましたら紹介して頂けませんか。
> よろしくお願いします。
>
> 今の所下記の環境で掲示板を作成する予定です。
> Windows2000Server
> IIS5.0
> Access2000
掲示板でファイルのアップロード 　 たくさん [2003/11/04 16:11:09] [3770]
　 Re:掲示板でファイルのアップロード 　 YasNet(管理人)さん [2003/11/04 18:51:18] [3771]
　 　 Re:掲示板でファイルのアップロード 　 たくさん [2003/11/07 16:54:25] [3784]

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