我要投稿
  • 您当前的位置:57365.com -> 技术教程 -> 网站建设教程 -> 源码精华 -> 教程内容
  • [ 收藏本页教程 ]
  • ASP.NET中实现直接从网页上下载文件,而不须引用文件URL来下载源码精华教程

    教程作者:佚名    教程来源:不详   教程栏目:源码精华    收藏本页
    '函数名: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

    (出处:

    我要投稿   -   广告合作   -   关于本站   -   友情连接   -   网站地图   -   联系我们   -   版权声明   -   设为首页   -   加入收藏   -   网站留言
    Copyright © 2009 - 20012 www.www.hxswjs.com All Rights Reserved.57365.com 版权所有