|
<%
Option Explicit
Dim upl, NewFileName
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
If Len(upl.Form("File1")) > 0 Then
NewFileName = "/Uploads/" & upl.ExtractFileName(upl.Form("File1"))
If upl.SaveToWeb("File1", NewFileName) Then
Response.Write("File successfully written to disk.")
Else
Response.Write("Il y eus une erreur pour enregister le fichier")
End If
End If
%>
<html><head><title>ASP Simple Upload Exemple
#1</title></head></title>
<body>
<form method="POST" action="Exemple1.Asp"
enctype="multipart/form-data">
Selectionnez le fichier à uploader: <input type="file"
name="File1" size="30">
<input type="submit" name="submit" value="Valider">
</form>
</body>
</html>
|
Hebergement
Objet:
