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

Commenter

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

S'inscrire maintenant

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.

Du même auteur (ranouf)