ASP implementiert Zwangsbild -Downloadfunktion

Ein aktuelles ASP -Projekt erfordert erzwungene Download von Bildern. Ich habe keine andere Wahl, als es selbst zu tun.

Das Bild wird nicht verarbeitet.

1. FunctionDownloadfile (strFile)
2. strfilename = server.mappath (strFile)
4. Response.buffer = true
5. Antwort.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) dann
16. Response.write (<h1> Fehler: </h1> & strFileName & doTnotexist <p>)
17. Antwort.end
18. Endif
20. Setf = fso.getFile (strFileName)
21. intfilelength = f.size
23. S. loadfromFile (Strfilename)
24. Isterrthen
25. Response.write (<h1> Fehler: </h1> & err.description & <p>)
26. Antwort.end
27. Endif
29. Response.addheadecontent-Disposition, Anhang; Dateiname = & F.Name
30. Response.addheadecontent-Länge, intfilelength
31. Antwort.CharSet = UTF-8
32. Antwort.ContentType = Application/Octett-Stream
34. Response.binarywrites.read
35. Antwort.Flush
37. S.CLOSE
38. Setzt = nichts
39. Endfunktion

Die oben genannte Funktion, die in diesem Artikel geteilt wird.