Probleme de formulaire d'upload

**Oberown** · 26/10/2004, 10h29

J'ai un formulaire, qui me permet d'uploader un fichier, et de prendre des parametres.
Or si mon fichier est non valide, mon champs nom n'affiche rien avec le response.write, si le fichier est vide ou valide ca affiche.
Je voudrais même si mon fichier est non valide pouvoir l'afficher.

Mon formulaire

Code :

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

1
2
3
4
5
<form name="upload" method="post" action="upload.asp" enctype="multipart/form-data">
<input type="submit" name="ok" value="ok">
<input type="file"  name="fichier">
<input type="text" name="nom">
</form>

Et voici le fichier qui s'occupe de l'upload (qui ne fait pas encore l'upload)

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
Response.Buffer = true
' Gérer les erreurs
On error resume next
 
' Variables
Dim mySmartUpload
Dim file
 
 
' Création de l'Objet
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
 
' Taille maximale autorisée : 200ko
limite	= 204800000
extValide	= "jpg,jpeg,gif,png,zip"
mySmartUpload.MaxFileSize		= limite
mySmartUpload.AllowedFilesList	= extValide
 
'  Début de l'Upload
mySmartUpload.Upload
 
 
For each item In mySmartUpload.Form
	For each value In mySmartUpload.Form(item)
		if item<>"fichier" then execute (item&"=replace(value,""'"",""''"")")
	Next
Next
 
response.write nom '<----C'est lui qui affiche

Je pense que mon problème vient d'ici, car si mon fichier n'est pas valide il ne continue pas la boucle.

Code :

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

1
2
3
4
5
6
7
8
mySmartUpload.Upload
 
 
For each item In mySmartUpload.Form
	For each value In mySmartUpload.Form(item)
		if item<>"fichier" then execute (item&"=replace(value,""'"",""''"")")
	Next
Next

**Immobilis** · 26/10/2004, 10h55

J'ai aussi des pb d'upload avec smartupload.
La fonction download fonctionne bien. Pourtant je reçoit systematiquement une erreur "http 500" de la part du serveur, même en faisant un copié collé des exemples de code.

**franculo_caoulene** · 26/10/2004, 11h00

Immobilis : Je veux pas dévier du sujet mais pour tes erreurs 500 dans IE/Outils/Options Internet...
Onglet "Avancé" décocher "Afficher les messages d'erreur HTTP simplifiés"

Oberown : Pure tentative hasardeuse. Si tu mets ton response.write avant ton filtre sur le type de fichier que se passe-t-il?

**Oberown** · 26/10/2004, 11h06

Yes ca marche !
J'ai mis les contraintes apres le foreach !!!

**Immobilis** · 26/10/2004, 13h06

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
<HTML>
<BODY>
    <FORM method="get" ENCTYPE="multipart/form-data" ACTION="aspupload.asp?MYPARAM=test">
    <INPUT TYPE="TEXT" NAME="MYTEXT">
    <INPUT TYPE="FILE" NAME="MYFILE">
    <INPUT TYPE="SUBMIT">
    </FORM>
</BODY>
<HTML>

aspupload.asp:

Code :

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

1
2
3
4
5
6
 
<%
Set myUpload = Server.CreateObject("aspSmartUpload.SmartUpload") 
myUpload.Upload("MYFILE")
myUpload.Form("MYTEXT") 
%>

Erreur:

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'myUpload.Upload'

/test/aspupload.asp, line 3

Merci

**Oberown** · 26/10/2004, 14h00

Test en mettant ça
<%
Set myUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
myUpload.Upload
%>

Sinon des exemples http://www.aspsmart.com/scripts/aspSmartUpload/publigen/content/templates/show.asp?P=258&L=EN

Probleme de formulaire d'upload

ASP

Discussions similaires

Partager

Partager