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 406 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

ranouf
Messages postés
237
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
31 août 2009
-
c moi qui ai dait ça je m'en souvenais plus !!! ça va m"etre de nouvo util merci moi
cs_kclaude
Messages postés
6
Date d'inscription
dimanche 24 avril 2005
Statut
Membre
Dernière intervention
13 juin 2005
-
Ranouf relis toi avant de poster par pitier :x
Romain_cim
Messages postés
11
Date d'inscription
lundi 24 mai 2004
Statut
Membre
Dernière intervention
4 février 2009
-
Bonjour,

Est-ce que quelqu'un a déja essayer de trouver une méthode pour uploader un répertoire entier? Sur la page de saisie on sélectionnerait un répertoire de l'arborescence et, à la validation, les fichiers de ce répertoire seraient uploadés.

Merci
cs_epink
Messages postés
1
Date d'inscription
lundi 27 mars 2006
Statut
Membre
Dernière intervention
27 mars 2006
-
j'ai pas trop compris comment ca marchait .... enfin la pour l'instant ca marche en local sur mon pc mais moi ce que je voudrai c'est uploader sur un serveur distant... Est-ce possible ? merci d'avance....
ranouf
Messages postés
237
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
31 août 2009
-
slt EPINK, si ton serveur a ce composant installé oui c possible. Qui plus est renseignes toi pour savoir si un dossier est prévu à cet effet, car il faut que tu es les droits d'écriture sur le dossier pour l'utilisateur du serveur web.

En gros tu tests, si ça marche pas t'appelles ton fournisseur et tu lui demandes de l'installer

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.