ASP实现强制图片下载函数

最近做的一个asp项目需要强制下载图片,我在网上找了很多关于下载远程图片的ASP代码，但测试结果都不行。没办法只好自己操刀了，有什么纰漏的地方还请大家指出。

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

1. functiondownloadFile(strFile)
2. strFilename=server.MapPath(strFile)
4. Response.Buffer=True
5. Response.Clear
7. Sets=Server.CreateObject(ADODB.Stream)
8. s.Open
10. s.Type=1
12. onerrorresumenext
14. Setfso=Server.CreateObject(Scripting.FileSystemObject)
15. ifnotfso.FileExists(strFilename)then
16. Response.Write(<h1>Error:</h1>&strFilename&doesnotexist<p>)
17. Response.End
18. endif
20. Setf=fso.GetFile(strFilename)
21. intFilelength=f.size
23. s.LoadFromFile(strFilename)
24. iferrthen
25. Response.Write(<h1>Error:</h1>&err.Description&<p>)
26. Response.End
27. endif
29. Response.AddHeaderContent-Disposition,attachment;filename=&f.name
30. Response.AddHeaderContent-Length,intFilelength
31. Response.CharSet=UTF-8
32. Response.ContentType=application/octet-stream
34. Response.BinaryWrites.Read
35. Response.Flush
37. s.Close
38. Sets=Nothing
39. EndFunction

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