• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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")
    %>

    有图有真相:

    到此这篇关于ASP下通过Adodb.Stream实现多线程下载大文件的文章就介绍到这了,更多相关ASP多线程下载大文件内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家!

    您可能感兴趣的文章:
    • 使用asp下的adodb.stream 下载文件而不是打开
    • asp之基于adodb.stream的文件操作类
    • asp下用ADODB.Stream代替FSO读取文本文件
    • asp adodb.stream对象的方法/属性
    上一篇:ASP和PHP文件操作速度的对比
    下一篇:one.asp多项目、函数库、类库 统一为一个版本的方法
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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