| Das Folgende ist das Codefragment: <% 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. |
<A href = "doublead.asp? Dateiname =/files/my.doc"> Klicken Sie, um Word -Dokument herunterzuladen </a>