Pb de taile de fichier

Signaler
Messages postés
26
Date d'inscription
lundi 20 octobre 2003
Statut
Membre
Dernière intervention
23 juillet 2010
-
Messages postés
26
Date d'inscription
lundi 20 octobre 2003
Statut
Membre
Dernière intervention
23 juillet 2010
-
Bonjour à tous, je précise que je suis débutant en ASP!
mon problème est le suivant :
j'ai une page qui permet d'afficher toutes les informations d'un produit issu de la base ACCESS. (Photos + caractéristiques techniques). Jusque là pas de problèmes.
En revanche, je voudrais que lorsque pour le produit sélectionné, sa notice ou une mise à jour sont disponibles, alors vérifier dans le dossier MAJ qu'il y en a une et afficher un lien pour la télécharger. Idem pour les notices...

Cela fonctionne mais uniquement pour des fichiers inférieurs ou égals à 5Mo.
Y a t il une solution à ce problème?


 


Merci pour vos réponses


 


Ci-dessous : le code pour la 1ère page


<%file= rsArt("RéfProd")
     Set FSO7 = Server.CreateObject("Scripting.FileSystemObject")
     if FSO7.FileExists(chemin + "asp\fichiers\Notices\m"+ file +".pdf") then
     fiche = "m" + file + ".pdf"
   %>
   <center>[fichiers/Notices/telechargement.asp?fichier=<%=fiche%> ->>Notice d'utilisation disponible ]
</center>
<%end if%>

Code la page telechargement.asp
<%
    Dim Stream
    Dim ContenuFichier
    Dim NomFichier
  
    NomFichier = request("fichier")
  if trim(NomFichier)<>"" then
   Response.ContentType = "application/octet-stream"
   Response.AddHeader "content-disposition", "attachment; filename=" & NomFichier
   Set Stream = server.CreateObject("ADODB.Stream")
   Stream.Open
   Stream.LoadFromFile Server.MapPath(NomFichier)
   ContenuFichier = Stream.ReadText
   Response.BinaryWrite ContenuFichier
   Stream.Close
   Set Stream = Nothing
  end if
%>

Merci encore pour votre aide!

[8D]

2 réponses

Messages postés
26
Date d'inscription
lundi 20 octobre 2003
Statut
Membre
Dernière intervention
23 juillet 2010

RE,

après beaucoupe de recherches, je n'ai malheursement trouvé aucune information.
Y a t-il possibilité de définir une taille maximale de fichier? Si non, comment faire faire réaliser la fonction désirée?

Merci pour votre aide.
Messages postés
26
Date d'inscription
lundi 20 octobre 2003
Statut
Membre
Dernière intervention
23 juillet 2010

Bonjour à tous,

je n'ai malheureusement pas trouvé sur internet de solution à mon problème ou même de réponses!
Toutefois, j'ai trouvé une alternative. J'ai renommé et compressé mes fichiers avec l'extension .zip, comme ça, dès qu'un fichier est disponible, le lien l'est aussi et il n'y a plus de problème de taille.

Ci-dessous : le code modifié de la page

<%file=rsArt("RéfProd")
     Set FSO7 = Server.CreateObject("Scripting.FileSystemObject")
     if FSO7.FileExists(chemin + "asp\fichiers\Notices\m"+ file +".zip") then
     fiche = "m" + file + ".zip"
   %>
   <center>[fichiers/Notices/<%=fiche%> ->>Notice d'utilisation disponible]
</center>
<%end if%>

j'ai mis ce code pour ceux qui comme moi cherché une solution à ce problème!

Merci