ASP.NET中实现直接从网页上下载文件，而不须引用文件URL来下载

最新推荐文章于 2025-10-17 16:54:33 发布

原创最新推荐文章于 2025-10-17 16:54:33 发布 · 1.2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#asp.net #url #buffer #exception #服务器 #function

学习笔记和心得专栏收录该内容

0 篇文章

订阅专栏

博客给出了一个名为ResponseFile的ASP.NET函数，其功能是让客户端从服务器端下载文件。函数接收响应对象、下载文件名、服务器文件路径和缓冲区大小等参数，通过读取文件并进行响应处理，返回布尔值表示下载是否成功。

'函数名：ResponseFile
'功能：客户端从服务器端下载一个文件
'返回值：返回True表示服务器响应成功，返回False表示失败
'参数：
'        PageResponse       响应客户端的Response对象，用Page.Response引用
'        DownloadFileName   客户端下载文件的文件名
'        LocalFilePath      服务器端待下载文件的路径
'        DownloadBuffer     服务器端读取文件的缓冲区大小，单位为KB
Public Function ResponseFile(ByRef PageResponse As HttpResponse, ByVal DownloadFileName As String, ByVal LocalFilePath As String, ByVal DownloadBuffer As Long) As Boolean
        Dim Reader As System.IO.FileStream
        Dim Buffer() As Byte
        Dim FileLength As Long
        Dim FileBuffer As Long = 1024 * DownloadBuffer
        Dim ReadCount As Long
        ReadCount = FileBuffer
        ReDim Buffer(ReadCount - 1)
        Try
                Reader = System.IO.File.OpenRead(LocalFilePath)
                FileLength = Reader.Length
                Try
                        PageResponse.Buffer = False
                        PageResponse.AddHeader("Connection", "Keep-Alive")
                        PageResponse.ContentType = "application/octet-stream"
                        PageResponse.AddHeader("Content-Disposition", "attachment;filename=" + DownloadFileName)
                        PageResponse.AddHeader("Content-Length", FileLength.ToString)
                        While ReadCount = FileBuffer
                                ReadCount = Reader.Read(Buffer, 0, FileBuffer)
                                ReDim Preserve Buffer(ReadCount - 1)
                                PageResponse.BinaryWrite(Buffer)
                        End While
                        Response.End()
                Catch ex As Exception
                        Return False
                Finally
                        Reader.Close()
                End Try
        Catch ex As Exception
                Return False
        End Try
        Return True
End Function