News Contents
信息中心

ASP實現強制圖片下載函數

發表日期:2020/3/3      瀏覽次數:

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


盛大建站承接個人、公司、企業的網站建設、網頁設計、網店制作、獨立商城制作、外貿網站制作,也承接同行介紹的業務,歡迎聯系!
本站承接主要業務如下:
1、提供免備案虛擬主機(網站空間),有獨立國內服務器、高速美國服務器、香港服務器、韓國服務器、日本服務器,>> http://www.fuanxx.com
2、網站建設:個人網店制作、企業建站、公司網站、新聞、下載等;論壇、博客網站搭建,承接外貿英文站制作
3、承接阿里巴巴、京東、淘寶、天貓等的商品數據采集
4、網站防釣魚,可以過360、QQ、搜狗、金山、微信攔截
5、要就發IP網站限制訪問系統,防止同行抄襲并保障海外客戶訪問不受影響,>> http://www.198ip.com
  下一篇:沒有了!
十年如一日,我們專注于提供高品質 定制網站建設服務!
您的信任,我們的責任,期待與您的合作!
广西11选5技巧