Indexing Services
Si quiere una referencia completa sobre Indexing Services búsquela en el Sitio Web Microsoft MSDN.
A continuación tiene un ejemplo completo de una consulta Indexing Services escrita en VBscript.
Éste código busca en su sitio Web completo, el texto contenido en Request.Form("TextoaBuscar").
<%
RootPath = lcase(server.MapPath("/"))
Set Q = Server.CreateObject("IXSSO.Query")
Set U = Server.CreateObject("IXSSO.Util")
Q.Catalog = "Inserte su nombre de catálogo aquí..."
Q.Query = "(#nombredearchivo *.htm* ) and " & Request.Form("TextoaBuscar")
Q.Columns = "path, DocTitle, rank, FileName"
Q.Sortby = "rank"
U.AddScopeToQuery Q, RootPath,"deep"
on error resume next
set RS = Q.CreateRecordSet("sequential")
on error goto 0
if isObject(RS) then
if RS.EOF then
response.write "¡No hay resultados!"
else
do while not RS.EOF
response.write "<A HREF='" & replace(RS("path"),RootPath,"") & "'>"
response.write RS("DocTitle")
response.write "</A><BR>"
RS.MoveNext
loop
end if
else
Response.Write "La búsqueda sólo contiene palabras ignoradas."
end if
Set RS = Nothing
Set U = Nothing
Set Q = Nothing
%>
Haga clic aquí para volver a la página anterior.
|
La Empresa
Hosting
