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