Discussion :

[julio_097]

Bonjour ..
je souhaite mettre en place un formulaire permettant d'uploader des fichier sur le serveur. Normalement d'apres la documentation qui m'a été fournis, le composant aspSmartUpload est installé sur le serveur mais je n'ai pas pu en avoir confirmation car l'admin est partis en vacances ..

bon voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
set MyUp = Server.CreateObject("aspSmartUpload.SmartUpload")
MyUp.MaxFileSize = 5000
MyUp.AllowedFilesList = "gif"
MyUp.Upload
for each file in MyUp.Files
   if not file.IsMissing then
      dir=Server.MapPath("\" & file.FileName & "." & file.FileExt)
      file.SaveAs(dir)
      intCount = intCount + 1
   end if
next
 
if err then
   response.write err.description
end if
 
'recup infos fichier
for each file in MyUp.Files
   response.write ("nom : " & file.FileName & "<br>")
   response.write ("taille : " & file.Size & "<br>")
   response.write ("type : " & file.ContentType & "<br>")
next
 
set MyUp = Nothing

J'ai limité au fichier gif pour faire les tests
mon erreur est la suivante :

Unable to save file (Error 1120)

J'ai essayé plusieurs facon pour écrire le chemin d'accès mais rien n'y fait ..
Quelqu'un pourrait il me renseigner svp ..?
Merci ..

[Pymm]

Es-tu sûr d'avoir les bons droits sur le répertoire ?

[philippe123]

je te mets un code qui marche; il faut trier un peu...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
MaDate = now
 
function TransformDate(temp)
	TransformDate = mid(temp,7,4)+mid(temp,4,2)+mid(temp,1,2)+"_"+replace(mid(temp,12,8),":","")&"_"
end function
 
Set Objet_SmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
Objet_SmartUpload.Upload
 
For each item In Objet_SmartUpload.Form
   For each value In Objet_SmartUpload.Form(item)
      IF item = "Commentaires" THEN 
         Commentaires = Server.UrlEncode(value)
      elseif item = "Titre" THEN 
	 Titre = Server.UrlEncode(value)
      end if
   next
next 
 
For each Fichier In Objet_SmartUpload.Files
   If not Fichier.IsMissing Then
      MonFichier = Fichier.FileName
      MonFichierDate = TransformDate(MaDate)&Fichier.FileName
      Fichier.SaveAs("Docs/" & MonFichierDate)
   End If
Next

faut rajouter les droits d'acces au dossier docs

il faut enregistrer la dll auusi
ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

regsvr32 d:\SmartXUpload\aspsmartupload.dll