首 页文章中心客户留言enfullPDA完全版游戏天空全方位下载繁體中文
设为首页
加入收藏
联系我们
您当前的位置:技术文章大全 -> 文章中心 -> 技术开发 -> .Net专栏 -> 文章内容 退出登录 用户管理
栏目导航
· .Net专栏 · Script
· ASP学院 · PHP学院
· Web服务器 · XML学院
· SQL学院 · JSP学院
· 程序开发 · 数据库
热门文章
· 个人实习总结
· “八荣八耻”演讲稿...
· 毕业论文格式范文
· 八荣八耻 内容|八荣...
· 党校学习个人总结
· “八荣八耻”心得体...
· 教育实习总结报告
· 社会主义荣辱观教育...
· 市场营销系毕业实习...
· 党课学习思想汇报
相关文章
· asp 与 asp.net 共享...
· [图文] ASP.NET2.0+SQL Ser...
· ArrayList-asp.net入...
· Asp.Net 2.0 发布问...
· ASP.Net Web Page深...
· ASP.Net Web Page深...
· Asp.Net 学习资源列...
· Asp.Net 学习资源列...
· asp.net(C#)海量数据...
· Asp.NET常用函数
ASP.NET中实现直接从网页上下载文件,而不须引用文件URL来下载
作者:无从考证  来源:CSDN  发布时间:2006-4-20 19:33:54  发布人:admin

减小字体 增大字体

函数名: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

[] [返回上一页] [打 印] [收 藏]
上一篇文章:.NET Framework Namespaces
∷相关文章评论∷    (评论内容只代表网友观点,与本站立场无关!) [更多评论...]
友情连接 - 网站地图 -