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