|
簡介
文件上傳是將任意的文件從客戶機發送到服務器的過程。最簡單、最方便的上傳方法是使用支持RFC1867的瀏覽器，如微軟的Internet Explorer4.0以上版本，Netscape3.0以上版本，或者帶附件的Internet Explorer3.0。基于瀏覽器的文件上傳是通過帶有屬性ENCTYPE="multipart/form-data"的HTML form實現的。這個form也必須包含一個或多個<INPUT TYPE=FILE>項，以讓用戶指定要上傳的本地文件。
帶有ENCTYPE="multipart/form-data"屬性的form所發送的數據必須被一個服務器端過程解析，以展開上傳的文件和其他非文件項。在ASP環境中，這種任務用編譯好的active server組件能最好的完成，比如Persits軟件公司的AspUpload
(http://www.persits.com)。
本文所有示例都是建立在你的系統中安裝了AspUpload的基礎上的。可以在這里下AspUpload
免費評估版http://www.persits.com/aspupload.html。解壓文件后，將AspUpload.dll
放在任意目錄中，在MS DOS窗口中執行命令
regsvr32 c:\dir\AspUpload.dll
開始
我們來創建一個簡單的能上傳3個文件的HTML form，和控制上傳的腳本。
這里是第一個HTML文件
Test1.htm:
<HTML>
<BODY BGCOLOR="#FFFFFF">
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="UploadScript1.asp">
<INPUT TYPE=FILE SIZE=60 NAME="FILE1"><BR>
<INPUT TYPE=FILE SIZE=60 NAME="FILE2"><BR>
<INPUT TYPE=FILE SIZE=60 NAME="FILE3"><BR>
<INPUT TYPE=SUBMIT VALUE="Upload!">
</FORM>
</BODY>
</HTML>
每個 <INPUT TYPE=FILE> 項在瀏覽器中顯示成為一個帶有"Browse..."按鈕的文本輸入框。如果你沒看見Browse按鈕，很有可能說明你的瀏覽器不支持文件上傳。
這里是相應的上傳腳本 UploadScript1.asp:
<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.Save("c:\upload")
%>
<% = Count %> files uploaded.
</BODY>
</HTML>
ASP腳本的第一行僅僅創建了一個AspUpload對象的實例。第二行調用組件的Save方法，它實際上的作用是：它解析從瀏覽器發送的東西，計算出有多少個文件正在上傳，并且把他們存在服務器上指定的目錄。目錄名可能以反斜線結束，也可能不是。所有文件將以他們原來的名字存放在目錄中。我們很快將看到如何更改任意或者所有文件的名字。
Save方法返回成功上傳的文件數量。萬一發生錯誤，這個方法將拋棄之。
注意你能夠使用我們的form中任意或者全部三個輸入框。AspUpload有足夠的智慧判斷出哪些輸入框使用了，哪些沒有。
使用FILES和FORMS集合訪問單個form項
我們看看第二組示例：
Test2.htm
<HTML>
<BODY BGCOLOR="#FFFFFF">
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="UploadScript2.asp">
File 1:<INPUT TYPE=FILE NAME="FILE1">
Description 1:<INPUT TYPE=TEXT NAME="DESCR1"><BR>
File 2:<INPUT TYPE=FILE NAME="FILE2">
Description 2:<INPUT TYPE=TEXT NAME="DESCR2"><BR>
<INPUT TYPE=SUBMIT VALUE="Upload!">
</FORM>
</BODY>
</HTML>
UploadScript2.asp <HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save "c:\upload"
%>
Files:<BR>
<%
For Each File in Upload.Files
Response.Write File.Name & "=" & File.Path & " (" & File.Size & ")<BR>"
Next
%>
<P>
Other items:<BR>
<%
For Each Item in Upload.Form
Response.Write Item.Name & "=" & Item.Value & "<BR>"
Next
%>
</BODY>
</HTML>
注意我們的HTML form現在有兩種輸入框，TYPE=FILE 和 TYPE=TEXT。因為我們form的ENCTYPE屬性，我們不再能通過標準的ASP Response.Form 集合來訪問form變量。此處Upload.Form 來解決了問題。這個集合實際上和Response.Form一樣，也就是，我們能通過整形或字串型索引訪問它的元素。例如：
Set Item1 = Upload.Form("DESCR1")
或者
Set Item1 = Upload.Form(1).
我們也能夠使用上面示例代碼顯示的For-Each語句遍歷集合中的項。Form集合包含FormItem類型的對象，它只有兩個字串屬性，Name 和 Value (缺省屬性).
記住Upload.Form集合僅僅包含非文件項，也就是不同于<INPUT TYPE=FILE>，這點很重要。AspUpload提供另外一個集合，叫做Files，來包含UploadedFile類型的對象，這種對象代表已經上傳的來自<INPUT TYPE=FILE>項的文件。很象Form集合，Files集合的項能夠通過使用字串或者整形索引，或者一個For-Each語句訪問，象上面的示例顯示的一樣。
運行示例2以后，我們將看到象這樣的一些東西：
Files:
FILE1=c:\upload\File1.xls (108544)
FILE2=c:\upload\File2.zip (211687)
Other items:
DESCR1=bla bla
DESCR2=test test
注意我們已經通過UploadedFile對象相應的Path和Size屬性獲得了上傳過的文件的目標路徑和文件大小。
如果我們的form只包含一個文件輸入框，<INPUT TYPE=FILE NAME="ONLYFILE">,那么沒有必要使用For-Each語句。我們只需要這么說
Response.Write Upload.Files("ONLYFILE").Path
或者,更常用的
Response.Write Upload.Files(1).Path
要點:Files和Form集合在調用Save方法前都不會裝入，因此在調用Upload.Save前就查詢這些集合是不正確的。
' 錯誤!
Upload.Save( Upload.Form("Path") )
限制文件大小
也許你需要限制上傳文件的大小，以防止服務器磁盤空間擁塞。你所需要做的一切就是在調用Save之前在你的Upload對象中調用SetMaxSize:
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 50000, False
Upload.Save "c:\upload"
在這個例子中，我們將上傳文件的大小限制在50000字節內。第二個可選參數指定超出文件最大范圍的部分是否應該被刪除（如果設成false或者不設），或者作為錯誤例外拒絕接收（如果設成True) 。
強制特有文件名
缺省的，AspUpload將覆蓋上傳路徑中已有的文件。如果你不想這樣，可以配置組件，為上傳文件產生特有的名字來防止覆蓋已有文件。方法是，在調用Save前設置上傳管理器的OverwriteFiles屬性：
Upload.OverwriteFiles = False
缺省值是true。
為防止名字沖突，AspUpload將在原來文件名后面加上用圓括號括起來的整數。例如，如果文件MyFile.txt已經存在于上傳目錄了，并且另外一個同名文件正在上傳，AspUpload會將新文件存為 MyFile(1).txt。如果我們上傳更多的MyFile.txt，他們將被存MyFile(2).txt, MyFile(3).txt,等等。
移動、拷貝、刪除文件
文件上傳對象提供了一些方法供你移動、拷貝或者刪除上傳的文件。這些方法是
file.Move( NewName As String )
file.Copy( NewLocation As String, Optional Overwrite)
file.Delete
根據NewName參數，Move方法將文件移動到其他目錄或者給他更名。假設文件abc.txt上傳到了目錄
c:\Upload。那么調用
file.Move "c:\WINNT\abc.txt" 將把文件移動到 c:\WINNT, 而調用
file.Move "c:\Upload\xyz.txt" 只會更改文件名。
要知道Move方法有個副作用是很重要的：當這個方法成功調用后，這個文件對象的Path屬性將指向新目錄/名字。
Copy屬性把文件拷貝到新目錄/名字。新目錄必須是完全合法的路徑。 Overwrite參數如果設成True或者不設，就會指示Copy方法覆蓋新目錄里的已有文件。 如果設成False，當文件在新目錄中已經存在地時候，會導致方法失敗。與Move方法不同，這個方法不會影響Path屬性。
有時你可能選擇使用Delete方法，例如你在把文件作為BLOBs存入數據庫中，并且不再需要它放在你的上傳路徑里時。將文件存入數據庫是我們下一個要討論的主題。
把文件作為BLOBs存入數據庫
許多數據庫管理系統象Ms Access或者SQL Server將允許你將任意文件存為"binary large objects"(BLOBs)。一個MS Access表格能夠在OLE Object型的數據字段中存放二進制文件。在SQL Server中，相應的數據類型是IMAGE。存放的文件以后能夠重新取出供下載，或者用ADO顯示。
AspUpload讓你只使用短短一行代碼就能把上傳文件存入數據庫！讓我們看看第三組示例文件。文件 Test3.htm幾乎和Test1.htm相同，因此我們不再把它顯示在這里。文件UploadScript4.asp 很值得我們注意：
<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save "c:\upload"
On Error Resume Next
For Each File in Upload.Files
File.ToDatabase "DSN=data;UID=sa;PWD=xxx;", "insert into Blobs(id, Path, BigBlob) values(12, '" & File.Path & "', ?)"
if Err <> 0 Then
Response.Write "Error saving the file: " & Err.Description
Else
File.Delete
Response.Write "Success!"
End If
Next
%>
</BODY>
</HTML>
這一行
On Error Resume Next
指示asp當以外發生時，不要顯示錯誤信息，只將意外代碼和描述存放到內建的Err對象，并且繼續腳本的執行。
下一行
File.ToDatabase "DSN=data;UID=sa;PWD=xxx;", "insert into Blobs(id, Path, BigBlob) values(12, '" & File.Path & "', ?)"
是將文件存放入數據庫所采用的一切。我們來檢查一下這個方法的兩個參數：
第一個參數是下列格式的ODBC連接字串：
"DSN=datasource;UID=userid;PWD=password;<other optional parameters>"
第二個參數是SQL INSERT或者UPDATE語句，帶有一個問號(?)，并且只能帶一個。它的作用是為要存儲的文件提供空間容器。在這個例子中，我們下部的數據庫表Blobs包含三欄：一個Integer ID，一個VARCHAR Path，和一個IMAGE BigBlob。這個SQL INSERT語句將12放入ID欄,文件路徑放入Path欄，真實文件放入BigBlob欄。
下一行檢查語句在成功執行前是否正確。如果成功，Err對象取值0并且刪除文件
（File.Delete行），因為文件已經存入數據庫，不需要再放在上傳路徑中了。否則，Err包含一個數字錯誤代碼，并且Err.Description包含對于意外的語言描述。
將GIF和JPEG圖象存入數據庫很常見。將圖象從數據庫中取出并顯示在HTML頁中，你不需要使用任何第三方組件。ADO就能完成任務。
在你的HTML頁面中放入普通<IMG>標簽，將SRC屬性指向一個ASP腳本，例如
<IMG SRC="GetImage.asp?id=4">
GetImage.asp 腳本看起來可能會是這樣
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "data"
Set rs =db.Execute("SELECT BigBlob FROM Blobs where id = " & Request("id") )
Response.ContentType = "image/jpeg" '(or "image/gif")
Response.BinaryWrite rs("BigBlob")
%>
--------------------------------------------------------------------------------
哪里能得到更多關于AspUpload的信息
要得到完整的AspUpload文檔，并下載免費評估版本，請訪問Persists軟件公司的web站點
http://www.persits.com/aspupload.html。這個組件的注冊費用是$99.00（單CPU協議）。
常問到的問題
問: AspUpload能在所有ASP版本上工作嗎？
答: 不.早期版本ASP的Request對象不提供BinaryRead或者TotalBytes方法，而本組件對這兩個方法依賴很大。檢驗你的ASP版本是否允許上傳的最好方法是執行象<% n = Request.TotalBytes %>這樣一句簡單的腳本，看你的ASP模塊能否識別。
問: 哪里能獲得最新版本的ASP?
答:這取決于你的web服務器的版本。如果你使用PWS或者IIS3.0，你可以到
http://www.microsoft.com/office/intranet/modules/asp411s3.asp下載最新版本。如果你使用IIS4.0你可以從http://www.microsoft.com/iis下載并安裝Option Pack 4。
問: 微軟Internet Explorer 3.0支持文件上傳嗎？
答: 缺省的，是不支持。但是有一個IE3的附件可以用，從此下載 http://www.microsoft.com/msdownload/iebuild/ie3add_win32/en/ie3add_win32.htm.
關于作者
Peter Persits (peter@persits.com)是Persits Software, Inc的創建者和總裁，流行ASP組件 AspNTUser, AspGrid, AspAccessControl, AspUpload 和 AspEmail的作者。Peter已經從事軟件開發10多年。他擁有American University (Washington, DC)的計算機科學碩士學位,并且是微軟認證解決方案開發員。他現住在Arlington, VA。
|
