Busco un... buscador

[Tukzone]

Alguien sabe de alguno que sea bueno y que abra y lea los archivos html o asp y genere tipo una archivo de texto con los resultados. Sin base de datos, ni nada raro. Que vaya por todas las carpetas leyendo los archivos y buscando.

Si alguien sabe de algo, le agradeceria que me de una mano.

[gigio_wt]

Supongo que tendría que ser alguno que se base en el uso de Index Server, pero para eso primero tienes que asegurarte que ese servicio este habilitado en el servidor.

[maestro]

Has buscado alguno prefabricado en:
http://www.hotscripts.com/

[xlugo2002]

Microsoft tiene el Index Server, y funciona bien; si kieres te paso el codigo, el uso de index server no es muy complicado y es muy util. Saludos

[gigio_wt]

podrias pasar el codigo de todas formas... al menos yo me inscribo...

[joseb]

si no te importa me la puedes mandar que a mi tambien me interesa el código. ¿Y sirve para buscar páginas hechas en php?

[xlugo2002]

Dim oQuery,oRS

Const CATAL = "Web"
busca = criterio

' instanciamos el objeto y establecemos propiedades
Set oQuery = Server.CreateObject("IXSSO.Query")
oQuery.DefineColumn "description (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 description"
oQuery.DefineColumn "Characterization = 560c36c0-503a-11cf-baa1-00004c752a9a Characterization"
oQuery.Catalog = CATAL
oQuery.Query = criterio & " AND NOT #filename *.txt AND NOT #filename *.reg AND NOT #filename *.xls AND NOT #filename *.css AND NOT #filename *.inc AND NOT #filename *.class AND NOT #filename *.asa AND NOT #filename *.htx AND NOT #filename *.ppt AND NOT #filename *.doc AND NOT #filename *.png AND NOT #path *\iishelp* AND NOT #path *\_sharepoint* AND NOT #path *\buscador* AND NOT #path *\aplicaciones* AND NOT #path *\admon* AND NOT #path *\_vti_*"
oQuery.SortBy = "rank[d]"
'oQuery.MaxRecords = 500
oQuery.Columns = "doctitle,FileName,Path,Characterization,Rank,vpat h,description,dockeywords,write"

' creamos y leemos propiedades del conjunto de resultados
Set oRS = oQuery.CreateRecordset("nonsequential")
'oRS.PageSize = 15 'pa que?
regTot = oRS.RecordCount ' propiedad, calculamos el total de paginas en el obj. pag.

'guardamos los resultados y cerramos el RecordSet
If Not oRs.EOF Then
arrDatos = oRS.GetRows()
' si no se requiere paginacion usarlo de esta manera
'iRi = LBound(arrDatos, 2)
'iRf = UBound(arrDatos, 2)
'iCi = LBound(arrDatos, 1)
'iCf = UBound(arrDatos, 1)
End IF
oRs.Close
Set oRS = Nothing


La busqueda se almacena en un objeto parecido a un RecordSet , debe de estar funcionando el Index Server y existir una catalogo.


http://www.asp101.com/articles/john/...er/default.asp


hechenle huevos ! saludos desde Mexico.