我還是一點一點用一個實例來說明的吧,客戶端HTML如下。要瀏覽上傳附件,我們通過<input type="file">元素,但是一定要注意必須設置form的enctype屬性為"multipart/form-data":
<form method="post" action="upload.asp" enctype="multipart/form-data"> <br> <label> <br> <input type="file" name="file1" /> <br> </label> <br> <br /> <br> <input type="text" name="filename" value="default filename"/> <br> <br /> <input type="submit" value="Submit"/> <br> <input type="reset" value="Reset"/> <br> </form>
后臺asp程序中,以前獲取表單提交的ASCII 數據,非常的容易。但是如果需要獲取上傳的文件,就必須使用Request對象的BinaryRead方法來讀取。BinaryRead方法是對當前輸入流進行指定字節數的二進制讀取,有點需要注意的是,一旦使用BinaryRead 方法后,再也不能使用Request.Form 或 Request.QueryString 集合了。結合Request對象的TotalBytes屬性,可以將所有表單提交的數據全部變成二進制,不過這些數據都是經過編碼的。首先讓我們來看看這些數據是如何編碼的,有無什么規律可循,編段代碼,在代碼中我們將BinaryRead讀取的二進制轉化為文本,輸出出來,在后臺的upload.asp中(注意該示例不要上傳大文件,否則可能會造成瀏覽器死掉):
<%Dim biData, PostDataSize = Request.TotalBytesbiData = Request.BinaryRead(Size)PostData = BinaryToString(biData,Size)Response.Write " <pre> " & PostData & " </pre> "
簡單起見,上傳一個最簡單的文本文件(G:\homepage.txt,內容為"寶玉:http://www.webuc.net")來試驗一下,文本框filename中保留默認值"default filename",提交看看輸出結果:
'使用pre,原樣輸出格式
' 借助RecordSet將二進制流轉化成文本
Function BinaryToString(biData,Size) Const adLongVarChar = 201 Set RS = CreateObject("ADODB.Recordset") RS.Fields.Append "mBinary", adLongVarChar, Size RS.Open RS.AddNew RS("mBinary").AppendChunk(biData) RS.Update BinaryToString = RS("mBinary").Value RS.CloseEnd Function %>
二、分塊上傳,記錄進度
要實時反映進度條,實質就是要實時知道當前服務器獲取了多少數據?再回想一下我們實現上傳的過程,我們是通過Request.BinaryRead(Request.TotalBytes)來實現的,在Request的過程中我們無法得知當前服務器獲取了多少數據。所以只能通過變通的方法了,如果我們可以將獲取的數據分成一塊一塊的,然后根據已經上傳的塊數我們就可以算出來當前上傳了多大了!也就是說,如果我1K為1塊,那么上傳1MB的輸入流就分成1024塊來獲取,例如我當前已經獲取了100塊,那么就表明當前上傳了100K。當我提出分塊的時候很多人覺得不可思議,因為他們都忽略BinaryRead方法不僅是可以讀取指定大小,而且可以連續讀取的。
寫個例子來驗證一下分塊讀取的完整性,在剛才的例子基礎上(注意該示例不要上傳大文件,否則可能會造成瀏覽器死掉):
<%Dim biData, PostData, TotalBytes, ChunkBytesChunkBytes = 1 * 1024
' 分塊大小為1KTotalBytes = Request.TotalBytes
' 總大小PostData = ""
' 轉化為文本類型后的數據ReadedBytes = 0
' 初始化為0
' 分塊讀取Do While ReadedBytes < TotalBytes biData = Request.BinaryRead(ChunkBytes)
' 當前塊 PostData = PostData & BinaryToString(biData,ChunkBytes)
' 將當前塊轉化為文本并拼接 ReadedBytes = ReadedBytes + ChunkBytes
' 記錄已讀大小
If ReadedBytes > TotalBytes Then ReadedBytes = TotalBytesLoopResponse.Write " <pre> " & PostData & " </pre> "
' 使用pre,原樣輸出格式
' 將二進制流轉化成文本
Function BinaryToString(biData,Size) Const adLongVarChar = 201 Set RS = CreateObject("ADODB.Recordset") RS.Fields.Append "mBinary", adLongVarChar, Size RS.Open RS.AddNew RS("mBinary").AppendChunk(biData) RS.Update BinaryToString = RS("mBinary").Value RS.CloseEnd Function %>
安徽新華電腦學校專業職業規劃師為你提供更多幫助【在線咨詢】