ASP mengimplementasikan fungsi unduhan gambar paksa

Proyek ASP baru -baru ini yang telah saya lakukan memerlukan pengunduhan gambar yang dipaksakan. Saya tidak punya pilihan selain melakukannya sendiri.

Gambar tidak diproses.

1. FunctionDownLoadFile (Strfile)
2. strfilename = server.mappath (strfile)
4. Response.buffer = true
5. Respons.clear
7. Set = server.createObject (adodb.stream)
8. s.open
10. S.Type = 1
12. OnerrorresumeNext
14. SetFSO = server.CreateObject (scripting.filesystemObject)
15. IFNOTFSO.FileExists (Strfilename) lalu
16. Response.write (<h1> kesalahan: </h1> & strfileName & doNotexist <p>)
17. Respons.end
18. endif
20. Setf = fso.getFile (strfileName)
21. intfilelength = f.Size
23. S.LoadFromFile (Strfilename)
24. iferrthen
25. Response.write (<h1> kesalahan: </h1> & err.description & <p>)
26. Respons.end
27. endif
29. Response.addheadercontent-disposition, lampiran; fileName = & f.name
30. Response.addheadercontent-length, intfilelength
31. Response.charset = UTF-8
32. Response.contentType = Aplikasi/Octet-Stream
34. Response.binarywrites.read
35. Response.flush
37. s.close
38. Set = tidak ada
39. Fungsi endfungsi

Di atas adalah fungsi yang dibagikan oleh artikel ini.