ASP实现强制图片下载函数

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

function downloadFile（strFile）strFilename = server.MapPath（strFile） Response.Buffer = TrueResponse.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） thenResponse.Write（"<h1>Error:</h1>" & strFilename & " does not exist<p>"）Response.Endend if Set f = fso.GetFile（strFilename）intFilelength = f.size s.LoadFromFile（strFilename）if err thenResponse.Write（"<h1>Error: </h1>" & err.Description & "<p>"）Response.Endend if Response.AddHeader "Content-Disposition", "attachment; filename=" & f.nameResponse.AddHeader "Content-Length", intFilelengthResponse.CharSet = "UTF-8"Response.ContentType = "application/octet-stream" Response.BinaryWrite s.ReadResponse.Flush s.CloseSet s = NothingEnd Function

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