Publicentral.com - promocion,paginas,web,tutores,publicentralPromocion de paginas webs
Mostrando Codigo - Asp
Code

Asp - Buscador de paginas con FSO

Códigos Asp

Este buscador no utiliza bases de datos, utiliza FSO para realizar la busqueda de un texto en nuestras paginas. El código está partido en 2 paginas, 1 formulario.html y la otra resultados.asp. Solo debemos modificar el path hacia de la carpeta donde queremos realizar la busqueda
Visitas: 17,097 - 21/09/2003 23.02.31
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. <HTML>
  2. <BODY>
  3. <FORM METHOD=POST ACTION="resultados.Asp">
  4.   Palabra a buscar:
  5.   <INPUT TYPE=TEXT NAME=texto_a_buscar>
  6. <P>
  7. <INPUT TYPE=SUBMIT VALUE="Buscar">
  8. </FORM>
  9. </BODY>
  10. </HTML>
  11.  
  12. ------ Pagina resultados.asp
  13.  
  14. <HTML>
  15. <BODY>
  16. <B>Buscar resultados en <%=Request("texto_a_buscar")%></B><BR>
  17. <%
  18. Const fsoForReading = 1
  19. Dim strtexto_a_buscar
  20. strtexto_a_buscar = Request("texto_a_buscar")
  21. Dim objFSO
  22. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  23. Dim objFolder
  24. 'el path de la carpeta en la que queremos realizar la busqueda
  25. Set objFolder = objFSO.GetFolder(Server.MapPath("/carpeta_prueba"))
  26. Dim objFile, objTextStream, strFileContents, bolFileFound
  27. bolFileFound = False
  28. For Each objFile in objFolder.Files
  29.    If Response.IsClientConnected then
  30.      Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)
  31. strFileContents = objTextStream.ReadAll
  32. If InStr(1,strFileContents,strtexto_a_buscar,1) then
  33.        Response.Write "<LI><A HREF=""/carpeta_prueba/" & objFile.Name & _
  34.        """>" & objFile.Name & "</A><BR>"
  35. bolFileFound = True
  36.      End If
  37. objTextStream.Close
  38.    End If
  39. Next
  40. if Not bolFileFound then Response.Write "No se encontraron resultados"
  41. Set objTextStream = Nothing
  42. Set objFolder = Nothing
  43. Set objFSO = Nothing
  44. %>
  45. </BODY>
  46. </HTML>



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Buscador de paginas con FSO " href="http://www.tutores.org/codigo/579/" target="_blank">Buscador de paginas con FSO </a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
11-03-2009 13:23:45
2 5
con este codigo el IE no me busca, sino que me da la opcion de descargar o abrir el asp. como lo puedo evitar?
en firefox tambien me da cosas raras al buscar, una maraña de codigo fuente. me faltará algo por rellenar? o es que en casa no puedo testearlo como es debido?
el path solo lo he puesto en donde el codigo lo indica, hay que ponerlo en mas sitios? quiza en los "pagina_prueba"? estoy perdido, me pasan cosas de estas con varios codigos de buscadores que intento usar.
SOCORRO!
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.