我還是一點(diǎn)一點(diǎn)用一個(gè)實(shí)例來說明的吧，客戶端HTML如下。要瀏覽上傳附件，我們通過＜input type="file"＞元素，但是一定要注意必須設(shè)置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>
后臺(tái)asp程序中，以前獲取表單提交的ASCII 數(shù)據(jù)，非常的容易。但是如果需要獲取上傳的文件，就必須使用Request對(duì)象的BinaryRead方法來讀取。BinaryRead方法是對(duì)當(dāng)前輸入流進(jìn)行指定字節(jié)數(shù)的二進(jìn)制讀取，有點(diǎn)需要注意的是，一旦使用BinaryRead 方法后，再也不能使用Request.Form 或 Request.QueryString 集合了。結(jié)合Request對(duì)象的TotalBytes屬性，可以將所有表單提交的數(shù)據(jù)全部變成二進(jìn)制，不過這些數(shù)據(jù)都是經(jīng)過編碼的。首先讓我們來看看這些數(shù)據(jù)是如何編碼的，有無什么規(guī)律可循，編段代碼，在代碼中我們將BinaryRead讀取的二進(jìn)制轉(zhuǎn)化為文本，輸出出來，在后臺(tái)的upload.asp中（注意該示例不要上傳大文件，否則可能會(huì)造成瀏覽器死掉）：

＜%Dim biData, PostDataSize = Request.TotalBytesbiData = Request.BinaryRead(Size)PostData = BinaryToString(biData,Size)Response.Write " ＜pre> " & PostData & " ＜/pre> "
'使用pre，原樣輸出格式
' 借助RecordSet將二進(jìn)制流轉(zhuǎn)化成文本
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è)最簡單的文本文件(G:\homepage.txt，內(nèi)容為"寶玉：http://www.webuc.net")來試驗(yàn)一下，文本框filename中保留默認(rèn)值"default filename"，提交看看輸出結(jié)果：
二、分塊上傳，記錄進(jìn)度
要實(shí)時(shí)反映進(jìn)度條，實(shí)質(zhì)就是要實(shí)時(shí)知道當(dāng)前服務(wù)器獲取了多少數(shù)據(jù)？再回想一下我們實(shí)現(xiàn)上傳的過程，我們是通過Request.BinaryRead(Request.TotalBytes)來實(shí)現(xiàn)的，在Request的過程中我們無法得知當(dāng)前服務(wù)器獲取了多少數(shù)據(jù)。所以只能通過變通的方法了，如果我們可以將獲取的數(shù)據(jù)分成一塊一塊的，然后根據(jù)已經(jīng)上傳的塊數(shù)我們就可以算出來當(dāng)前上傳了多大了！也就是說，如果我1K為1塊，那么上傳1MB的輸入流就分成1024塊來獲取，例如我當(dāng)前已經(jīng)獲取了100塊，那么就表明當(dāng)前上傳了100K。當(dāng)我提出分塊的時(shí)候很多人覺得不可思議，因?yàn)樗麄兌己雎訠inaryRead方法不僅是可以讀取指定大小，而且可以連續(xù)讀取的。

寫個(gè)例子來驗(yàn)證一下分塊讀取的完整性，在剛才的例子基礎(chǔ)上（注意該示例不要上傳大文件，否則可能會(huì)造成瀏覽器死掉）：
 ＜%Dim biData, PostData, TotalBytes, ChunkBytesChunkBytes = 1 * 1024
' 分塊大小為1KTotalBytes = Request.TotalBytes
' 總大小PostData = ""
' 轉(zhuǎn)化為文本類型后的數(shù)據(jù)ReadedBytes = 0
' 初始化為0
' 分塊讀取Do While ReadedBytes < TotalBytes biData = Request.BinaryRead(ChunkBytes)
' 當(dāng)前塊 PostData = PostData & BinaryToString(biData,ChunkBytes)
' 將當(dāng)前塊轉(zhuǎn)化為文本并拼接 ReadedBytes = ReadedBytes + ChunkBytes
' 記錄已讀大小
If ReadedBytes > TotalBytes Then ReadedBytes = TotalBytesLoopResponse.Write " ＜pre> " & PostData & " ＜/pre> "
' 使用pre，原樣輸出格式
' 將二進(jìn)制流轉(zhuǎn)化成文本
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 %>