Manipuler un serveur d'indexation avec ASP
hotlines
Messages postés
15
Date d'inscription
dimanche 7 mars 2004
Statut
Membre
Dernière intervention
28 décembre 2005
-
28 nov. 2005 à 21:02
cs_Nurgle Messages postés 1642 Date d'inscription samedi 6 novembre 2004 Statut Membre Dernière intervention 28 avril 2011 - 28 nov. 2005 à 21:46
cs_Nurgle Messages postés 1642 Date d'inscription samedi 6 novembre 2004 Statut Membre Dernière intervention 28 avril 2011 - 28 nov. 2005 à 21:46
A voir également:
- Manipuler un serveur d'indexation avec ASP
- Serveur en anglais ✓ - Forum ASP / ASP.NET
- Réponse examen asp construction ✓ - Forum C / C++ / C++.NET
- Ebp serveur sql introuvable ✓ - Forum SQL
- Numéroteurs à indexation - Forum C# / .NET
- Serveur irc - Forum IRC
1 réponse
cs_Nurgle
Messages postés
1642
Date d'inscription
samedi 6 novembre 2004
Statut
Membre
Dernière intervention
28 avril 2011
4
28 nov. 2005 à 21:46
28 nov. 2005 à 21:46
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)
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)
