Manipuler un serveur d'indexation avec ASP

Signaler
Messages postés
15
Date d'inscription
dimanche 7 mars 2004
Statut
Membre
Dernière intervention
28 décembre 2005
-
Messages postés
1642
Date d'inscription
samedi 6 novembre 2004
Statut
Modérateur
Dernière intervention
28 avril 2011
-
Bonjour , je voudrais savoir est ce que il y un moyens de interroger et manipuler un serveur d'indexation avec asp , j'ai trouvé des exemples sur intenet mais malgré cela j'ai beosin d'un exemple très simple a comprendre .

Merci

1 réponse

Messages postés
1642
Date d'inscription
samedi 6 novembre 2004
Statut
Modérateur
Dernière intervention
28 avril 2011
3
Bonjour hotlines

je pense que ceci devrait t'aller :

<%

'Creation du Query avec Indexing Service

set Q = Server.CreateObject("ixsso.Query")



' Déclaration du nom du Catalogue qui est interrogé

Q.CATALOG="ton_catalogue"



' chaine de caractères à rechercher

Q.Query = "nurgle, par exemple..."



Q.Columns = "DocTitle, DocAuthor, Vpath, FileName," & _

" Size, Write, Characterization, rank, Contents, Create, HitCount"



' Nombre maxi de résultats

Q.MaxRecords = 150



' Chargement du RecordSet

set RS = Q.CreateRecordSet("nonsequential")

RS.PageSize = 10

ActiveQuery = TRUE



'Et ensuite un truc pour afficher les résultats du genre :



If Not RS.EOF Then

Response.Write "Nombre de Résultat(s) : " & RS.RecordCount & "
<HR>"



Do While Not RS.EOF

' --------- Affichage des éléments trouvés

response.write ("Rank : " & RS("Rank")/10& "
")

response.write ("Titre : " & rs("DocTitle")& "
")

response.write ("Auteur : " & rs("DocAuthor")& "
")

response.write ("Contents : " & rs("Contents")& "
")

' Attention: le résumé ne renvoie quelque chose que dans le cas

' où l'option de création d'un résumé est activée pour ce catalogue.

response.write ("Résumé : " & Server.htmlEncode(rs("Characterization"))&"
")

response.write ("URL : http://" &Request("server_name")&RS("Vpath")&"
")

response.write ("Date et Heure de Création : " & rs("Create")& "
")

response.write ("Date et Heure de dernière modification : " & rs("write")& "
")

response.write ("Nombre d'occurence du Mot : " & rs("HitCount")& "
")

response.write ("Taille : "&rs("Size") &"

")

Response.Write ("")

Response.Write ( Server.HTMLEncode( RS("FileName") ) &"
<HR>")

RS.MoveNext

Loop

Else

Response.Write "Pas de résultat"

End If

%>

(désolé, la coloration syntaxique est partie pendant le copier-coller...)



A+

Nurgle
Il est plus aisé d'être sage pour les autres que pour soi-même !
(La Rochefoucauld)