[ASP 3.0] Upload des fichiers binaires sur le serveur

Upload des fichiers binaires sur le serveur [ASP 3.0] - ASP - Programmation

Marsh Posté le 13-05-2004 à 10:49:17    

Bah voila je cherche a uploader une image sur le serveur...
Apres qq recherche j'ai trouvé cette methode:

Code :
  1. <form method="post" enctype="multipart/form-data" action="NC-Upload.asp">
  2. <table width="98%" align="center" class="txt_paragraphe" cellpadding="0" cellspacing="0">
  3. <tr><td bgcolor="#7FC97F" class="titre">Procédure de mise en place des images sur le serveur Web</td></tr>
  4. </table>
  5. <table width="98%" align="center" class="txt_paragraphe">
  6. <tr><td>Pour permettre aux images intégrées dans les pages des partenaires de s'afficher, sélectionnez les images grâce au bouton "Parcourir..." puis cliquez sur "Placer les images"</td></tr>
  7. </table>
  8. <br><br>
  9. <table width="98%" align="center" class="txt_paragraphe">
  10. <tr><td colspan="2"></td></tr>
  11. <tr><td width="50%" align="center"><input type="file" name="FileTO" size="50" class="submitVert"></td><td width="50%"><input type="submit" name="Enter" value="Placer les images" class="submitVert"></td></tr>
  12. </table>
  13. </form>


 
Ca c'est le formulaire...
pi il y a le fichier NC-upload.asp qui est détaillé ici
http://www.netalya.com/fr/Article2.asp?CLE=73
 
Alors le probleme c'est que ca marche mais pas correctement... le fichier a l arrivé est corrompu ... je crois que c'est dû a un dépassement du buffer...
 
 
QQ a une autre methode ou un moyen de resoudre le probleme ?

Reply

Marsh Posté le 13-05-2004 à 10:49:17   

Reply

Marsh Posté le 13-05-2004 à 11:13:36    

Reply

Marsh Posté le 13-05-2004 à 16:47:23    

euhhh ca marche comment ca ?
Dim Objet_SmartUpload
Dim Fichier
Set Objet_SmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload" )
mySmartUpload.MaxFileSize = 10240 '10 Ko
Objet_SmartUpload.Upload
 
et le nom de mon fichier je le stipule ou?
je comprends pas son:
For each Fichier In Objet_SmartUpload.Files
 If not Fichier.IsMissing Then
  Fichier.SaveAs("/img_eve/" & Fichier.Filename)
  NameFile=Fichier.Filename
 End If
Next

Reply

Marsh Posté le 17-05-2004 à 14:11:55    

Bah voila tout compte fait, je vais faire mon truc a moi, et qui repond a mes contraites.
J'ai trouvé des sources qui me parraisse correctes, mais elles sont un peu trop avancées pour moi a mon niveau! :pt1cable:  
 
J'ai besoins de quelqu'un pour éclairé ma route  :(  
 
bon voila mon formulaire pour l'instant:
input type:  text
input type:  text
input type:  text
input type:  file
input type:  text
input type:  submit
 
Le file en question est une image de format png, gif, ou png et de 100x100 de pixels, enfin elle ne doit pas dépasser 10Ko
 
Voici les sources que j'essai de comprend :/
http://excalibursworld.free.fr/asp [...] ichier.asp
http://excalibursworld.free.fr/asp [...] plFich.asp
 
Et voici ce que j'essai de faire...
 
http://excalibursworld.free.fr/asp [...] upload.asp
http://excalibursworld.free.fr/asp/exca/upload.asp
Le probleme c'est que je connais pas le principe (et souvent l'utilité des fonctions VB), alors pour comprendre l'algo :/
 
/*Allez je me motiv'*/   [:buvons]


Message édité par !cricri le 17-05-2004 à 14:35:07
Reply

Marsh Posté le 17-05-2004 à 15:36:28    

http://forum.hardware.fr/images/perso/yoyoz.gif

Reply

Marsh Posté le 18-05-2004 à 08:42:55    

http://forum.hardware.fr/images/perso/yoyoz.gif

Reply

Marsh Posté le 18-05-2004 à 09:23:40    

A l'aide ça me dépasse

Reply

Marsh Posté le 18-05-2004 à 11:40:15    

arg :/
Apparemment on ne peut pas faire un readBinary puis un request.form (et vis versa).... c'est quoi ce délire ?


Message édité par !cricri le 18-05-2004 à 11:40:45
Reply

Marsh Posté le 18-05-2004 à 16:10:18    

Houla tu aimes te compliquer la vie  :D  
 
Utilise SmartUpload il fait ce que tu veut  ;)  
 
Le form :
 

Code :
  1. h2>Uploader des Photos</h2>
  2. <div class="centre"><p class="TextGras">Vous ne pouvez uploader que des photos en <font color="#FF0000">jpg</font> pour le trombi</div>
  3. <p>&nbsp;</p>
  4. <form method="post" action="upload-phot.asp" enctype="multipart/form-data" ID="Form1">
  5. <input type="file" name="FILE1" size="60"><br />
  6. <input type="file" name="FILE2" size="60"><br />
  7. <input type="file" name="FILE3" size="60"><br />
  8. <input type="file" name="FILE4" size="60"><br />
  9. <input type="SUBMIT" value="Upload-phot" id="Submit1" name="Submit1">
  10. </form>


 
 
Le fichier asp

Code :
  1. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  2. <% @LANGUAGE="VBSCRIPT" CODEPAGE="1252" %>
  4. <html>
  5. <head>
  6.  <title>Test</title>
  7.  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
  8.  <link rel="stylesheet" type="text/css" href="Defaut.css" media="screen"></link>
  9. </head>
  11. <body>
  13. <h2>Images uploadées</H2>
  14. <hr />
  15.    
  16. <%
  17. On Error Resume Next
  19. '  Variables
  20. '  *********
  22.    Dim mySmartUpload
  23.    Dim file
  24.    Dim intCount
  25.    intCount=0
  26.        
  27. '  Création de l'Objet
  28. '  *******************
  30.    Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload" )
  31.  
  32. '  Autorise uniquement des images gif, jpg ou png
  33. '  **********************************************
  35.    mySmartUpload.AllowedFilesList = "gif,jpg,png"
  37. '  On peut aussi utiliser DeniedFilesList :
  38.    ' Autorise tous les fichiers sauf: exe, bat et asp
  39.    ' ************************************************
  40.  
  41.    mySmartUpload.DeniedFilesList = "exe,bat,asp,txt"
  43. '  Interdit le  path physique
  44. '  **************************
  46.    mySmartUpload.DenyPhysicalPath = True
  48. '  N'autorise que des images plus petites que 200000 bytes
  49. '  *******************************************************
  51.    mySmartUpload.MaxFileSize = 200000
  53. '  Interdit l'upload si le total des images est plus grand que 800000 bytes
  54. '  ************************************************************************
  56.    mySmartUpload.TotalMaxFileSize = 800000
  58. '  Upload
  59. '  ******
  61.    mySmartUpload.Upload
  63. '  Sélectionne chaque image
  64. '  ************************
  66.    For each file In mySmartUpload.Files
  67.  
  68.    '  Seulement si l'image existe
  69.    '  ***************************
  70.  
  71.       If not file.IsMissing Then
  72.      
  73.       '  Sauvegarde l'image sous sont nom original avec un path virtuel sur le serveur web
  74.       '  *********************************************************************************
  75.      
  76.          file.SaveAs("../Photos/" & file.FileName)
  77.        
  78.   '  Affiche les propriétés de l'image courante
  79.       '  ******************************************
  80.      
  81.      Response.Write("<p>Nom = " & file.FileName & "&nbsp; &nbsp; &nbsp;" & "Taille = " & file.Size & "&nbsp; &nbsp; Octets" & "</p>" )
  82.          intCount = intCount + 1
  83.       End If
  84.    Next
  85.  
  86. '  Trap errors
  87. '  ***********
  88.    
  89. If Err Then
  90.       Response.Write("<b>Erreur de fichiers vous ne pouvez uploader que des images : recommencez !</b>" & Err.description)
  91.    Else
  92.  
  93.    '  Affiche le nombre d'images uploadées
  94.    '  ************************************
  95.  
  96.       Response.Write("<hr /><p>" & intCount & " image(s) uploadée(s).</p>" )
  97.    End If
  99. %>
  100. <p>&nbsp;</p>
  102. <a href="up_phot.asp">Retour à l'upload d'images</a>
  103. </body>
  104. </html>


 

Reply

Marsh Posté le 18-05-2004 à 17:21:57    

oui merci Flyman30 (quoi d'hab tu m'aides) mais je voulais le faire moi meme le module...
Enfin je me suis resigné a le faire avec smartUpload.. qui marche bien sur mais bon! c'est moins glorieu et moins pédagogue

Reply

Marsh Posté le 18-05-2004 à 17:21:57   

Reply

Marsh Posté le 18-05-2004 à 18:34:18    

3xc4l18ur a écrit :

oui merci Flyman30 (quoi d'hab tu m'aides) mais je voulais le faire moi meme le module...
Enfin je me suis resigné a le faire avec smartUpload.. qui marche bien sur mais bon! c'est moins glorieu et moins pédagogue


 
D'accord mais à quoi bon réinventer la roue à chaque fois  ;)

Reply

Marsh Posté le 19-05-2004 à 08:38:54    

bah juste pour le "je sais le faire!"

Reply

Marsh Posté le 19-05-2004 à 10:21:26    

3xc4l18ur a écrit :

bah juste pour le "je sais le faire!"

:jap:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed