AspSmartUpload

AspSmartUpload - ASP - Programmation

Marsh Posté le 04-04-2005 à 15:40:13    

Bonjour,
 
Je suis en train de mettre en place un module d'upload de fichiers mais reste bloqué sur un élément.
 
Tout marche parfaitement ... sauf les restrictions.
 
Je voudrais interdire un certain nombre de fichiers (.exe, .asp etc...) ainsi que les fichiers de plus de 20 Mo.
 
Voisi mon code :
 
On Error Resume Next
 
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload" )
mySmartUpload.DeniedFilesList = "exe,bat,asp"
mySmartUpload.MaxFileSize = 100
mySmartUpload.Upload
if err = -2147220399 then response.Write("Votre fichier est trop volumineux. La limite maximale autorisée est de 20 Mo" )
 
Aucune erreur et aucune restriction ne s'applique c'est comme si la ligne 2 et 3 n'étaient pas écrites.
 
Au'scours   :pt1cable:  
 
Azsch

Reply

Marsh Posté le 04-04-2005 à 15:40:13   

Reply

Marsh Posté le 04-04-2005 à 18:56:32    

Je fait ça pour l'upload de photo, adapte  ;)  
 

Code :
  1. On Error Resume Next
  3. '  Variables
  4. '  *********
  6.    Dim mySmartUpload
  7.    Dim file
  8.    Dim intCount
  9.    intCount=0
  10.        
  11. '  Création de l'Objet
  12. '  *******************
  14.    Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload" )
  15.  
  16. '  Autorise uniquement des images gif, jpg ou png
  17. '  **********************************************
  19.    mySmartUpload.AllowedFilesList = "gif,jpg,png"
  21. '  On peut aussi utiliser DeniedFilesList :
  22.    ' Autorise tous les fichiers sauf: exe, bat et asp
  23.    ' ************************************************
  24.  
  25.    mySmartUpload.DeniedFilesList = "exe,bat,asp,txt"
  27. '  Interdit le  path physique
  28. '  **************************
  30.    mySmartUpload.DenyPhysicalPath = True
  32. '  N'autorise que des images plus petites que 200000 bytes
  33. '  *******************************************************
  35.    mySmartUpload.MaxFileSize = 200000
  37. '  Interdit l'upload si le total des images est plus grand que 800000 bytes
  38. '  ************************************************************************
  40.    mySmartUpload.TotalMaxFileSize = 800000
  42. '  Upload
  43. '  ******
  45.    mySmartUpload.Upload
  47. '  Sélectionne chaque image
  48. '  ************************
  50.    For each file In mySmartUpload.Files
  51.  
  52.    '  Seulement si l'image existe
  53.    '  ***************************
  54.  
  55.       If not file.IsMissing Then
  56.      
  57.       '  Sauvegarde l'image sous sont nom original avec un path virtuel sur le serveur web
  58.       '  *********************************************************************************
  59.      
  60.          file.SaveAs("../Photos/" & file.FileName)
  61.        
  62.   '  Affiche les propriétés de l'image courante
  63.       '  ******************************************
  64.      
  65.      Response.Write("<p>Nom = " & file.FileName & "&nbsp; &nbsp; &nbsp;" & "Taille = " & file.Size & "&nbsp; &nbsp; Octets" & "</p>" )
  66.          intCount = intCount + 1
  67.       End If
  68.    Next
  69.  
  70. '  Trap errors
  71. '  ***********
  72.    
  73. If Err Then
  74.       Response.Write("<b>Erreur de fichiers vous ne pouvez uploader que des images : recommencez !</b>" & Err.description)
  75.    Else
  76.  
  77.    '  Affiche le nombre d'images uploadées
  78.    '  ************************************
  79.  
  80.       Response.Write("<hr /><p>" & intCount & " image(s) uploadée(s).</p>" )
  81.    End If
  83. %>


---------------
planuldep | Association pêche à la Sempé
Reply

Marsh Posté le 07-04-2005 à 16:41:37    

Merci.
 
En fait le problème venait d'un condition au-dessus ...
 
Azsch

Reply

Sujets relatifs:

Leave a Replay

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