cs_syl62
Messages postés26Date d'inscriptionlundi 20 octobre 2003StatutMembreDernière intervention23 juillet 2010
-
11 nov. 2006 à 17:01
cs_syl62
Messages postés26Date d'inscriptionlundi 20 octobre 2003StatutMembreDernière intervention23 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
%>
cs_syl62
Messages postés26Date d'inscriptionlundi 20 octobre 2003StatutMembreDernière intervention23 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?
cs_syl62
Messages postés26Date d'inscriptionlundi 20 octobre 2003StatutMembreDernière intervention23 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!