|
ASPUpload 網頁檔案上傳元件範例程式說明
ASPUpload 元件是本公司 Windows 系列伺服器支援的寄信元件之一,利用本元件您可於 ASP 程式中呼叫該元件提供網頁檔案上傳的功能,以下簡單介紹各類的程式碼,利用該程式即可有效的寄出多變化的程式功能:
|
範例一 ( 同時多檔傳送 ) :2003.1.18
更新
Form1.asp (傳送端)
|
<HTML>
<BODY BGCOLOR="#FFFFFF">
<FORM METHOD="POST" ENCTYPE="multipart/form-data"
ACTION="UploadScript1.asp">
<INPUT TYPE="FILE"
SIZE="40" NAME="FILE1"><BR>
<INPUT TYPE="FILE"
SIZE="40" NAME="FILE2"><BR>
<INPUT TYPE="FILE"
SIZE="40" NAME="FILE3"><BR>
<INPUT TYPE=SUBMIT VALUE="上傳">
</FORM>
</BODY>
</HTML>
<!-- 此表單共上傳3個檔案 , 請將紅色字體部分加入HTML中 --> |
UploadScript1.asp (程式接收端)
|
<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
' 建立上傳元件
Count = Upload.Save("c:\upload") '指定檔案儲存的路徑
Response.Write Count & " file(s) uploaded to
c:\upload"
%>
</BODY>
</HTML>
<!-- Count 變數將紀錄上傳成功的數目 --> |
|
|
範例二 ( File 及 Form 的集合應用
):2003.1.18 更新
Form2.asp
|
<HTML>
<BODY BGCOLOR="#FFFFFF">
<FORM METHOD="POST" ENCTYPE="multipart/form-data"
ACTION="UploadScript2.asp">
檔案一:<INPUT TYPE=FILE NAME="FILE1">
敘述一:<INPUT TYPE=TEXT NAME="DESCR1"><BR>
檔案二:<INPUT TYPE=FILE NAME="FILE2">
敘述二:<INPUT TYPE=TEXT NAME="DESCR2"><BR>
<INPUT TYPE=SUBMIT VALUE="上傳">
</FORM>
</BODY>
</HTML> |
UploadScript2.asp
|
<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False '設定是否覆蓋原檔案
Upload.SetMaxSize 5000, True '設定最大上傳檔案Size為5000Bytes,預設不設限制
Upload.Save "c:\upload"
%>
Files:<BR>
<%
For Each File in Upload.Files
Response.Write File.Name & "= " &
File.Path & " (" & File.Size &"
bytes)<BR>"
Next
'File.Path 上傳檔案後的路徑名稱
'File.Size 上傳檔案的大小
%>
<P>
Other items:<BR>
<%
For Each Item in Upload.Form '取代 Request.Form
Response.Write Item.Name & "= " &
Item.Value & "<BR>"
Next
'Item.Name 上傳項目的名稱
'Item.Value 上傳項目的值
%>
</BODY>
</HTML>
------------------------------------------------------------------------------------------------
輸出:
Files:
FILE1=c:\upload\File1.xls (108544 bytes)
FILE2=c:\upload\File2.zip (211687 bytes)
Other items:
DESCR1=test
DESCR2=123
------------------------------------------------------------------------------------------------
如要單獨取得表單項目,可使用
Descr1 = Upload.Form("DESCR1") 或 Descr1 =
Upload.Form(1)
如要確認檔案是否上傳,可使用以下方式
Set File = Upload.Files("FILE1")
If Not File Is Nothing Then
Response.Write File.Path
End If
------------------------------------------------------------------------------------------------
注意事項 :
Upload.Files 及Upload.Form 不可執行在 Upload.Save 之前 , 否則將產生錯誤訊息
|
|
以上介紹的範例程式為 AspUpload 的基本上傳功能 ,如有需要更進一步的程式設計開發需求,您可以下載完整說明文件及範例進行參考。
|
|