有个朋友 做 某种小众音乐交换站的(他们那个行业的昵图网),需要用到付费下载。尝试过 防盗链,不太理想,最终使用了 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") %>
有图有真相:
华山资源网 Design By www.eoogi.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
华山资源网 Design By www.eoogi.com
暂无评论...
更新日志
2024年09月25日
2024年09月25日
- 纯音入心系列纯音乐《天籁古筝》1CD[MP3][331MB]
- 男女对唱典藏天碟《发烧对唱·那个季节里的歌DSD》10CD[WAV]
- 群星2010-歌林精选辑[歌林][WAV+CUE]
- TrioZimbalist-PianoTriosofWeinberg,Auerbach,Dvorak(2024)[24-44,1]wav
- 群星.1992-滚石第一流台湾歌·12王牌大车拼【滚石】【WAV+CUE】
- 林子祥.1984-创作歌集【华纳】【WAV+CUE】
- 周汤豪.2010-周汤豪【华纳】【FLAC分轨】
- Mozart-TheStringQuintets-AmadeusQuartet,CecilAronowitz(2017)[24-44,1][WAV+CUE]
- JamesWilliamsDennisIrwin-Focus(2024,Red)[24-48]FLAC
- 藤泽麻衣《空みあげて》[WAV]
- 纯音入心系列纯音乐《中国古筝经典名曲》1CD[MP3][1.3GB]
- 纯音入心系列纯音乐《古筝新奏:岁月静好与筝语,细水流年与筝同》1CD[MP3][846.9MB]
- 670《脆弱敏感小女生》[320K/MP3][27.53MB]
- 曾琳.2011-好好爱我【南方】【WAV+CUE】
- 范晓萱.1995-RAIN【福茂】【WAV+CUE】