• 风格:
网站首页
新闻资讯
文章中心
影视录音
歌曲音乐
精美图片
资源下载
在线商城
网页特效
用户信息
综合导航
  • 流行第一线
  • 流行第一线
  • 站内新闻
  • 临沂新闻
  • 新浪新闻
  • 站内风彩
  • 美女帅哥
  • 桌面图片
  • 节目录音
  • 影片采集
  • 精彩推荐
  • 国语歌曲
  • 网络歌曲
  • 情感故事
  • 忘忧秀豆
  • 娱乐幽默
  • 技术文章
  • 流行第一线
  • 流行第一线
  • 留言本站
  • 博客日志
  • 会员娱乐
  • 动漫频道
  • 酷站推荐
  • 友情连接
  • 程序讨论
您的位置:首页 >> 文章频道 >> ASP.NET中实现直接从网页上下载文件---流行第一线
文章阅读

ASP.NET中实现直接从网页上下载文件---流行第一线

作者:佚名 | 来源:流行第一线 | 时间:2008-04-21 | 阅读权限:游客身份 | 会员币:0

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

提交会员:admin采集 | 浏览次数:
【 复制 】 【 打印 】

>>相关资讯:

上篇文章:ASP实现邮件发送普通附件和嵌入附件---流行第一线   下篇文章:关于ASP.NET技术的学习顺序问题---流行第一线
查看网友评论 网友评论
以下网友评论只代表其个人观点,不代表悠久网的观点或立场
用户登陆

加载中……
相关文章
  • 没有相关文章
关于我们 | 广告合作 | 免责申明 | 程序帮助 | 网站地图 | 留言本站 | 友情连接 | 后台管理
Copyright © 2008 - 2009 HxCms.Net www.am873.com Inc. All Rights Reserved.
HxCms Ver8.0  鲁ICP备07004488号