ASP实现强制图片下载函数
图片不进行处理,图片默认是用浏览器打开显示,如果希望图片变为下载可以使用以下代码
functiondownloadFile(strFile) strFilename=server.MapPath(strFile) Response.Buffer=True Response.Clear Sets=Server.CreateObject("ADODB.Stream") s.Open s.Type=1 onerrorresumenext Setfso=Server.CreateObject("Scripting.FileSystemObject") ifnotfso.FileExists(strFilename)then Response.Write("<h1>Error:</h1>"&strFilename&"doesnotexist<p>") Response.End endif Setf=fso.GetFile(strFilename) intFilelength=f.size s.LoadFromFile(strFilename) iferrthen Response.Write("<h1>Error:</h1>"&err.Description&"<p>") Response.End endif Response.AddHeader"Content-Disposition","attachment;filename="&f.name Response.AddHeader"Content-Length",intFilelength Response.CharSet="UTF-8" Response.ContentType="application/octet-stream" Response.BinaryWrites.Read Response.Flush s.Close Sets=Nothing EndFunction
以上所述就是本文给大家分享的函数了,希望对大家学习asp能够有所帮助。