DesarrolloWeb.com > Manuales > Buscador simple en ASP

Resultados del buscador

Valoración del artículo:

Enviar un comentario

Ver comentarios del artículo (3)

Aquí podemos ver el script ASP para realizar la búsqueda en la base de datos del buscador.

Por Mario Matías Sebely

Publicado: 22/2/02

Atención: Contenido exclusivo de DesarrolloWeb.com. No reproducir. Copyright.

Pasemos a la página ASP ahora, que es el último paso que nos queda por hacer, luego de haber cargado ya los datos y puesto la palabra a buscar. El código de búsqueda es el siguiente:

Archivo buscar.asp

<html>

<head>
<title>Buscar datos</title>
</head>

<body bgcolor="#FFFFCC">
'Esta linea nos dira los resultados obtenidos con la palabra clave
Resultados obtenidos con <%=Request("Palabra") %>

<%
'realizamos la conexión de la Base de Datos
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
'definimos las variables de busqueda
Dim Temp
'Creamos la sentencia SQL que extrae de la base las páginas que tienen la palabra que buscamos
'buscando con el operador LIKE obtenemos apariciones del substring escrito en el formulario, entre las palabras clave

Temp="Select * From Tabla1 Where UCase(pal) like '%" & UCase(Request("palabra")) & "%'"

Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>
 'si no encuentra nada nos da este mensaje
 No se ha encontrado nada con <%=Request("palabra")%> en la Base de Datos

<%
Else
 'aquí comienza el Script que nos muestra los resultados,
'si los encuentra en la tabla
%>
 <div align="center"><center>
 <table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
 <tr>
 <td width="28%" height="19">
 Categoria
 </td>
 <td width="28%" height="19">
 Nombre de la pagina
 </td>
 <td width="52%" height="19">
 Descripcion
 </td>
 <td width="19%" height="19">
 Url
 </td>
 </tr>
 <% While Not Tabla.EOF%>
 <tr>
 <td width="28%" bgcolor="#FFCC00" height="51">
 <%=Tabla.Fields("Categoria")%></td>
 <td width="28%" bgcolor="#FFCC00" height="51">
 <%=Tabla.Fields("Nombre")%></td>
 <td width="52%" bgcolor="#FFCC00" height="51">
 <%=Tabla.Fields("Des")%></td>
 <td width="19%" bgcolor="#FFCC00" height="51">
 ;'Convertimos los datos URL en el vinculo de la palabra IR
 <a href="<%=Tabla.Fields("url")%>">Ir</a>
 </tr>
<%
 'si encuentra mas de un resultado nos hace una celda mas en la tabla
 Tabla.MoveNext
 Wend
 Tabla.Close
 Conexion.Close
End If
%>
</table>
</center></div>
Busquedas
2002
 
</body>
</html>

Bien, este es el código en si, pero también debemos saber comprenderlo. Si recuerdan cuando hicimos la base de datos habíamos insertado varios campos, entre ellos Pal y el otro URL, que eran los que quizás los hayan desconcertado.

Pues estos es uno el de las Palabras clave, ósea, por el que buscara nuestro "Buscador" cuando tenga que dirigirse a la Base de datos.

Luego la URL, que explicábamos en la parte de Ingreso de Datos. En esta pagina no nos muestra la URL sino que nos muestra la palabra IR, que tiene el código HTML para convertirse en vinculo en base a la URL de la Base de Datos.

Esto es todo el Buscador estimados lectores. Espero que les sea de utilidad.

Hasta la próxima.

Referencia: en otro artículo de DesarrolloWeb tenemos un ejemplo sobre cómo se haría un script de búsqueda en la base de datos por palabras clave con ASP, en el que también tendríamos en cuenta algún operador avanzado de búsqueda, como los que se utilizan en motores avanzados.

Enviar un comentario al artículo

MANUAL: Buscador simple en ASP

Formulario del buscador

Buscador simple en ASP mejorado

Comentarios

Enviar un comentario al artículo

Fueron enviados 3 comentarios al artículo

1 comentario no revisado

2 comentarios revisados:

Por: isabel

13/8/02

Hola,
He probado el buscador y al principio no me funcionaba. El problema era que en mi base de datos había puesto como nombre de campo "Any" que es año en catalán. Pues resulta que el asp no lo leía y me daba erro porque lo entiende en ingles (any=cualquier/a). Parece una tontería pero hasta que me he dado cuenta han pasado unas horas. Os lo comento por si a alguien le pasara algo igual.

Por: Cristian

07/11/02

Hola a todos, hace tiempo atrás implemente un buscador en bases de datos SQL Server, el cual potencie agregando la siguiente función que me permite hacer las búsquedas de palabras acentuadas y no acentuadas, es bastante util y solo tienen que aplicarla antes de ejecutar el sql.

'-----------------------------------------
'Cristian Sanhueza
'(04/04/2002)
'Función que retorna las vocales de la cadena listas para integrarlas en una consulta con LIKE
'Util cuando se realizan búsquedas de texto

function GenerarC(origen)
    'Primero normalizo la palabra dejandola sin acentos
    origen = Replace(origen, "á", "a", 1, -1, 1)
    origen = Replace(origen, "é", "e", 1, -1, 1)
    origen = Replace(origen, "í", "i", 1, -1, 1)
    origen = Replace(origen, "ó", "o", 1, -1, 1)
    origen = Replace(origen, "ú", "u", 1, -1, 1)

    'Cambio las vocales por los comodines para buscar con y sin acentos.
    origen = Replace(origen, "a", "[áa]", 1, -1, 1)
    origen = Replace(origen, "e", "[ée]", 1, -1, 1)
    origen = Replace(origen, "i", "[íi]", 1, -1, 1)
    origen = Replace(origen, "o", "[óo]", 1, -1, 1)
    origen = Replace(origen, "u", "[úuü]", 1, -1, 1)

    GenerarC = origen
end function

Espero les sirva
bye

Ver comentarios pendientes de revisar

Enviar un comentario al artículo