ASP实现强制图片下载函数

2020-06-20 14:01:22

字体：大中小

来源：转载

供稿：网友

图片不进行处理，图片默认是用浏览器打开显示，如果希望图片变为下载可以使用以下代码

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 = NothingEnd Function

以上所述就是本文给大家分享的函数了，希望对大家学习asp能够有所帮助。

您可能感兴趣的文章:

ASP 时间函数及如何获取服务器时间的写法Asp Split函数之使用多个分割符的方法asp与js的类型转换函数介绍asp中的Rnd 函数ASP转换格林威治时间函数DateDiff()应用ASP移动文件函数movefile权限不足的替代方法ASP中实现的URLEncode、URLDecode自定义函数asp实现获取MSSQL数据库表指定条件行数的函数asp中实现清除html的函数asp实现截取字符串函数ASP函数大全解析

上一篇：Excel连接字符串中的HDR、IMEX参数详解

下一篇：ASP获取数据库表名、库名、字段名的方法

学习交流

robots.txt详细介绍

robots.txt详细介绍...

热门图片

猜你喜欢的新闻

猜你喜欢的关注