ファイルアップローダー
任意のファイルを指定のディレクトリにアップロードするファイルアップローダー。
手始めに始めたASP素材の初歩で制作しました。
ウェブFTPでお馴染みのASPアップロードファイルです。
==============================================================
<%@ Language=VBScript %>
<%
Option Explicit
Dim ObjConn,ObjRS,StrSQL
DIM ObjBasp,tb,dat,ret,ObjFSO
Dim update_1,update_2,update_3,update_4,update_5
Dim upload_f,f_path,f_name,up_file
Dim act
f_path = "E:\Interpub\www\img\*****\*****\" // アップロードするファイルのパスを指定
tb = Request.TotalBytes
dat = Request.BinaryRead(tb)
Set ObjBasp = Server.Createobject("Basp21")
act = ObjBasp.Form(dat,"act")
update_1 = ObjBasp.Form(dat,"update_1")
update_2 = ObjBasp.Form(dat,"update_2")
update_3 = ObjBasp.Form(dat,"update_3")
update_4 = ObjBasp.Form(dat,"update_4")
update_5 = ObjBasp.Form(dat,"update_5")
%>
<%
'=================================================
' 処理開始
'=================================================
%><HTML>
<HEAD>
<TITLE>ファイルアップローダー</TITLE>
</HEAD>
<BODY><CENTER>ファイルを選択してください。
<%
Select Case act
Case "ent" ' アップロードファイル入力画面
Call Gamen_ent
Case "add" ' アップロード
Call Gamen_add
Case else ' アップロードファイル入力画面
Call Gamen_ent
end select
%>
</CENTER></BODY>
</HTML>
<%
'=================================================
' アップロードファイル入力画面
'=================================================
Sub Gamen_ent( )
%><FORM method="post" action="upload.asp" enctype="multipart/form-data">
<input type="file" name="update_1"><BR>
<input type="file" name="update_2"><BR>
<input type="file" name="update_3"><BR>
<input type="file" name="update_4"><BR>
<input type="file" name="update_5"><BR><BR>
<input type="hidden" name="act" value="add">
<input type="submit" name="sub" value=" 登録 ">
</FORM>
<% End Sub %>
<%
'=================================================
' データのアップロード サブルーチン
'=================================================
Sub Gamen_add( )
%>
<BR><BR><BR>
<%
upload_f = ObjBasp.FormFilename(dat,"update_1")
if upload_f <> "" then
f_name = Mid(upload_f,InstrRev(upload_f,"\") + 1)
up_file = f_path & f_name
ret = ObjBasp.FormSaveAs(dat,"update_1",up_file)
Response.Write f_name & " が登録されました。<BR><BR>"
end if
upload_f = ObjBasp.FormFilename(dat,"update_2")
if upload_f <> "" then
f_name = Mid(upload_f,InstrRev(upload_f,"\") + 1)
up_file = f_path & f_name
ret = ObjBasp.FormSaveAs(dat,"update_2",up_file)
Response.Write f_name & " が登録されました。<BR><BR>"
end if
upload_f = ObjBasp.FormFilename(dat,"update_3")
if upload_f <> "" then
f_name = Mid(upload_f,InstrRev(upload_f,"\") + 1)
up_file = f_path & f_name
ret = ObjBasp.FormSaveAs(dat,"update_3",up_file)
Response.Write f_name & " が登録されました。<BR><BR>"
end if
upload_f = ObjBasp.FormFilename(dat,"update_4")
if upload_f <> "" then
f_name = Mid(upload_f,InstrRev(upload_f,"\") + 1)
up_file = f_path & f_name
ret = ObjBasp.FormSaveAs(dat,"update_4",up_file)
Response.Write f_name & " が登録されました。<BR><BR>"
end if
upload_f = ObjBasp.FormFilename(dat,"update_5")
if upload_f <> "" then
f_name = Mid(upload_f,InstrRev(upload_f,"\") + 1)
up_file = f_path & f_name
ret = ObjBasp.FormSaveAs(dat,"update_5",up_file)
Response.Write f_name & " が登録されました。<BR><BR>"
end if
%>
<BR><BR><BR><BR>
<FORM method="post" action="upload.asp" enctype="multipart/form-data">
<input type="hidden" name="act" value="itiran">
<input type="submit" name="sub" value=" OK
">
</FORM>
<BR><BR><BR><BR>
<%
End Sub
%>
=============================================================
Comment:0
Trackback:0
- TrackBack URL for this entry
- http://liveroad.net/mt/mt-tb.cgi/367
- Listed below are links to weblogs that reference
- ファイルアップローダー from インターネット研究室