ASP下通过Adodb.Stream实现多线程下载大文件

有个朋友做某种小众音乐交换站的（他们那个行业的昵图网），需要用到付费下载。尝试过防盗链，不太理想，最终使用了 Adodb.Stream 读取，直接输出。

解决了盗版的问题，但是新的问题又来了。Adodb.Stream 这种方式电脑还好说，大部分电脑浏览器都支持。移动端很多浏览器为了加速读取，会多线程下载导致文件无法正常读取。

抓包，发现增加了 HTTP头 HTTP_RANGE。隐约记得之前读过王大（王洪影）的《深入解析 ASP核心技术》当中提到ASP多线程下载的问题，回家翻出来，最终还就真解决了。

为了方便调用，直接写成了一个函数。没用王大的代码，感觉我自己的更美（自恋中…）。如有有需要的朋友需要，直接拿走即可，代码如下：

option explicit

\’inputFile 需要下载的文件
\’outputName 输出文件名，可以为空，为空时自动根据 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，实例变量名为了方便区分用大写
bufferSize = 2 * 1024 * 1024 \’每次读取大小(byte) 2M
AdoStream.Mode = 3 \’1 读，2 写，3 读写
AdoStream.Type = 1 \’1 二进制，2 文本
AdoStream.Open
AdoStream.LoadFromFile(filePath) \’载入文件
Response.AddHeader \”Content-Disposition\”, \”attachment; filename=\” & outputName \’文件名
Response.ContentType = \”application/octet-stream\” \’通知浏览器接受的文件类型(可自己定义,很多种,但一般都用这个

Dim httpRange,rangeStart,fileSize
\’获取分段下载请求
httpRange = Request.ServerVariables(\”HTTP_RANGE\”)
fileSize = AdoStream.size \’文件总大小

If httpRange = \”\” Then
\’不支持断点续传
rangeStart = 0
Else
\’支持断点续传
httpRange = Mid(httpRange, 7)
rangeStart = CLng(Split(httpRange, \”-\”)(0))

If rangeStart < 0 Or rangeStart >= fileSize Then
\’已经下载完毕
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 \’循环读取直到读完为止
Response.BinaryWrite binaryBlock \’输出二进制数据流
Response.Flush \’立即发送(要求至少256字节)，不加的话可能提示超过缓存区。
binaryBlock = AdoStream.Read(bufferSize)
Loop

End If

AdoStream.Close \’关闭文件对象
Set AdoStream = Nothing
Response.End
End Sub

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

<!–#include file=\”downloader.asp\”–>
<%
\’创建下载
call CreateDownloader(\”down/tools.rar\”, \”\”)

\’创建下载并自定义文件名
call CreateDownloader(\”down/tools.rar\”, \”hello.rar\”)
%>

有图有真相：