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

ASPで掲示板を作成する事になりました。
今ASPの勉強中です。
作成する掲示板では、ファイルを添付(アップロード)する機能をつける予定です。
ファイルの種類は、Word,Excel,PDF等になると思います。
掲示板のサンプルは見つける事が出来たのですが、ファイルのアップロード機能がついたサンプルを見つける事が出来ませんでした。
これらの方法等が載っているHPなどがありましたら紹介して頂けませんか。
よろしくお願いします。

今の所下記の環境で掲示板を作成する予定です。
Windows2000Server
IIS5.0
Access2000
[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
[3784] Re:掲示板でファイルのアップロード
投稿者：たくさん 2003/11/07 16:54:25
こんばんは。たくです。

ありがとうございます。
参考にしてみます。
またお世話になる事があると思いますがその際はよろしくお願いします。

お礼が遅れ申し訳ございませんでした。

> こんにちは　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

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