用ASP实现txt,doc,jpg等文件下载的函数
发布时间：2007-08-17 13:17:00
标签：下载,txt,doc,jpg
对文本类文件（*.txt;*.html;*.doc;等等），图片类文件（*.jpg;*.gif等等）直接点击链接时会在浏览器打开，而无法出现下载保存对话框。
如果要实现点击上述文件，弹出保存对话框，则需要用到下面这个函数了：
<％
’Call downloadFile(Request("path"))
function downloadFile(strFile)
strFilename = server.MapPath(strFile)
’Clear the buffer
Response.Buffer = True
Response.Clear
’Create stream
Set s = Server.CreateObject("ADODB.Stream")
s.Open
’Set as binary
s.Type = 1
’Load in the file
on error resume next
’Check the file exists
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("<p><strong>Error: </strong>" & strFilename & " does not exist</p>")
Response.End
end if
’Get length of file
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("<p><strong>Error: </strong>" & err.Description & "</p>")
Response.End
end if
’Send the headers to the users browser
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
’Output the file to the browser
Response.BinaryWrite s.Read
Response.Flush
’Tidy up
s.Close
Set s = Nothing
End Function
％>
0
投稿猜你喜欢
- 第一步肯定是打上SQL SERVER最新的安全补丁.如果这一步都没有做好，那我们也没有继续下去的必要了。 第二步是修改默认的1433端口，并
我们在工作中经常强调沟通能力，和产品、开发、测试等不同角色的人需要沟通，和领导、同事需要沟通，沟通是一个双向的过程，而沟通首先需要双方有良好- 1、前言 MySQL 是完全网络化的跨平台关系型数据库系统，同时是具有客户机/服务器体系结构的分布式数据库管理系统。它具有功能强、使用简便、
- Truncate是SQL中的一个删除数据表内容的语句，用法是：TRUNCATE TABLE [Table Name]。下面是对Truncat
- 最近，我面试了一个有五年 Web 应用程序开发经验的软件开发人员。四年半来她一直在从事 JavaScript 相关的工作，她自认为 Java
- jQuery 将马上发布 1.4 正式版，代码也从 googlecode 上迁移到了 github. jQuery 是我接触的第一个 JS
- 今天同学向我提了一个问题，我觉得蛮有意思，现记录下来大家探讨下。问题是：在一个表里面，有一个允许为空的字段，空是可以重复的，但是不为空的值需
- 数据库是数据的集合，与数学的集合论有密不可分的关系。为提高查询速度，我们可以：对数据表添加索引，以加快搜索速度;通过编程技巧最大限度地利用索
- 今天我和中国著名画家"渔人"谈了一个关于"怎样才能设计好"的问题,他给我说了一句话,得益不浅,那句话
- b 和 i 标签在现在的 Web 标准潜规则中是不推荐使用，甚至是反对使用的，因为认为他们只是“表现”粗体和斜体，而没有任何“语义”。更多的
- 想必大家都知道MSSQL中SA权限是什么，可以说是至高无上。今天我就它的危害再谈点儿，我所讲的是配合NBSI上传功能得到WebShell。在
- Function Comma(str)If Not(IsNumeric(str)) Or
- 您可以使用 ObjectContext 对象提交或放弃一项由 Microsoft Transaction Server (MTS) 管理的事
- MySQL服务器有几个影响其操作的参数（变量）。如果缺省的参数值不合适，可以将其修改为对服务器运行环境更合适的值。例如，如果您有大量的内存，
- 简介:外部连接和自联接inner join(等值连接) 只返回两个表中联结字段相等的行left join(左联接) 返回包括左表中的所有记录
- 内容摘要：现在InterNet 越来越成为生活中不可或缺的一部分，制作网页的动态语言也越来越多，主要流行的有以下几种，ASP,PH
- 在所有的比例中黄金分割是最能引起人的美感的，0.618被公认为最具有审美意义的比例数字。黄金分割之所以那么普遍的流行，我猜一定跟理想女人体的
- 在做一个在线交流的网站时，有个问题很令我头疼，就是关于实时统计在线用户的问题，客户要求：统计当前在线人数、游客人数、会员人数、在线用户列表，
- 1、授权机制的主要作用是什么?授权机制的基本作用是给某个主机上的用户对某个数据库以select，insert，update和detete的权
- 代码如下:--函数 CREATE function fn_GetPy(@str nvarchar(4000)) returns nvarch
