主页 > 知识库 > 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 existp>")
        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能够有所帮助。

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

标签:汕头 抚州 海南 鹤岗 攀枝花 唐山 佛山 揭阳

巨人网络通讯声明:本文标题《ASP实现强制图片下载函数》,本文关键词  ASP,实现,强制,图片下载,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《ASP实现强制图片下载函数》相关的同类信息!
  • 本页收集关于ASP实现强制图片下载函数的相关信息资讯供网民参考!
  • 推荐文章