Précédent   Forum des professionnels en informatique > Webmasters - Développement Web > Langages serveur > ASP
ASP Forum sur la programmation ASP. Avant de poster : Cours ASP, FAQ ASP
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 14/11/2006, 17h42   #1
Invité de passage
 
Inscription : avril 2005
Messages : 9
Détails du profil
Informations forums :
Inscription : avril 2005
Messages : 9
Points : 1
Points : 1
Par défaut Bout de code à commenter

Bonjour,

J'ai besoin de vos lumières !
Voilà, j'ai un bout de code sous la main mais je ne comprends pas grand chose.

Code :
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
‘ On affecte le résultat de la méthode créant une instance du composant serveur identifié par « MSXML.DOMDocument ».
Set xmldoc = Server.CreateObject("MSXML2.DOMDocument")
xmldoc.async = False
xmldoc.setProperty "ServerHTTPRequest", true

‘ Nom du serveur et Utilisation du moteur de recherche avec les paramètres de masques et les termes de la recherche.
xmldoc.Load "http://heg-mondo/cgi-bin/MsmFind.exe?resmask= MsmResXML.msk&QUERY=" & Server.HTMLEncode(Request.QueryString("Query"))	

set rp = xmldoc.selectsinglenode("resultpage")
Set res = rp.selectsinglenode("results")
set sum = res.selectsinglenode("summary")

for each c in res.selectnodes("category")
response.write "<h1 class='mondoCategory'>"&c.selectsinglenode("title").text&"</h1>"&chr(13)&chr(10)
	for each r in c.selectnodes("page")
		response.write "<A HREF="""
		response.write r.selectsinglenode("url_to_go").text
		response.write """>"
		response.write r.selectsinglenode("title").text
		response.write "</a><br>"&chr(13)&chr(10)
	next
next

Set xmldoc = Nothing
J'ai commencé à rechercher sur le Web et j'ai commencé à commenter (en vert) mais mes recherches sont très longues.
Pourriez-vous me dire ce que font les instructions suivantes :

- xmldoc.async = False

- xmldoc.setProperty "ServerHTTPRequest", true

- xmldoc.Load "http://heg-mondo/cgi-bin/MsmFind.exe?resmask= MsmResXML.msk&QUERY=" & Server.HTMLEncode(Request.QueryString("Query"))

- set rp = xmldoc.selectsinglenode("resultpage")
set res = rp.selectsinglenode("results")
set sum = res.selectsinglenode("summary")

- Set xmldoc = Nothing


Merci beaucoup pour votre aide !
xev74 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 14/11/2006, 20h08   #2
Expert Confirmé Sénior

 
Avatar de Immobilis
 
Inscription : mars 2004
Messages : 5 849
Détails du profil
Informations forums :
Inscription : mars 2004
Messages : 5 849
Points : 5 965
Points : 5 965
Salut,

Tu as regardé là ? http://www.devguru.com/technologies/xml_dom/15602.asp

A+
Immobilis est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 14/11/2006, 21h38   #3
Invité de passage
 
Inscription : avril 2005
Messages : 9
Détails du profil
Informations forums :
Inscription : avril 2005
Messages : 9
Points : 1
Points : 1
Merci pour le lien.
J'ai donc à peu près tout ce qu'il me faut.

Il ne me manque plus que cette méthode là que je ne trouve pas :
--> setProperty

Code :
xmldoc.setProperty "ServerHTTPRequest", true
--> Ca veut dire quoi ?

Merci de ton aide.
xev74 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 16/11/2006, 08h50   #4
Membre émérite
 
Avatar de marabout
 
Homme
Consultant E-Learning
Inscription : août 2006
Messages : 646
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : Belgique

Informations professionnelles :
Activité : Consultant E-Learning

Informations forums :
Inscription : août 2006
Messages : 646
Points : 812
Points : 812
Citation:
Envoyé par xev74

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'indique au serveur de travailler en mode asynchrone i.e. le serveur attend le chargement complet du fichier XML avant de passer à l'instruction suivante

xmldoc.async = False

xmldoc.setProperty "ServerHTTPRequest", true
'chemin du fichier XML à charger
xmldoc.Load "http://heg-mondo/cgi-bin/MsmFind.exe?resmask= MsmResXML.msk&QUERY=" & Server.HTMLEncode(Request.QueryString("Query"))

'selection du tag "resultpage" dans le fichier XML et placement de sa valeur dans une variable rp
set rp = xmldoc.selectsinglenode("resultpage")
  set res = rp.selectsinglenode("results")
  set sum = res.selectsinglenode("summary")

'Libération de la mémoire (le fichier XML est supprimé de la mémoire
Set xmldoc = Nothing
J'ai fait les commentaires directement dans le code
marabout est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 07h03.


 
 
 
 
Partenaires

Hébergement Web