Index Server!

pepelucho · #1 (**permalink**) 02/07/2002, 11:48

Me podrian ayudar a terminar esto q hace tiempo q no puedo terminarlo???, tengo el codigo pero lo unico q me falta es hacer bien los catalogos para q haga la busqueda y salga el Virtual path.

Gracias de antemano.

SaLuDoS dE:
PePeLuChO dEl PeRú PaRa El MuNdO ;)

pepelucho · #2 (**permalink**) 02/07/2002, 15:22

Please, Ayudaaaaaaaaaa

!!, lo q me falta es q aparezca el Vpath para poder hacerle el link q l¿lleve a donde se encuentra!!!

SaLuDoS dE:
PePeLuChO dEl PeRú PaRa El MuNdO ;)

AlZuwaga · #3 (**permalink**) 02/07/2002, 23:51

????????

no te entiendo, podés poner el código?

Mecenias · #4 (**permalink**) 03/07/2002, 03:15

Ahora mismo estoy en la Universidad y como estoy en Linux solo tengo netscape y no me funciona el buscador,pero busca un mensaje anterior mio sobre el index server, en el deje un enlace en el que se decia como crear los catalogos y el Vpath porque a mi tambien me dio problemas,de todoas formas cuando llegue a casa reviso en mis librerias y creo que me quede con una copia sino esta semana tengo que volver al trabajo a por las cosas que me quedan y alli si que lo tengo.

Me parece que estaba en http://www.nerosoft.com/IndexServer.asp, lo que te dice es que no indexes fisicamente tus catalogos sino a traves del IIS para que este te devuelva tu virtual path y no la fisica

Un ejemplo lo hice en www.palmasport.es, el buscador es con el index server

Un Saludote
Un Saludote

pepelucho · #5 (**permalink**) 03/07/2002, 10:21

Gracias por responder, entre a la pagina q me dijistes cree el directorio virtual segui los pasos de nerosoft pero igual no me muestra los pasos, no sera q en la programacion no lo muestre aca pongo el codigo:

pepelucho · #6 (**permalink**) 03/07/2002, 10:22

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Index Server </title>
</head>

<body>
<%

Dim sSearchString
Dim oQuery

sSearchString = Request.Form("query")

Const SEARCH_CATALOG = "asp" 'tienes que cambiar esta linea con el nombre del catalogo

%>
<%
Set oQuery = Server.CreateObject("IXSSO.Query") 'este componente se puede usar solo tienes instalado el Index Server

oQuery.Catalog = SEARCH_CATALOG
oQuery.Query = "@all " & sSearchString & " AND NOT #path *_* AND NOT #path *downloads* AND NOT #path *images* AND NOT #filename *.class AND NOT #filename *.asa AND NOT #filename *.css AND NOT #filename *postinfo.html"
oQuery.MaxRecords = 200
oQuery.SortBy = "rank[d]"
oQuery.SetQueryFromURL(Request.ServerVariables(&qu ot;QUERY_STRING"))
oQuery.Columns = "DocAuthor, vpath, doctitle, FileName, Path, Write, Size, Rank, Create, Characterization, DocCategory"
Set oRS = oQuery.CreateRecordSet("nonsequential")
%>
<%
If oRS.EOF Then
Response.Write "No se encontrarón páginas para la búsqueda de " & sSearchString & ""
Else
Do While Not oRS.EOF
Response.write "vp: " & oRS("vpath") & " "
Response.write "wr: " & oRS("Write") & " "
Response.write "ran: " & oRS("Rank") & " "
Response.write "ran: " & oRS("DocCategory") & " "
Response.write "FileName: " & oRS("FileName") & " "
Response.write "path: " & oRS("path") & " "
Response.write "doctitle: " & oRS("doctitle") & " "
Response.write "Size: " & oRS("Size") & " "
Response.write "Create: " & oRS("Create") & " "
Response.write "Write: " & oRS("Write") & " "
response.write("URL : http://" &Request("server_name")&oRS(&quo t;vpath")&" ")
Response.write "Characterization: " & oRS("Characterization") & "<hr>"

oRS.MoveNext
Loop
End If
%>
<%
Set oRS = nothing
Set oQuery = nothing
%>
</body>
</html>

SaLuDoS dE:
PePeLuChO dEl PeRú PaRa El MuNdO ;)

pepelucho · #7 (**permalink**) 03/07/2002, 15:36

:(

SaLuDoS dE:
PePeLuChO dEl PeRú PaRa El MuNdO ;)