Installation du composant

Avant de pouvoir utiliser AspSmartUpload, il faut installer le composant. Le fichier zipper que vous allez télécharger contient 2 dll : AspSmartUpload.dll et AspSmartUploadUtil.dll. Ces deux fichiers sont au préalable à placer dans le répertoire windows\system (windows 9x) ou winnt\system32 (Windows NT) de votre serveur.
Seul AspSmartUpload.dll a besoin d'être installer dans le registre, le second contenant des fonctions appelées par le premier.

Faire démarrer|Exécuter puis regsvr32 aspsmartupload.dll
Une fois que tout ceci est fait vous êtes prêt à utiliser ce composant.

Utilisation du composant et tests

Parmis ces nombreuses propriétés, Il est possible entre autre de limiter la taille des fichiers à télécharger, de contrôler leur extension et de n'uploader que les *.gif et *.jpg.
Grâce à la méthode On error resume next vous pourrez contrôler les erreurs éventuelles survenues.

Sélectionner un fichier sur votre disque dur

Pour la sélection du fichier initial (sur votre disque dur), nous utiliserons un champ de formulaire particulier file : compréhensible par Netsace et IE. Le formulaire utilise une méthode POST, et les données sont envoyées au fichier upload.asp sous une forme binaire (ceci explique la raison de enctype="multipart/form-data")

<form method="POST" action="upload.asp" enctype="multipart/form-data">
<input type="file" name="file1" size="20">
<input type="submit" value="uploader" name="action">
</form>

Le fichier upload.asp

Ce fichier va traîter les données binaires soumises.

Contenu du fichier upload.asp

<%
response.expires=0
response.buffer=true
' Gérer les erreur
On error resume next
' Variables

' *********
Dim mySmartUpload
Dim file
Dim intCount 'Numéro correspondant au nombre de fichiers à uploader
intCount=0' Création de l'Objet

' ********************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")' Taille maximale autorisée : 5 Ko

' *****************************
mySmartUpload.MaxFileSize = 5000' Upload autorisé sur les gif et jpg uniquement

' ***************************************************
mySmartUpload.AllowedFilesList = "gif,jpg"' Début de l'Upload

' *********************
mySmartUpload.Upload' Selectionne chaque fichier
' **************************For each file In mySmartUpload.Files' Seulement si le fichier existe
' ******************************

If not file.IsMissing Then

' Upload du fichier
'********************
fichier="/fr/upload/image/" &session.sessionID&"."& file.FileExt
file.SaveAs(fichier)
' Le fichier est uploader dans le répertoire Image (qui doit être créé au préalable) et porte le nom de votre numéro de session
intCount = intCount + 1
End If
NextSet mySmartUpload=nothing'Si aucune erreur s'est produite on redirige vers uploadok.asp
'sinon on revient sur la première page
'*************************************************
if err.number =0 then
direc= "uploadok.asp?fichier="&fichier
else
direc="default.asp?msg=Une erreur s'est produite, réessayez"
end if
response.redirect direc
%>

Le fichier uploadok.asp

Le fichier de confirmation affiche l'image que vous avez uploadée.

<img src="<%=request(fichier)%>">

Editeur

http://www.advantys.fr