图片不进行处理,图片默认是用浏览器打开显示,如果希望图片变为下载可以使用以下代码
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
|