ASP

AspSmartUpload

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : AspSmartUpload

Azsch

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

Publicité

Flyman30

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

Code :

On Error Resume Next
' Variables
' *********
Dim mySmartUpload
Dim file
Dim intCount
intCount=0
' Création de l'Objet
' *******************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload" )
' Autorise uniquement des images gif, jpg ou png
' **********************************************
mySmartUpload.AllowedFilesList = "gif,jpg,png"
' On peut aussi utiliser DeniedFilesList :
' Autorise tous les fichiers sauf: exe, bat et asp
' ************************************************
mySmartUpload.DeniedFilesList = "exe,bat,asp,txt"
' Interdit le path physique
' **************************
mySmartUpload.DenyPhysicalPath = True
' N'autorise que des images plus petites que 200000 bytes
' *******************************************************
mySmartUpload.MaxFileSize = 200000
' Interdit l'upload si le total des images est plus grand que 800000 bytes
' ************************************************************************
mySmartUpload.TotalMaxFileSize = 800000
' Upload
' ******
mySmartUpload.Upload
' Sélectionne chaque image
' ************************
For each file In mySmartUpload.Files
' Seulement si l'image existe
' ***************************
If not file.IsMissing Then
' Sauvegarde l'image sous sont nom original avec un path virtuel sur le serveur web
' *********************************************************************************
file.SaveAs("../Photos/" & file.FileName)
' Affiche les propriétés de l'image courante
' ******************************************
Response.Write("Nom = " & file.FileName & "     " & "Taille = " & file.Size & "    Octets" & "" )
intCount = intCount + 1
End If
Next
' Trap errors
' ***********
If Err Then
Response.Write("Erreur de fichiers vous ne pouvez uploader que des images : recommencez !" & Err.description)
Else
' Affiche le nombre d'images uploadées
' ************************************
Response.Write("<hr />" & intCount & " image(s) uploadée(s)." )
End If
%>

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

Azsch

Merci.

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

Azsch

FORUM HardWare.fr

Programmation

ASP

AspSmartUpload

Sujets relatifs
Aspsmartupload	ASPSmartUpload :qqun connait ?
Plus de sujets relatifs à : AspSmartUpload

Page générée en 0.083 secondes