蝙蝠岛资源网 Design By www.hbtsch.com
有个朋友 做 某种小众音乐交换站的(他们那个行业的昵图网),需要用到付费下载。尝试过 防盗链,不太理想,最终使用了 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") %>
有图有真相:
标签:
ASP多线程,asp大文件
蝙蝠岛资源网 Design By www.hbtsch.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
蝙蝠岛资源网 Design By www.hbtsch.com
暂无ASP下通过Adodb.Stream实现多线程下载大文件的评论...
更新日志
2024年12月25日
2024年12月25日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]