有個(gè)朋友 做 某種小眾音樂交換站的（他們那個(gè)行業(yè)的昵圖網(wǎng)），需要用到付費(fèi)下載。嘗試過 防盜鏈，不太理想，最終使用了 Adodb.Stream 讀取，直接輸出。

解決了 盜版的問題，但是新的問題又來了。Adodb.Stream 這種方式 電腦還好說，大部分電腦瀏覽器都支持。移動(dòng)端 很多 瀏覽器為了 加速讀取，會(huì)多線程下載導(dǎo)致 文件無法正常讀取。

抓包，發(fā)現(xiàn)增加了 HTTP頭 HTTP_RANGE。隱約記得 之前讀過 王大（王洪影）的 《深入解析 ASP核心技術(shù)》當(dāng)中提到ASP多線程下載的問題，回家翻出來，最終還就真解決了。

為了 方便調(diào)用，直接寫成了 一個(gè) 函數(shù)。沒用王大的代碼，感覺我自己的更美（自戀中…）。如有有需要的朋友需要，直接拿走即可，代碼如下：

option explicit "inputFile 需要下載的文件"outputName 輸出文件名，可以為空，為空時(shí)自動(dòng)根據(jù) inputFile 生成Sub CreateDownloader(byval inputFile, byval outputName)  Dim filePath  filePath = Server.Mappath(inputFile)  If outputName = "" Then outputName = Split(filePath, "\")(UBound(Split(filePath, "\")))   "下載開始  Dim AdoStream, bufferSize  Set AdoStream = Server.CreateObject("Adodb.Stream") "Adodb.Stream，實(shí)例變量名為了方便區(qū)分用大寫  bufferSize   = 2 * 1024 * 1024 "每次讀取大小(byte) 2M  AdoStream.Mode = 3 "1 讀，2 寫，3 讀寫  AdoStream.Type = 1 "1 二進(jìn)制，2 文本  AdoStream.Open  AdoStream.LoadFromFile(filePath) "載入文件  Response.AddHeader "Content-Disposition", "attachment; filename=" & outputName "文件名  Response.ContentType = "application/octet-stream" "通知瀏覽器接受的文件類型(可自己定義,很多種,但一般都用這個(gè)   Dim httpRange,rangeStart,fileSize  "獲取 分段下載 請(qǐng)求  httpRange = Request.ServerVariables("HTTP_RANGE")  fileSize = AdoStream.size "文件總大小   If httpRange = "" Then    "不支持?jǐn)帱c(diǎn)續(xù)傳    rangeStart = 0  Else    "支持?jǐn)帱c(diǎn)續(xù)傳    httpRange = Mid(httpRange, 7)    rangeStart = CLng(Split(httpRange, "-")(0))     If rangeStart < 0 Or rangeStart >= fileSize Then      "已經(jīng)下載完畢      Response.Status = "416 Requested range not satisfiable"    Else      Response.Status = "206 Partial Content"      Response.AddHeader "Content-Range", "bytes " & rangeStart & "-" & (fileSize - 1) & "/" & fileSize      AdoStream.Position = rangeStart    End If   End If   Dim binaryBlock   If Response.Status <> "416 Requested range not satisfiable" Then    Response.AddHeader "Content-Length", fileSize - rangeStart "通知瀏覽器接收的文件大小    binaryBlock = AdoStream.Read(bufferSize)     Do While Lenb(binaryBlock) > 0 "循環(huán)讀取直到讀完為止      Response.BinaryWrite binaryBlock "輸出二進(jìn)制數(shù)據(jù)流      Response.Flush "立即發(fā)送(要求至少256字節(jié))，不加的話可能提示超過緩存區(qū)。      binaryBlock = AdoStream.Read(bufferSize)    Loop   End If   AdoStream.Close "關(guān)閉文件對(duì)象  Set AdoStream = Nothing  Response.EndEnd Sub

使用也非常簡單，假如上面的代碼保存到了 downloader.asp，直接引用即可：

<!--#include file="downloader.asp"--><%  "創(chuàng)建下載  call CreateDownloader("down/tools.rar", "")     "創(chuàng)建下載并自定義文件名  call CreateDownloader("down/tools.rar", "hello.rar")%>

有圖有真相：

到此這篇關(guān)于ASP下通過Adodb.Stream實(shí)現(xiàn)多線程下載大文件的文章就介紹到這了,更多相關(guān)ASP多線程下載大文件內(nèi)容請(qǐng)搜索以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持！