Bonjour à tous,
j'ai un problème lors de l'upload de mes fichiers. Jusque là ça se passait très bien mais quand j'ai mis en place le test sur le répertoire cible des fichiers plus rien...ce qui m'embete le plus c'est que la page d'erreur c'est "impossible d'afficher la page .... Impossible de trouver le serveur ou
erreur DNS dans Internet Explorer " alors que je suis en local .

voici mon form :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Response.Write "         <form name=""upload_cmd"" method=""POST"" action=""upload.asp"" enctype=""multipart/form-data"">" & chr(10)
Response.Write "            <tr> " & chr(10)
Response.Write "              <td CLASS=""entetebleu_16"" colspan=""3"">" & chr(10)
Response.Write "                Bon de livraison" & chr(10)
Response.Write "                <input type=""hidden"" name=""Num_cmd"" id=""Num_cmd"">" & chr(10)
Response.Write "                <input type=""file"" name=""fic_BL"" size=""20""><br>" & chr(10)
Response.Write "                Facture &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & chr(10)
Response.Write "                <input type=""file"" name=""fic_fac"" size=""20""><br>" & chr(10)
Response.Write "                <input type=""submit"" value=""uploader"" name=""action"" CLASS=""bouton"" onmouseover=""javascript:this.className='bouton_On'"" onmouseout=""javascript:this.className='bouton'"" onclick=""javascript:this.className='bouton_Cl';alert('***'+document.upload_cmd.Num_cmd.value+'***');return verif_upload();"">" & chr(10)
Response.Write "              </td>" & chr(10)
Response.Write "           </tr> " & chr(10)
Response.Write "         </form>" & chr(10)
et voici le fichier upload.asp

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Response.expires=0
Response.buffer=true
 
Dim mySmartUpload
Dim file
Dim fso
 
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
 
fold="../upload/" & mySmartUpload.Form("Num_cmd")
' Test du répertoire
If Not fso.FolderExists(fold) Then
	 ' Creation du repertoire
	 Set f=fso.CreateFolder(fold)	 
End If
 
' Taille maximale autorisée : 750 Ko
mySmartUpload.MaxFileSize = 750000
 
' Upload autorisé sur les pdf uniquement
mySmartUpload.AllowedFilesList = "pdf"
 
' Début de l'Upload
mySmartUpload.Upload
' Selectionne chaque fichier
For each file In mySmartUpload.Files
    ' Seulement si le fichier existe
    If not file.IsMissing Then
    	 fichier= fold & file.FileName
    	 ' Verification de l'existance du fichier
    	 If fso.FileExists(fichier) Then
          Response.Write "<script language=""javascript"">" & chr(10)
          Response.Write "  alert('Ce fichier existe déjà. Si vous devez l\'ajouter, il vous faudra le renommer.');" & chr(10)
          Response.Write "</script>" & chr(10)          
       Else
       	  ' Upload du fichier
          file.SaveAs(fichier)       
       End If
    End If
Next
 
Set mySmartUpload=nothing
Set fso=Nothing
si quelqu'un a une idée...merci d'avance pour votre aide