Klicken Sie hier, um PDF und andere Dateien herunterzuladen, anstatt im Browser zu öffnen

<%

Dunkler Stream

Dunkler Inhalt

Dimer Filname

Dimer Dateiext

Const adypebinary = 1

Dateiname = Request.queryString ("Dateiname")

Wenn Dateiname = "" dann

Antwort.Write "Invfort -Dateiname".

Antwort.end

Ende wenn

'Unten ist eine Datei, die ich nicht herunterladen möchte

Filext = Mid (Dateiname, Instrrev (Dateiname, ".") 1)

Wählen Sie Case uCase (Fileext)

Fall "ASP", "Asa", "Aspx", "Asax", "Mdb"

Antwort.Write "Schutzdateien, kann nicht heruntergeladen werden."

Antwort.end

Ende auswählen

'Laden Sie diese Datei herunter

Antwort.Clear

Antwort.ContentType = "Anwendung/Oktett-Stream"

Response.addHeader "Inhaltsdisposition", "Anhang; Dateiname =" & Dateiname

Setzen Sie Stream = Server.createObject ("adodb.stream")

Stream.type = adypebinary

Stream.open

Stream.loadfromFile server.mappath (Dateiname)

Während nicht stream.eos

Response.binarywrite stream.read (1024 * 64)

Wend

Stream.close

Setzen Sie Stream = nichts

Antwort.Flush

Antwort.end

%>

Verwenden: Download.asp?

Setzen Sie Ihre DOC -Datei in die Root -Verzeichnisdateien, Sie können sie auch an anderer Stelle setzen.