ASP (HTML) : Arbre

**lediz** · 26/11/2009, 12h27

Bonjour,

J'aimerais construire un "arbre" dans ma page HTML
avec le résultat d'une requête dans une base de donnée
(-->par la suite, j'en aurai bizen entendu plusieurs...)

Pouvez-vous m'aider ?

Merci Bonne journée.

**sNOOtch** · 26/11/2009, 14h17

Tu cherches à faire un arbre des pages présentes sur ton site?

**roro06** · 26/11/2009, 17h28

Bonjour

Ta question est un peu floue ...

**E.Bzz** · 27/11/2009, 10h27

Bonjour,

Envoyé par lediz

J'aimerais construire un "arbre" dans ma page HTML avec le résultat d'une requête dans une base de donnée

il serait intéressant de préciser la base de donnée utilisée.
Certaines (Oracle par exemple) peuvent faire 90% du boulot directement dans la requête d'extraction, pour peu que les tables soient correctement structurées (gestion de la relation père/fils) ...

A+

**lediz** · 30/11/2009, 10h07

Voilà, je reviens vers vous...
j'ai bien avancé de mon côté

je vous résumé la situation :
je crée un arbre (comme Explorer) qui est le résulat de plusieurs "QUERY"
Chaque "Branche" est le résulat d'un query en DB(pour le moment 2)

Mais j'ai un soucis en ce qui concerne "le passage" de paramètre entre mes pages...plus précisement au clic sur mon "image", j'aimerais avoir la valeur correspondate pour l'utiliser dans le query de la page appellée.
car la "WHERE CLAUSE" de cette page doit en tenir compte

Voici ce que j'aimerais faire, par rapport au code ci dessous :

Conserver en mémoire,ou passer ne paramètre la valeur de "sous_fonction" qui correspond à l'image cliquée
Et ce, pour l'utiliser dans le code de mon QUERY dans ma page "P2.asp"

-1- Voici le code de ma 1ere page de base (P1.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
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML XMLNS:IE>
<head>
<title></title>
<style>IMG {behavior: url(insert_P.htc);}</style>
</head>
<body >
<%
dim dos1_ouvre,dos1_ferme
dos1_ouvre="icones/png/dos1_ouvre.png"
dos1_ferme="icones/png/dos1_ferme.png"
 
dim P_USER_NAME
P_USER_NAME="ODI"  'pour mes tests actuels'
 
dim my_SousFonction
my_SousFonction=""
 
Dim conn2,rs
Set conn2 = Server.CreateObject("ADODB.Connection")
conn2.Open "PROVIDER=MSDASQL;dsn=appli_proxima;uid=;pwd=;"
 
sql = "SELECT  sous_fonction FROM user_sousfonction where user='"+P_USER_NAME+"' order by sous_fonction asc"
 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn2, 3, 3
If Not rs.eof Then
	rs.MoveFirst
	On Error Resume Next
	Do while Not rs.eof
		my_SousFonction=rs("sous_fonction")
		rs.MoveNext
 
%>
<ul>
<img src="<%=dos1_ferme%>" alt="livre" style="cursor:pointer;" class="close" </img>
<left><font face=arial color=black size=2><%=my_SousFonction%></font></left>
<ul imgopen="<%=dos1_ouvre%>" imgclose="<%=dos1_ferme%>" loaded="0" style="display: none;" ></ul>
</ul>
<%
    Loop
    End If
    rs.close 
    Set rs=Nothing 
    conn2.close 
    Set conn2=Nothing 
 
%>
</body>
</html>

-2- Voici le code chargé au clic de l'image (insert_P.htc)

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
 
<Public:component XMLNS:IE>
<public:attach EVENT="onclick" ONEVENT="onload()" />
</Public:component>
 
<IE:Download ID="oDownload" STYLE="behavior:url(#default#download)" />
 
<script language="JavaScript" type="text/javascript">
 
//récupère l'image cliquée
var imgTag = element;
 
//Récupère l'élément résultat contenu dans l'image cliquée
var ulTag = element.parentElement.getElementsByTagName("ul")[0];
 
function onDownloadDone(s) {
	imgTag.src = ulTag.imgopen;
	imgTag.className = "open";
	ulTag.innerHTML=s;
	ulTag.loaded="1";
	ulTag.style.display = "block";
	runtimeStyle.cursor = "hand";
}
//
//  onload est appelée par un click sur un element image
//  (Cf le mapping onClick<->onLoad() de la troisieme ligne du script)
//
function onload() {
	//si le résultat n'est pas chargé et vide.
	if (ulTag.loaded=="0") {
		runtimeStyle.cursor = "wait";
		oDownload.startDownload('P2.asp',onDownloadDone);
	}
	else {
		if (imgTag.className=="close") {
			imgTag.src = ulTag.imgopen;
			imgTag.className = "open";
			ulTag.style.display = "block";
		}
		else {
			imgTag.src = ulTag.imgclose;
			imgTag.className = "close";
			ulTag.style.display = "none";
		}
	}
}
</script>

-3- Voici le code de la 2eme page/("branche") : affichée au clic (P2.asp)
NB : c'est la variable "SESS_sousfonction" qui devrait contenir la bonne valeur ! (Initialisée ici à "001" pour mes tests)

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
 
<HTML>
<head>
</head>
<body >
<%
 
dim SESS_sousfonction
SESS_sousfonction="001" 'pour mes tests actuels'
 
dim my_Article
my_Article=""
 
Dim conn2,rs
Set conn2 = Server.CreateObject("ADODB.Connection")
conn2.Open "PROVIDER=MSDASQL;dsn=appli_proxima;uid=;pwd=;"
sql = "SELECT  article FROM sousfonction_article where sous_fonction='"+SESS_sousfonction+"' order by  article asc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn2, 3, 3
If Not rs.eof Then
	rs.MoveFirst
	On Error Resume Next
	Do while Not rs.eof
		my_Article=rs("article")
		rs.MoveNext
 
%>
 
<left><font face=arial color=black size=2><%=my_Article%></font></left>
 
<%
    Loop
    End If
    rs.close 
    Set rs=Nothing 
    conn2.close 
    Set conn2=Nothing 
%>
</body>
</html>

Pouvez-vous m'aider ? Merci

ASP (HTML) : Arbre

ASP

Vue hybride

Discussions similaires

Partager

Partager