Forum de discussion
Forum « Programmation ASP » (archives)
Re: SAfileup - fonctionne
Envoyé: 11 octobre 2003, 8h55 par Oznog
Rien ne presse et d'ailleurs les sujet "urgent" passe après les autres et même le landemain!
Il va très bien ton code, à part quelques ajustement, tu as un "upl.Save" en partant avant le test "if empty"! Et ton ElseIf n'est pas valide an VBScript. Alors si tu as le droit de faire des "upload" et que le répertoire l'autorise tout devrait fonctionner.
Voilà le code :
<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = "d:\inetpub\immontreal.com\temp\"
if upl.IsEmpty Then
Response.Write "<font color=red><b>Erreur de transfert:</b></font>"
Response.Write "Le fichier que vous essayez de transférer est vide (0 Octets).<br>"
Response.Write "Vous avez probablement sélectionné un mauvais fichier.<br><br>"
Response.Write "<a href=fileup1.asp>Retour au formulaire de transfert</a><br>"
Else
if upl.ContentDisposition <> "form-data" Then
Response.Write "<font color=red><b>Erreur de transfert:</b></font> Votre navigateur ne semble pas supporter le transfert de fichiers.<br>"
Else
upl.Save
end if
If Err <> 0 Then
Response.Write "<br><font size=3 COLOR=red><b>Erreur de sauvegarde:</b></font>"
Response.Write "Un problème est survenu lors de la sauvegarde du fichier.<br>"
Response.Write "Causes possibles:"
Response.Write " Nom de fichier incorect."
Response.Write " Les droits du répertoire (NTFS) ne vous accorde pas le droit de sauvegarder des fichiers"
Response.Write "<br>"
Else
Response.Write "Le fichier a été <font color=green>SAUVEGARDÉ</font> sur " & upl.ServerName & ".<br>"
Response.Write "<br>" & VbCr
Response.Write "Fichier: " & upl.UserFilename & "<br>" & VbCr
Response.Write "Taille: " & upl.TotalBytes & " bytes<br>" & VbCr
Response.Write "Type de contenu: " & upl.ContentType & "<br>" & VbCr
Response.Write "Disposition du contenu: " & upl.ContentDisposition & "<br>" & VbCr
Response.Write "Version du MIME: " & upl.MimeVersion & "<br>" & VbCr
Response.Write "Encodage du transfert: " & upl.ContentTransferEncoding & "<br>" & VbCr
End If
End If
Set upl=Nothing
%>
Ciao
Oznog
Réponses
|