我還是一點一點用一個實例來說明的吧，客戶端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> "
'使用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 %>
簡單起見，上傳一個最簡單的文本文件(G:\homepage.txt，內容為"寶玉：http://www.webuc.net")來試驗一下，文本框filename中保留默認值"default filename"，提交看看輸出結果：
二、分塊上傳，記錄進度
要實時反映進度條，實質就是要實時知道當前服務器獲取了多少數據？再回想一下我們實現上傳的過程，我們是通過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 %>