Speichern Sie einfach die Datei unten als Download.asp und übertragen Sie die herunterzuladende Datei dann nach Bedarf. Format: Download.asp?FileName=Der Name der herunterzuladenden Datei
Kopieren Sie den Codecode wie folgt:
Schwacher Stream
Inhalte abdunkeln
Dateiname dimmen
FileExt dimmen
Const adTypeBinary = 1
FileName = Request.QueryString(FileName)
if FileName = Then
Response.Write Ungültiger Dateiname.
Antwort.Ende
Beenden Sie, wenn
„Die folgenden Dateien möchten Sie nicht herunterladen.“
FileExt = Mid(FileName, InStrRev(FileName, .) + 1)
Fall auswählen UCase(FileExt)
Fall ASP, ASA, ASPX, ASAX, MDB
Response.Write ist eine geschützte Datei und kann nicht heruntergeladen werden.
Antwort.Ende
Endauswahl
„Laden Sie diese Datei herunter
Antwort.Klar
Response.ContentType = application/octet-stream
Response.AddHeader content-disposition, attachment filename= & FileName;
Setze Stream = server.CreateObject(ADODB.Stream)
Stream.Type = adTypeBinary
Stream.Öffnen
Stream.LoadFromFile Server.MapPath(FileName)
Während nicht Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Schließen
Stellen Sie Stream = Nichts ein
Response.Flush
Antwort.Ende