[Debutant] Passage d'informations

**Jibees** · 04/04/2006, 10h19

Bonjour,
Je souhaite, en fonction du bouton coché, transmettre l'info à la page qui sera appelée lors du submitt.
Voila mes boutons :

Code :

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

1
2
<input type="radio" id="R_act" name="R_act" value="1">Activer le bandeau<br>
<input type="radio" id="R_act" name="R_act" value="0">Desactiver le bandeau<br><br>

Voila mon bouton submitt :

Code :

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

<form enctype="multipart/form-data" method="post" action="uploadBandeauConf.asp?num=" + <%=Request.form("radio")%> id="form1" name="form1">

Pour récupérer sur la page uploadBandeauConf.asp je compte sur :

Code :

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

action = cint(request("num"))

J'ai bon ? A priori non puisque cela ne fonctionne pas ...
merci,
jb

**Crazyblinkgirl** · 04/04/2006, 10h25

Dans ton form, tu fais :

Code :

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

1
2
3
4
5
6
7
8
<form enctype="multipart/form-data" method="post" action="uploadBandeauConf.asp" id="form1" name="form1">  
 
  <input type="radio" id="R_act" name="R_act" value="1">Activer le bandeau<br> 
  <input type="radio" id="R_act" name="R_act" value="0">Desactiver le bandeau<br><br> 
 
......
 
</form>

Et sur ta page uploadBandeauConf, tu n'as plus qu'a récupérer les valeurs :

Code :

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

 radio = Request.form("R_act")

**Jibees** · 04/04/2006, 10h55

Le passage d'info est automatique ?
En tout cas comme ca cela ne fonctionne toujours pas chez moi, je n'ai pas de valeur dans la variable radio ...

**Crazyblinkgirl** · 04/04/2006, 10h59

Montres ta page complète stp

**Jibees** · 04/04/2006, 11h02

Alors la page uploadBandeau.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
<%@ Language=VBScript %>
<%Option Explicit%>
<!--#include file="./base.inc"-->
<!--#include file="./secure.inc"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<html>
<head>
<meta http-equiv="Pragma" content="no-cache">
<link href="../../Style.css" rel="Stylesheet" type="text/css">
</head> 
<body bgcolor="#FFFFFF">
<p align="center">
<b><a class="MenuTitreAccueil"><font size="4" face="Arial" color="#4650aa">
<img border="0" src="../../images/Lettrines/M.gif">odifier le bandeau
</font></a><b>
</p>
<br><br>
<div align="center">
 
<form enctype="multipart/form-data" method="post" action="uploadBandeauConf.asp" id="form1" name="form1">
<input type="radio" id="R_act" name="R_act" value="1">Activer le bandeau<br>
<input type="radio" id="R_act" name="R_act" value="0">Desactiver le bandeau<br><br>
<table BORDER="0" CELLSPACING="1" CELLPADDING="0">
		<tr>
		<td>
		<input type="file" name="f_1" size="20">
		</td>
 
	</tr>
	</table>
<br>
<input type="submit" id="submit1" name="submit1">
</form>
</div>
<br>
</body>
</html>

et la page uploadBandeauConf.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
46
47
48
49
50
51
<%@ Language=VBScript %>
<%Option Explicit%>
<!--#include file="./base.inc"-->
<!--#include file="./secure.inc"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<html>
<head>
<meta http-equiv="Pragma" content="no-cache">
<link href="../../Style.css" rel="Stylesheet" type="text/css">
</head> 
<body bgcolor="#FFFFFF">
<p align="center">
<b><a class="MenuTitreAccueil"><font size="4" face="Arial" color="#4650aa">
<img border="0" src="../../images/Lettrines/A.gif">jout du bandeau : </font></a><b>
</p>
<br><br>
<%
Server.ScriptTimeout = 1800
Session.TimeOut=40
dim fp1, nomfic, pos, upl, action, radio
radio = Request.form("R_act")
%> Radio = <%=radio%><%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
IF radio = 1 then
	%> <p> Transfert de fichier </p> <%
	IF (upl.Form("f_1").UserFilename<>"") THEN
		upl.Form("f_1").SaveAs "XXX\Upload\Bandeau\bandeau.gif"
	end if
else 
	%> <p> Suppression du bandeau </p> <%
	upl.Delete
END IF
 
'Set FSO = Server.CreateObject("Scripting.FileSystemObject")
'nom_fich = "bandeau.gif"
'chemin_fichier = Server.MapPath(nom_fich)
' 
'If FSO.FileExists(chemin_fichier) Then
'  message="le fichier existe bien sur le serveur" + radio
'Else
'  message="ce fichier n'existe pas!"
'End If
'
'Set FSO = Nothing 
%>
 
<div align="center">
</div>
<br>
</body>
</html>

**Crazyblinkgirl** · 04/04/2006, 11h06

Désolée, je n'ai pas fait attention à enctype="multipart/form-data"

Tu utilises quel composant pour l'upload?

**Jibees** · 04/04/2006, 11h08

Envoyé par Crazyblinkgirl

Désolée, je n'ai pas fait attention à enctype="multipart/form-data"

Oui donc ? J'ai pas tout compris la ...

Envoyé par Crazyblinkgirl

Tu utilises quel composant pour l'upload?

FileUp

Conclusion chef ?

**Crazyblinkgirl** · 04/04/2006, 11h18

Je ne connais pas (j'utilise aspsmartupload) mais en cherchant sur le net, j'ai trouvé ca (j'ai pris la version 4 de l'outil) :

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
'--- Use a For Each loop to iterate through all of the items in the Form collection
    For Each formItem In oFileUpEE.Form
        Response.Write("<TR>")
 
        '--- Each formItem has a Name and Value property
        Response.Write("<TD><B>" & formItem.Name & "</B></TD>")
 
 
 
        '--- If the Value property is an object, that means it's a subcollection--
        '--- a form element with multiple values like checkboxes or multi-selects
        '--- In this case the Value property itself is a collection and you need to loop
        '--- again
        '--- Note: Always use this IsObject() test! If you Response.Write formItem.Value
        '--- and it's a multi-select subcollection instead of a single text value, it will cause
        '--- a type-mismatch error!
        If IsObject(formItem.Value) Then
            Response.Write("<TD>")
 
            i = 1
            '--- It's a multiselect
            '--- Loop through the Value collection, it has multiple values within
            For Each subItem In formItem.Value
                Response.Write(i & ": " & subItem.Value & "<BR>")
                i = i + 1
            Next
            Response.Write("</TD>")
 
        Else
            '--- If the Value property isn't an object, it's just a single
            '--- value, so write it out here
            Response.Write("<TD>" & formItem.Value & "</TD>")           
        End If
        Response.Write("</TR>")
    Next

URL :http://support.softartisans.com/File...es_samples.asp

J'espère que cela t'aidera

**Jibees** · 04/04/2006, 11h21

Le truc c'est que je ne vois vraiment pas le rapport avec upload .... Je veux juste transmettre le récultat d'un choix utilisateur via un bouton radio d'une page (uploadBandeau.asp) à une autre (uploadBandeauConf.asp). Et ceci afin de faire un test sur cette valeur ... Donc le rapport avec FileUp je l'ai pas la ...

**Crazyblinkgirl** · 04/04/2006, 11h24

Ben tu as un champ file, tu récupères donc un fichier :

Code :

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

 upl.Form("f_1").SaveAs "XXX\Upload\Bandeau\bandeau.gif"

Du coup, tu ne peux pas faire un simple request("nomchamp") pour récupérer les champs texte, à cause de enctype="multipart/form-data"

**Jibees** · 04/04/2006, 11h35

ah bon ... ok tres bien.
Donc le lien que tu me donnes doit m'aider ?
Je vais m'y pencher dessus alors ...

[Debutant] Passage d'informations

ASP

Vue hybride

Discussions similaires

Partager

Partager