Buscador en ASP

Buscador Web 2002

(*)Desde ya vale una aclaración, estas opciones son de un buscador realizado para la Web ConozcaMisiones.com quien WebMaster es el que escribe el artículo.

Si vemos el código HTML en una de las primeras líneas vemos que tenemos un POST, el cual es la página siguiente a la que se ingresara cuando cargamos los datos y damos INGRESAR.

Esta misma se ira a la página ingreso.asp, que es la que cargara los datos a la Base de Datos, veamos el código del mismo y su actuación:

Ingreso.asp

<!-- definimos el lenguaje a utilizar -->
<%@ Language="VBScript" %>




<!-- comienza el script -->
<%
'definimos la variable de conexion
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
'conectamos a la base de datos mediante OLE ODBC dando el Driver
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
'definimos la variable de carga de datos
Dim Temp
'buscamos los datos
Temp="Select * From Tabla1 Where UCase(Nombre)='" & UCase(Request("Dato1")) & "' And UCase(Des)='" & UCase(Request("Dato2")) & "' And UCase(Url)='" & UCase(Request("Dato3")) & "' And UCase(Categoria)='" & UCase(Request("Dato4")) & "' And UCase(Pal)='" & UCase(Request("Dato5")) &"'"
Tabla.Open Temp,Conexion,2,3,1
'si no se repiten agregamos los datos a nuestro buscador
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("Nombre") = Request("Dato1")
Tabla("des") = Request("Dato2")
Tabla("Url") = Request("Dato3")
Tabla("Categoria") = Request("Dato4")
Tabla("Pal") = Request("Dato5")
Tabla.Update
'fin del Script
%>

Ingreso de datos completado

Buscador Web 2002

Ingresar
Nuevo

Observemos bien el script, y centrémonos en la carga de datos, hace un REQUEST de los datos que ingresamos en el formulario, y comprueba que no exista una igualdad en los datos, una vez hecho esto agrega con la sentencia ADDNEW una nueva fila a nuestra base de datos.

Datos para aclarar y recordar

Tenemos que recordar que en el formulario en el campo URL debemos ingresar la url de la Web a la cual queremos vincular, si esta dentro de nuestra Web, por ejemplo si esta dentro de www.mipagina.com y la url de la sección es www.mipagina.com/prueba/prueba.htm simplemente omitimos el www.mipagina.com/ y añadimos prueba/prueba.htm ya veremos el porque de esto. En cambio si se encuentra en otra Web simplemente www.mipagina.com.

Buscando...

Ahora bien, hemos cargado los datos a nuestra base de datos, ya estamos listos como para comenzar a buscar mediante los datos cargados en ella. Para eso veremos un formulario el cual nos pedirá que ingresemos una palabra clave, y luego pasara a la pagina ASP. El formulario será muy simple, solamente tendrá un campo de texto donde ingresaremos la palabra clave a buscar, veamos como seria:

Buscar.htm

<!-- Post a buscar.asp -->

Notaran que eh hecho una llamadita en el Input NAME, porque es esto, ya que si cambiamos el nombre del mismo y no lo cambiamos en la página ASP quizás no nos funcione, por eso noten que el INPUT NAME es Palabra. Pasemos a la pagina ASP ahora que es el ultimo paso que nos queda por hacer luego de haber ya cargado los datos y ya puesto la palabra a buscar, el código de búsqueda es el siguiente:

Buscar.asp

<!-- 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,Rango
Rango=Request("Tipo")
If Rango="1" Then
'En la Tabla la palabra que buscamos
Temp="Select * From Tabla1 Where UCase([pal])='" & UCase(Request("palabra"))'"
Else
Temp="Select * From Tabla1 Where InStr(UCase([pal]),'" & UCase(Request("Criterio")) & "')>0"
End If
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

<!-- aquí comienza el Script que nos muestra los resultados, si los encuentra, en una tabla -->
<%
Else
%>

Busquedas

2002

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.



Informe (ASP) de Mario Matias Sebely
Webmaster de http//www.conozcamisiones.com

Valora este artículo   Malo Excelente

Han valorado este artículo de ASP. 18 usuario(s).
Valoración media:

Este artículo ha sido leído ( 9790 veces ).
Fecha: 10/19/2005

Agregar comentario | (0) comentarios Recomendar este artículo ASP Foros sobre ASP Imprimir ASP Agregar a Favoritos este artículo ASP