Tutorial aspsmartupload (pour aider ceux qui comme moi n'ont pas trouvé ailleurs)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 26 428 fois - Téléchargée 35 fois

Contenu du snippet

Explique comment se servir du composant AspSmartUpload, composant gratuit qui permet d'up des fichiers sur votre serveur, copiez la source ci-dessous dans le fichier index.asp et lancez le a partir de votre serveur.

L'installation du composant ASPSmartUpload s'effectue selon les étapes suivantes :

Télécharger les fichiers sur le site de ASPSmart
(http://www.aspsmart.com/scripts/download/downloadfree.asp?product=aspSmartUpload&L=FR).

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 .

Source / Exemple :


<%@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>

Conclusion :


si vous avez des questions n'hésitez pas

A voir également

Ajouter un commentaire

Commentaires

hafsamir32
Messages postés
6
Date d'inscription
jeudi 17 février 2005
Statut
Membre
Dernière intervention
8 mars 2010
-
Bonjour,

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
batssakuru
Messages postés
5
Date d'inscription
vendredi 10 août 2007
Statut
Membre
Dernière intervention
11 janvier 2010
-
Daft Dwarf
Messages postés
11
Date d'inscription
mardi 10 juillet 2007
Statut
Membre
Dernière intervention
25 janvier 2012
-
Bonjour à tous!
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.
cyirc
Messages postés
1
Date d'inscription
jeudi 15 mars 2007
Statut
Membre
Dernière intervention
15 mars 2007
-
Imposible de télécharger ASPSmart. Es ce que quelqu'un peut le metre sur son site web svp.
ghosterbox
Messages postés
1
Date d'inscription
mardi 2 mars 2004
Statut
Membre
Dernière intervention
20 octobre 2006
-
j'ai fait ceci :
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.