Der Titel ist etwas verwirrend. Heute spricht die Gruppe über diese Frage. Freunde, die sie benötigen, können darauf verweisen.
Frage: Ich möchte den Namen einer Datei beim Hochladen ändern und den Namen dann beim Herunterladen wieder ändern.
Beispiel: Ich habe ein „Mein Foto.jpg“ hochgeladen und es nach dem Hochladen in den Systemnamen „20040302001.jpg“ geändert und es dann beim Herunterladen wieder in „Mein Foto.jpg“ geändert.
Die Datenbank dient zum Speichern des alten und neuen Dateinamens (bereits erledigt)
Es ist nur so, dass ich den Namen beim Herunterladen nicht ändern kann.
Code:
Kopieren Sie den Codecode wie folgt:
<%
Funktion dl(f,n)
Bei Fehler als nächstes fortfahren
Setze S=CreateObject( "Adodb.Stream")
S.Mode=3
S.Typ=1
S.Offen
S.LoadFromFile(f)
wenn Err.Number> 0 dann
Response.Status= "404 "
anders
Response.ContentType= „application/octet-stream“
Response.AddHeader „Content-Disposition:“, „attachment; filename=“ & n
Range=Mid(Request.ServerVariables( "HTTP_RANGE"),7)
if Range= " " dann
Response.BinaryWrite(S.Read)
anders
S.position=Clng(Split(Range, "- ")(0))
Response.BinaryWrite(S.Read)
Beenden Sie, wenn
Ende wenn
Antwort.Ende
Endfunktion
%>
Beispiel für die Funktionsverwendung:
Kopieren Sie den Codecode wie folgt:
call dl(Server.MapPath( "download/20040302001.jpg"), "My Photos.jpg")