繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP打开任何类型文件提示保存
- ASP
- 提高SQL的执行效率的ASP的五种做法
- asp的offset的一个go to page
- asp中command的在单条记录时,有些字段显示为空的问题
- asp,php一句话木马整理方便查找木马
- asp 合并记录集并删除的sql语句
- asp下循环一行多少个
- asp循环行数输出函数
- asp access重新开始编号
- ASP生成数字相加求和的BMP图片验证码
- 静态页面利用JS读取cookies记住用户信息
- 比较详细的Asp伪静态化方法及Asp静态化探讨
- asp Response.flush 实时显示进度
- Asp高级故障解决以及相关代码
- asp智能脏话过滤系统v1.0
- ASP文件中的安全问题
- Access数据库中“所有记录中均未找到搜索关键字”的解决方法
- asp两组字符串数据比较合并相同数据
- asp MYSQL出现问号乱码的解决方法
- asp文章中随机插入网站版权文字的实现代码
- ASP利用XMLHTTP实现表单提交以及cookies的发送的代码
ASP打开任何类型文件提示保存
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-28 浏览: 48 ::
收藏到网摘: n/a
相信大家平时都有这样的经历：页面上有一个链接指向服务器一个Word文件，当客户端机器有安装Office时，点击链接将调用Word打开浏览；当客户端机器没有安装Office时，点击链接将弹出保存对话框。总结一下即如果浏览器认识文件类型，就会自动打开；如果不认识，则会提示客户保存。可是有时候我们希望不管什么类型文件，都不要打开，直接让客户端保存。要达到这个要求，对于保存在服务器硬盘上的文件就得利用ASPUpload组件的SendBinary方法来实现，而对于保存在数据库中的文件则只须打开记录集，然后将二进制数据直接输出到客户端即可，不过要告诉浏览器文件的MIME类型、文件名称和文件大小。
1.服务器端硬盘上的文件
<%
Dim Upload,FilePath
Set Upload = Server.CreateObject("Persits.Upload")
FilePath = Server.MapPath(".") & "\" & "2003529213019.txt"
'SendBinary参数说明:
'参数一：文件物理路径
'参数二：是否将文件的MIME类型等信息传送给浏览器
'参数三：文件类型，可以指定具体的MIME类型，但一般都可以使用application/octet-binary
'参数四：让客户端保存文件还是直接打开。True：保存；False(默认)：打开
Upload.SendBinary FilePath,True,"application/octet-binary",True
%>
Dim Upload,FilePath
Set Upload = Server.CreateObject("Persits.Upload")
FilePath = Server.MapPath(".") & "\" & "2003529213019.txt"
'SendBinary参数说明:
'参数一：文件物理路径
'参数二：是否将文件的MIME类型等信息传送给浏览器
'参数三：文件类型，可以指定具体的MIME类型，但一般都可以使用application/octet-binary
'参数四：让客户端保存文件还是直接打开。True：保存；False(默认)：打开
Upload.SendBinary FilePath,True,"application/octet-binary",True
%>
2.服务器端数据库中的文件
<%
Dim objConn,objRs
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.RecordSet")
objConn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db1.mdb")
objRs.open "select * from t5 where id=2",objConn,1,3
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition","attachment;filename=" & objRs("filename")
Response.AddHeader "Content-Length",CStr(objRs("size")) '此处必须用CStr转换
Response.BinaryWrite objRs("file")
objRs.close
Set objRs = nothing
objConn.close
Set objConn = nothing
%>
Dim objConn,objRs
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.RecordSet")
objConn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db1.mdb")
objRs.open "select * from t5 where id=2",objConn,1,3
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition","attachment;filename=" & objRs("filename")
Response.AddHeader "Content-Length",CStr(objRs("size")) '此处必须用CStr转换
Response.BinaryWrite objRs("file")
objRs.close
Set objRs = nothing
objConn.close
Set objConn = nothing
%>
此法要求保存文件时需同时保存文件名及文件大小！若未指定文件名及大小，如果浏览器认识该文件类型，将会自动打开；如果不认识，才会提示客户保存！
评论 (0) All
