为通用开发平台的下载模块增加支持多线程下载，并增加防范盗链和内部系统盗链（越权）问题...-CSDN博客

平台中用到的所有附件都是统一管理的，当然下载模块也是统一管理的

原先写的下载程序不支持多线程下载，并且无法支持续传，经网上搜索相关资料，得到一个比较好的函数，如下：

'输出文件到浏览器
    '_fileName:输出的文件名
    '_fullPath:实际文件（含路径）
    'SaveFile:标志 True    '
    '_speed：下载速度   xxx 字节/秒
    Public Shared Function ResponseFile(ByVal _fullPath As String, ByVal _fileName As String, ByVal SaveFile As Boolean, ByVal _speed As Long) As Boolean

        If Trim(_fullPath) = "" Then Return False
        If Trim(_fileName) = "" Then _fileName = Path.GetFileName(_fullPath)
        _fileName = _fileName.Replace(" ", "") '删除空格
        _fileName = _fileName.Replace("[", "") '
        _fileName = _fileName.Replace("]", "") '
        _fileName = _fileName.Replace("""", "") '
        _fileName = _fileName.Replace("'", "") '
        _fileName = _fileName.Replace("$", "") '
        _fileName = _fileName.Replace("%", "") '
        If _speed <= 0 Then _speed = 10000000000
        Try
            Dim input As New FileStream(_fullPath, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
            Dim reader As New BinaryReader(input)
            Try
                Current.Response.ClearContent()
                Current.Response.ClearHeaders()
                Current.Response.AddHeader("Accept-Ranges", "bytes")
                Current.Response.Buffer = False
                Dim length As Long = input.Length
                Dim offset As Long = 0
                Dim num3 As Double = 10240
                Dim millisecondsTimeout As Integer = (CInt(Math.Floor(CDbl(((1000 * num3) / CDbl(_speed))))) + 1)
                If (Not Current.Request.Headers.Item("Range") Is Nothing) Then
                    Current.Response.StatusCode = 206
                    offset = Convert.ToInt64(Current.Request.Headers.Item("Range").Split(New Char() {"="c, "-"c})(1))
                End If
                Current.Response.AddHeader("Content-Length", (length - offset).ToString)
                Current.Response.AddHeader("Connection", "Keep-Alive")
                Current.Response.ContentType = GetFileContentType(Path.GetExtension(_fileName))
                Current.Response.AddHeader("Content-Disposition", (IIf(SaveFile, "attachment;", "") & "filename=" & HttpUtility.UrlEncode(_fileName, Encoding.UTF8)))
                Current.Response.ContentEncoding = Encoding.Default
                reader.BaseStream.Seek(offset, SeekOrigin.Begin)
                Dim num5 As Integer = (CInt(Math.Floor(CDbl((CDbl((length - offset)) / num3)))) + 1)
                Dim i As Integer
                For i = 0 To num5 - 1
                    If Current.Response.IsClientConnected Then ' 检查客户端是否在线
                        Current.Response.BinaryWrite(reader.ReadBytes(Integer.Parse(num3.ToString))) ' 读取数据到缓冲区
                        System.Threading.Thread.Sleep(millisecondsTimeout)
                    Else
                        i = num5
                    End If
                Next i
            Catch
                Return False
            Finally
                reader.Close()
                input.Close()
            End Try
            Current.Response.End()
        Catch
            Return False
        End Try
        Return True
    End Function