Pb de taile de fichier

cs_syl62 Messages postés 26 Date d'inscription lundi 20 octobre 2003 Statut Membre Dernière intervention 23 juillet 2010 - 11 nov. 2006 à 17:01
cs_syl62 Messages postés 26 Date d'inscription lundi 20 octobre 2003 Statut Membre Dernière intervention 23 juillet 2010 - 26 nov. 2006 à 20:33
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

cs_syl62 Messages postés 26 Date d'inscription lundi 20 octobre 2003 Statut Membre Dernière intervention 23 juillet 2010
12 nov. 2006 à 13:04
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.
0
cs_syl62 Messages postés 26 Date d'inscription lundi 20 octobre 2003 Statut Membre Dernière intervention 23 juillet 2010
26 nov. 2006 à 20:33
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
0
Rejoignez-nous