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 的基本上傳功能 ，如有需要更進一步的程式設計開發需求，您可以下載完整說明文件及範例進行參考。