On utilise un formulaire permettant de choisir les fichiers à uploader.
<HTML>
<BODY>
<!-- Ne pas oublier : ENCTYPE="multipart/form-data" sinon l'upload ne s'effectuera pas! -->
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="aspsmartupload.asp">
<INPUT TYPE="FILE" NAME="userfile">
<INPUT TYPE=SUBMIT VALUE="Upload!">
</FORM>
</BODY>
</HTML>
Le nom des fichiers à uploader est posté à la page "aspsmartupload.asp" qui effectuera l'upload.
Page aspsmartupload.asp :
<HTML>
<BODY>
<%
On Error Resume Next
' Variables
Dim mySmartUpload
Dim intCount
' Création de l'objet
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Seuls les fichiers .htm, .txt et .gif sont autorisés
mySmartUpload.AllowedFilesList = "htm,txt,gif"
' On peut également refuser certains types de fichiers (ici les .exe, .bat et .php)
mySmartUpload.DeniedFilesList = "exe,bat,php"
' N'accepte que les fichiers inférieurs à 50000 octets
mySmartUpload.MaxFileSize = 50000
' Upload refusé si la taille totale des fichiers 200000 octets
mySmartUpload.TotalMaxFileSize = 200000
' Upload
mySmartUpload.Upload
' Sauvegarde des fichiers avec leur nom original dans un dossier virtuel du serveur web
intCount = mySmartUpload.Save("/upload")
' Gestion des erreurs
If Err Then
Response.Write("<b>Erreur :</b> " & Err.description)
Else
' Affiche le nombre de fichiers uploadés
Response.Write(intCount & " fichiers(s) uploadés.")
For each file In mySmartUpload.Files %>
<BR>Nom : <%=file.FileName%>
<BR>Taille : <%=file.Size%> octets
<BR>Type : <%=file.ContentType%>
<%Next
End If
' Destruction de l'objet
Set mySmartUpload = nothing
%>
<!-- On affiche le nombre de fichiers uploadés -->
<% = Count %> fichiers uploadés!.
</BODY>
</HTML>
|
|
|
| Retour |
|
|
