ASP实现强制图片下载函数
更新时间:2015年05月18日 11:39:27 投稿:hebedich
最近做的一个asp项目需要强制下载图片,我在网上找了很多关于下载远程图片的ASP代码,但测试结果都不行。没办法只好自己操刀了,有什么纰漏的地方还请大家指出。
图片不进行处理,图片默认是用浏览器打开显示,如果希望图片变为下载可以使用以下代码
function downloadFile(strFile) strFilename = server.MapPath(strFile) Response.Buffer = True Response.Clear Set s = Server.CreateObject("ADODB.Stream") s.Open s.Type = 1 on error resume next Set fso = Server.CreateObject("Scripting.FileSystemObject") if not fso.FileExists(strFilename) then Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>") Response.End end if Set f = fso.GetFile(strFilename) intFilelength = f.size s.LoadFromFile(strFilename) if err then Response.Write("<h1>Error: </h1>" & err.Description & "<p>") Response.End end if Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name Response.AddHeader "Content-Length", intFilelength Response.CharSet = "UTF-8" Response.ContentType = "application/octet-stream" Response.BinaryWrite s.Read Response.Flush s.Close Set s = Nothing End Function
以上所述就是本文给大家分享的函数了,希望对大家学习asp能够有所帮助。
相关文章
P3P 和 跨域 (cross-domain) cookie 访问(读取和设置)
在IE 里面跨域去设置 cookie跨域的实现,尝试了n中方法都不行,查了一下资料,可以通过设置header中的p3p值来实现,真不错:)2009-06-06asp中response.write(''中文'')或者js中文乱码问题
这篇文章主要介绍了asp中response.write('中文')或者js中文乱码问题,有时候我们需要输出js也会出现乱码,这里给出了几个解决方法,需要的朋友可以参考下2020-03-03
最新评论