Ein aktuelles ASP -Projekt erfordert erzwungene Download von Bildern. Ich habe keine andere Wahl, als es selbst zu tun.
Das Bild wird nicht verarbeitet.
- FunctionDownloadfile (strFile)
- strfilename = server.mappath (strFile)
- Response.buffer = true
- Antwort.Clear
- Sets = server.createObject (adodb.stream)
- S.Open
- s.type = 1
- onErrorresumeNext
- Setfso = server.createObject (scripting.filesystemObject)
- ifnotfso.FileExists (strFileName) dann
- Response.write (<h1> Fehler: </h1> & strFileName & doTnotexist <p>)
- Antwort.end
- Endif
- Setf = fso.getFile (strFileName)
- intfilelength = f.size
- S. loadfromFile (Strfilename)
- Isterrthen
- Response.write (<h1> Fehler: </h1> & err.description & <p>)
- Antwort.end
- Endif
- Response.addheadecontent-Disposition, Anhang; Dateiname = & F.Name
- Response.addheadecontent-Länge, intfilelength
- Antwort.CharSet = UTF-8
- Antwort.ContentType = Application/Octett-Stream
- Response.binarywrites.read
- Antwort.Flush
- S.CLOSE
- Setzt = nichts
- Endfunktion
Die oben genannte Funktion, die in diesem Artikel geteilt wird.