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能夠有所幫助。