利用ADOBOD.stream可在Asterix ASP中进行大量并行任务的读取

发布时间：2023-09-02 13:38:22 所属栏目：Asp教程来源：

导读：这篇文章主要介绍了ASP下通过Adodb.Stream实现多线程下载大文件,需要的朋友可以参考下

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

这篇文章主要介绍了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，直接引用即可：



<%

  '创建下载

  call CreateDownloader("down/tools.rar", "")

  '创建下载并自定义文件名

  call CreateDownloader("down/tools.rar", "hello.rar")

%>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!