这篇文章主要介绍了ASP下通过Adodb.Stream实现多线程下载大文件,需要的朋友可以参考下
有个朋友 做 某种小众音乐交换站的（他们那个行业的昵图网），需要用到付费下载。尝试过 防盗链，不太理想，最终使用了 Adodb.Stream 读取，直接输出。
解决了 盗版的问题，但是新的问题又来了。Adodb.Stream 这种方式 电脑还好说，大部分电脑浏览器都支持。移动端 很多 浏览器为了 加速读取，会多线程下载导致 文件无法正常读取。
抓包，发现增加了 HTTP头 HTTP_RANGE。隐约记得 之前读过 王大（王洪影）的 《深入解析 ASP核心技术》当中提到ASP多线程下载的问题，回家翻出来，最终还就真解决了。
为了 方便调用，直接写成了 一个 函数。没用王大的代码，感觉我自己的更美（自恋中…）。如有有需要的朋来源gaodai$ma#com搞$$代**码网友需要，直接拿走即可，代码如下：
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 = 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"-->
有图有真相：
以上就是ASP下通过Adodb.Stream实现多线程下载大文件的详细内容，更多请关注gaodaima搞代码网其它相关文章！
搞代码网（gaodaima.com）提供的所有资源部分来自互联网，如果有侵犯您的版权或其他权益，请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected]，我们会在看到邮件的第一时间内为您处理，或直接联系QQ：872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接：ASP下通过Adodb.Stream实现多线程下载大文件
转载请注明原文链接：ASP下通过Adodb.Stream实现多线程下载大文件
