用兩行代碼在瀏覽器中實現文件上傳

2019-11-18 21:47:42

字體：大中小

來源：轉載

供稿：網友

簡介
文件上傳是將任意的文件從客戶機發送到服務器的過程。最簡單、最方便的上傳方法是使用支持RFC1867的瀏覽器，如微軟的Internet Explorer4.0以上版本，Netscape3.0以上版本，或者帶附件的Internet Explorer3.0?；跒g覽器的文件上傳是通過帶有屬性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。

上一篇：采用行寫方式的聊天程序（之五）

下一篇：創建彈出式“每日提示”窗口