CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 04 22:29:39

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

SOMME DANS TEXTBOX par benamb

RE : SELECTIONNER UN éLEMENT UNIQUE DANS UNE DROPDOWNLIST par ggtry

MVC PROBLEME VIEWDATA / BEGINFORM par WiDOC

RE : LIGHTVIEW ET "INCULDE FILE" par Darktruff

LIGHTVIEW ET "INCULDE FILE" par Darktruff

+ de logiciels à télécharger

1 464 433 membres
329 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 098 codes, 1 302 890 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

GÉNÉRATION D'UN MENU EN XML

Information sur la source

Catégorie :XML Niveau : Initié Date de création : 07/05/2002 Date de mise à jour : 07/05/2002 18:02:13 Vu / téléchargé: 8 937 / 1 012

Auteur : Skyride

Ecrire un message privé

Note :

7,80 / 10

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Voilà un petit code pour ceux qui souhaitent s'initier de plus bel avec les fichiers XML.

- Vous devez dans un premier temps créer une application virtuelle via le IIS.
- Les rubriques des menus ainsi que leur lien doivent être déclarées dans le fichier admin.xml

Pour le reste, aventurez vous dans le code qui n'est pas compliqué du tout...

Source

Tout est dans le zip !!!!!

Tout est dans le zip !!!!!

Conclusion

Comme d'habitude, si vous avez des améliorations à apporter à mon code, n'hésitez pas, je suis à votre écoute...

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

admin.xml 431 octets
DEFAULT.ASP 492 octets
GLOBAL.ASA 807 octets
menu.asp 395 octets
page2.asp 492 octets
page3.asp 492 octets
page4.asp 492 octets
page5.asp 492 octets

Télécharger le zip

Sources du même auteur

COMPOSANT ASPMAIL PILOTÉ VIA SQL SERVER

LISTER LES DOSSIERS D'UN RÉPERTOIRE

LISTER LES FICHIERS D'UN RÉPERTOIRE

INFORMATIONS D'UN FICHIER

GÉNÉRER UN DOCUMENT HTML À PARTIR DE DONNÉES CONTENUES DANS ...

Toutes les sources de Skyride

Sources de la même categorie

AJOUTER UN NOEUD DANS UN FICHIER XML DÉJÀ EXISTANT par pkzip

BASE DE DONNÉ BDD VERS XML : CONVERSION D'UN RECORDSET VERS ... par pifou25

GÉNÉRATION D'UN XML À PARTIR D'UNE BDD ACCESS par fabienfs

LECTEUR DE FLUX RSS OBJET par Yoyo2B

TRANSFORMATION XSLT POUR OBTENIR DU CODE XTML VALIDE À INTÉG... par saizonou

Toutes les sources de la catégorie XML

Commentaires et avis

Commentaire de Mercury le 07/05/2002 17:35:53

Heu, y a pas de zip.

Commentaire de Slashgo le 06/10/2002 15:22:56

Franchement bien, enfin quelqun qui pense au XML

Commentaire de jaszbere le 04/05/2003 03:52:38

C'est merveilleuxparcequeutile lexmltoncode mais ca donne une error:
Type mismatch: 'UBound'
/menuXML/menu.asp, line 6
Comment on peut regler ca?
Merci!
Fl

Commentaire de Frank339 le 18/10/2003 20:47:33

Pareil que jaszbere... :-(

Commentaire de Jackboy le 12/01/2007 20:11:45

Plus simple et on ne doit pas connaitre à l'avance le nombre de noeud du xml

<%@ Language=VBScript %>
<html>

<body leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="center"> </td>
</tr>
<tr>
<td colspan="2">
<%
strFileXml = Server.MapPath("admin.xml")

Set objXML = Server.CreateObject("MSXML2.DOMDocument")

objXML.load(strFileXml)

Set objMenu = objXML.documentElement.selectSingleNode("menu")

Set objRubNom = objMenu.getElementsByTagName("nom")
Set objRubUrl = objMenu.getElementsByTagName("url")

Dim Nom, Url

For ind01=0 To objRubNom.length -1
Nom = objRubNom.item(ind01).text
Url = objRubUrl.item(ind01).text
Response.Write("<td><font face='verdana,sans-serif' size='1'><b>  <a STYLE=text-decoration:underline;color:red;' href=" & url & ">" & nom & "</a> ></font></td>")
Next

%>
</td>
</tr>
</table>
</body>
</html>