Le titre est un peu déroutant. Aujourd'hui, le groupe parle de cette question. La réponse est ci-jointe. Les amis qui en ont besoin peuvent s'y référer.
Question : Je souhaite modifier le nom d'un fichier lors de son téléchargement, puis modifier à nouveau le nom lors du téléchargement.
Par exemple : j'ai téléchargé un "Ma photo.jpg" et je l'ai remplacé par le nom du système "20040302001.jpg" après le téléchargement, puis je l'ai rechangé en "Ma photo.jpg" lors du téléchargement.
La base de données est utilisée pour sauvegarder les anciens et nouveaux noms de fichiers (déjà fait)
C'est juste que je ne peux pas changer le nom lors du téléchargement.
Code:
Copiez le code comme suit :
<%
fonction dl(f,n)
en cas d'erreur, reprendre ensuite
Définir S=CreateObject( "Adodb.Stream")
Mode S=3
S.Type=1
S.Ouvert
S.LoadFromFile(f)
si Err.Number> 0 alors
Réponse.Status = "404"
autre
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition:", "attachment; filename= " & n
Range=Mid(Request.ServerVariables( "HTTP_RANGE "),7)
si Range= " " alors
Réponse.BinaryWrite(S.Read)
autre
S.position=Clng(Split(Range, "- ")(0))
Réponse.BinaryWrite(S.Read)
Terminer si
finir si
Réponse.Fin
fonction de fin
%>
Exemple d'utilisation de fonction :
Copiez le code comme suit :
appelez dl(Server.MapPath( "download/20040302001.jpg "), "Mes Photos.jpg ")