
	Portada \| Monotemáticos \| Secciones \| Desarrolladores \| Comunidad \| Servicios \| Servicios profesionales \| RSS

	DesarrolloWeb.com > Manuales > Buscador simple en ASP

Registrarse | Vuestras páginas | Foros del web | Lista de correo | Boletín de novedades

Generador METAs | Compras | Busca cursos

Desarrollo Freelance | Buscar proyectos | Buscar profesionales | Solicitar desarrollo

Resultados del buscador

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

22/2/02 - 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.

Seguir navegando a partir aquí:

+ 1 manual relacionado
+ 1 categoria relacionada
+ 2 comentarios (Añadir)
+ 9 comentarios no revisados

Autoría, licencia y acciones sobre este artículo

Informe de Mario Matías Sebely*
WebMaster ConozcaMisiones.com
URL: http://www.conozcamisiones.com

Atención: Copyright. Este artículo no se puede reproducir sin la autorización expresa del autor.

* Para consultas técnicas utilizar la lista de correo.

Versión imprimible del artículo
Enviar artículo por e-mail
Publicar un comentario del artículo

Manuales relacionados con este artículo

Dentro de Buscador simple en ASP

Siguiente: Buscador simple en ASP mejorado

Anterior: Formulario del buscador

< Indice de Buscador simple en ASP

Categorias relacionadas

A través de las categorías de nuestro directorio se pueden encontrar otro tipo de recursos relacionados con este artículo:

+ Entrar en Scripts en ASP

Comentarios de los visitantes

Añadir un comentario del artículo

Los comentarios de los visitantes son para ampliar la información del artículo. Cualquiera puede participar.

Se muestran 2 comentarios revisados

Comentario de 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.

Comentario de 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

Añadir un comentario del artículo

Comentarios sin revisar

Añadir un comentario del artículo

Entre los comentarios no revisados puede haber algunos interesantes que se hayan enviado recientemente.

Se han encontrado 9 comentarios sin revisar

Ver los comentarios no revisados
Añadir un comentario del artículo

Enlaces:

Maestrosdelweb

Ir arriba

Manuales relacionados
+	Buscador simple en ASP

Categorías
+	Scripts en ASP

Lectura recomendada

+ DOMINE ASP.NET.

Compra este libro en Agapea, la librería urgente a domicilio.

Tienda DesarrolloWeb

		DesarrolloWeb.com \| Copyright \| Anunciese \| Acerca de \| Datos legales \| Contacta \| Por GuiarteMultimedia

Alojamiento web