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 :
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 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 " & 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)
si quelqu'un a une idée...merci d'avance pour votre aide
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
Partager