Soyez le premier à donner votre avis sur cette source.
Snippet vu 26 772 fois - Téléchargée 35 fois
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Document sans titre</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% '------------------------------------------------------------ Public sub UploaderFichier(mySmartUpload, strAdresse) '------------------------------------------------------------ '--- upload fichier a une adresse donnée '------------------------------------------------------------ Dim Fichier Dim strAdr On error resume next'si erreur on continue quand meme 'mySmartUpload.MaxFileSize = 5000' Taille maximale autorisée : 5 Ko 'mySmartUpload.AllowedFilesList = "gif,jpg"' Upload autorisé sur les gif et jpg uniquement mySmartUpload.Upload' Selectionne chaque fichier For each Fichier In mySmartUpload.files If not Fichier.IsMissing Then strAdr=strAdresse & Fichier.FileName Fichier.SaveAs(strAdr)' Upload du fichier End If Next if err.number =0 then 'test si erreur direc= "<img src="""& strAdr & """><br>"'si pas erreur alors on affichera l'image dl else direc="une erreur c produite : "& strAdr &"<br>"'si erreur alors on affiche l'erreur end if response.Write(direc) End sub if request.queryString("Action")="Upload" then response.expires=0 'ça je sais pas response.buffer=true'ça je sais pas non plus On error resume next' Gérer les erreur ' Variables Dim mySmartUpload 'ce qui permet d'up le fichier Dim strAdr 'Adresse du fichier Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")' Création de l'Objet strAdr=Server.MapPath("\Tests\Upload\")'à changer pour installer ou vous le voulez '--- Upload les fichiers à l'adresse strAdr UploaderFichier mySmartUpload, strAdr set mySmartUpload=nothing'Si aucune erreur s'est produite on redirige vers uploadok.asp End if %> <form method="POST" action="index.asp?action=Upload" enctype="multipart/form-data"> <input type="file" name="Fichier1" size="20"><br> <input type="submit" value="uploader" name="action"> </form> </body> </html>
Mon but est d'interdir d'uploader des fichiers comme "exe, bat, ...",. Pour cela, j'ai insrérer les deux codes suivants :
MonUPLOAD.AllowedFilesList = "jpg,jpeg,gif,png" ' (ici : images uniquement)
MonUPLOAD.DeniedFilesList = "bat,exe,com,asp,php,pdf,txt,doc,xls"
Résultat : Ca marche pas, les fichiers de type : "exe, ..." peuvent toujours être uploader !
Merci
http://www.codigofonte.com.br/download/componentes/asp/aspsmartupload
Voilà j'essaye d'utiliser AspSmart mais je rencontre une difficulté, en remlaçant le champs texte par un champs file et en enregistrant le résultat dans un champ hidden, j'arrive à récupérer la bonne adresse physique de l'image à uploader (qui se trouve sur mon disque dur). Le problème, c'est qu'il ne trouve pas le fichier, il m'affiche une erreur "File Not Found error 1030".
Je pense que c'est parce que le "oSmartImg.openFile cstr(strPictureName)" s'effectue à partir du répertoire où se trouve le fichier upload.asp
Quelqu'un peut-il me dire comment faire pour que l'OpenFile cherche sur mon disque dur et non dans son répertoire svp? Parce que j'ai cherché de longues heures sur internet et je ne trouve pas de solution à mon problème.
Merci d'avance.
Décompresser le fichier ZIP.
Copier les fichiers DLL dans le répertoire C:\WINNT\SYSTEM32.
Exécuter à partir de l'invite MS-DOS
REGSVR32.EXE C:\WINNT\SYSTEM32\aspSmartUpload.dll .
Quand je clique sur "uploader", ca affiche une erreur sur la page web "Impossible d'afficher la page". Faut-il faire qq chose en plus des DLL? merci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.