Poser une question

Re: SAfileup - fonctionne

Salut,

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

Aucune réponse à ce message...