★→ASP程序学习群:62655404 微信公众号开发
订阅本栏目 RSS您所在的位置: 深山工作室 > ASP学习 > 正文

asp利用fso中的二进制数据流方式读取任意文件,并且在网页上下载保存文件

网络 2014/9/3 20:34:49 网络 字体:  浏览 7596 我要评论
当前标签
fso
<%
Set Fs = Server.CreateObject("Scripting.FileSystemObject") 'Fso对象
Set Ado = Server.CreateObject("Adodb.Stream") 'Ado对象
i = 0 '计数器
r = 1024 '每次读取大小(byte)
FilePath = Server.MapPath("xxxx.rar") '文件路径
Ado.Mode = 3 '1 读,2 写,3 读写。
Ado.Type = 1 '1 二进制,2 文本。
Ado.Open
Ado.LoadFromFile(FilePath) '载入文件
Response.AddHeader "Content-Disposition", "attachment; filename=" & Fs.GetFile(FilePath).name '文件名
Response.AddHeader "Content-Length", Ado.size '通知浏览器接收的文件大小
Response.ContentType = "application/octet-stream" '通知浏览器接受的文件类型(可自己定义,很多种,但一般都用这个.)
While i < Ado.Size '循环读取直到读完为止
Response.BinaryWrite Ado.Read(r) '输出二进制数据流
Response.Flush '立即发送(要求至少256字节),不加的话可能提示超过缓存区。
i = i + r '累加计数器
Wend
Ado.Close '关闭文件对象
Response.End
%>
相关阅读
( 2019/4/16 14:29:04 )asp导出内容到excel表并自定义命名后下载(非打开)
( 2014/8/25 7:48:01 )asp模拟动态加载include file
( 2013/2/6 14:25:45 )利用fso判断文件是否存在
( 2012/7/17 18:15:54 )asp iis 开启本地FSO权限
( 2012/7/4 9:51:19 )asp中fso实现对文件或文件夹进行创建删除等操作函数
( 2010/9/9 16:15:38 )ewebeditor 删除信息时同时删除相关上传文件
( 2009/9/15 8:23:33 )asp 当日访问量,全部访问量,当前在线人数统计
( 2009/9/15 8:21:17 )asp利文本文档加FSO统计网站访问量的方法(2)
共有0条关于《asp利用fso中的二进制数据流方式读取任意文件,并且在网页上下载保存文件》的评论
发表评论
正在加载评论……
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
深山工作室网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
rss学习
个人空间
网站设计
网站公告
下载
photoshop学习
ASP学习
DIV+CSS学习
SEO搜索引擎忧化
java学习
HTML学习
网站信息
网站类信息
更多>>同类信息
ASP利用fso读取文件夹里所有文件的名字
asp实现获得当前文章的上一篇信息与下一篇信息功能及代码
asp导出内容到excel表并自定义命名后下载(非打开)
'禁止站外提交页面和数据
asp将中文汉字字符转为unicode编码(\u编码)与把unicode编码转为汉字
asp中qequest读取优先级顺序(通过优化之后提高速度)
asp计算页面执行时间显示到毫秒
批量删除access字段里面fld.Properties.Delete
更多>>最新添加文章
sql server中前缀为PK、UK、DF、CK、FK表的意思
网站从http改成https(ssl证书)后设置301跳转将http跳转到https的方法
ASP利用fso读取文件夹里所有文件的名字
jquery动态生成的html代码中无法使用jquery事件的解决方法
asp实现获得当前文章的上一篇信息与下一篇信息功能及代码
asp导出内容到excel表并自定义命名后下载(非打开)
'禁止站外提交页面和数据
asp将中文汉字字符转为unicode编码(\u编码)与把unicode编码转为汉字
更多>>随机抽取信息
网页调用msn/qq/email记录,淘宝,skype挂在网页上
如何提高网站的PR值
连云港党建
文字间隔翻转详解
div+css中文字居于底部的解决方法与代码
刘浏家俱
详细的百度蜘蛛爬行检测代码诠释
当前流行的四款常用浏览器最客观的评测