ASPTutor.com Buscador sobre una BD

Un Buscador sobre una BD

Colaboración enviada por Fernanda Eugenia Bahit

www.cybermuzikos.com.ar

Introducción

Este buscador es capaz de realizar la búsqueda sobre todos los campos de una base de datos, permitir al usuario indicar la cantidad de resultados que desea ubicar por página y el orden que tendrá los mismos. Además, permite que el usuario pueda realizar la misma búsqueda sin restringir los resultados. Sino, también es capaz de listar absolutamente todos los registros que se encuentren en la base de datos.

Para hacerlo solo serán necesarios 2 módulos ASP y la base de datos correspondiente.

Nota 1: si modificas el nombre o la cantidad de campos de la BD no olvides modificar la página de resultados.

Nota 2: esta base de datos contendrá un listado de CD's que supuestamente se ofrecen a la venta. Fue lo más genérico que se me ocurrió d:-)

La base de datos

Nombre de la base de datos: listacd.mdb

Tablas: 1 - Nombre: listado

Cantidad y tipo de campos:

El formulario de búsqueda

buscador.asp

<html> <head> <title>BUSCADOR</title> </head> <body> <div align="center"> <center> <form method="GET" action="resultados.asp"> <table border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="58%" id="AutoNumber1"> <tr> <td width="104%" align="right" style="border-right-style: none; border-right-width: medium; border-bottom-style: none; border-bottom-width: medium" bgcolor="#000000" colspan="2"> Buscador Avanzado sobre una BD</td> </tr> <tr> <td width="39%" align="right" style="border-right-style: none; border-right-width: medium; border-bottom-style: none; border-bottom-width: medium" bgcolor="#EBEBEB"> Título:</td> <td width="65%" style="border-left-style: none; border-left-width: medium; border-bottom-style: none; border-bottom-width: medium" bgcolor="#EBEBEB"> <input type="text" name="titulo" size="20"></td> </tr> <tr> <td width="39%" align="right" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" bgcolor="#EBEBEB"> Artista:</td> <td width="65%" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" bgcolor="#EBEBEB"> <input type="text" name="artista" size="20"></td> </tr> <tr> <td width="39%" align="right" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" bgcolor="#EBEBEB"> Año:</td> <td width="65%" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" bgcolor="#EBEBEB"> <input type="text" name="anio" size="5"></td> </tr> <tr> <td width="39%" align="right" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" bgcolor="#EBEBEB"> Ordenar resultados por:</td> <td width="65%" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" bgcolor="#EBEBEB"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="269" id="AutoNumber2" height="71"> <tr> <td width="20" style="border-style: none; border-width: medium" height="18"> <input type="radio" value="titulo" name="orden"></td> <td width="49" style="border-style: none; border-width: medium" height="18"> Titulo</td> <td width="20" style="border-style: none; border-width: medium" height="18"> <input type="radio" value="artista" name="orden" checked></td> <td width="55" style="border-style: none; border-width: medium" height="18"> Artista</td> <td width="20" style="border-style: none; border-width: medium" height="18"> <input type="radio" value="tracks" name="orden"></td> <td width="105" style="border-style: none; border-width: medium" height="18"> Tracks</td> </tr> <tr> <td width="20" style="border-style: none; border-width: medium" height="16"> <input type="radio" value="anio" name="orden"></td> <td width="49" style="border-style: none; border-width: medium" height="16"> Año</td> <td width="20" style="border-style: none; border-width: medium" height="16"> <input type="radio" value="precio" name="orden"></td> <td width="55" style="border-style: none; border-width: medium" height="16"> Precio</td> <td width="20" style="border-style: none; border-width: medium" height="16"></td> <td width="105" style="border-style: none; border-width: medium" height="16"></td> </tr> <tr> <td width="269" style="border-style: none; border-width: medium" colspan="6" height="12"> </td> </tr> <tr> <td width="20" style="border-style: none; border-width: medium" height="17"> <input type="radio" name="alf" value="asc" checked></td> <td width="124" style="border-style: none; border-width: medium" height="17" colspan="3"> ascendente</td> <td width="20" style="border-style: none; border-width: medium" height="17"> <input type="radio" name="alf" value="desc"></td> <td width="105" style="border-style: none; border-width: medium" height="17"> descendente</td> </tr> </table> </td> </tr> <tr> <td width="39%" align="right" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" bgcolor="#EBEBEB"> Cantidad de resultados:</td> <td width="65%" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" bgcolor="#EBEBEB"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber3"> <tr> <td width="22" style="border-style: none; border-width: medium"> <input type="radio" value="10" name="cantidad" checked></td> <td width="34" style="border-style: none; border-width: medium"> 10</td> <td width="20" style="border-style: none; border-width: medium"> <input type="radio" value="20" name="cantidad"></td> <td width="35" style="border-style: none; border-width: medium"> 20</td> <td width="20" style="border-style: none; border-width: medium"> <input type="radio" value="30" name="cantidad"></td> <td width="147" style="border-style: none; border-width: medium"> 30</td> </tr> </table> </td> </tr> <tr> <td width="39%" align="right" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium" bgcolor="#EBEBEB"> </td> <td width="65%" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium" bgcolor="#EBEBEB"> <input type="submit" value="Buscar"></td> </tr> </table> </form> </center> </div> </body> </html>

La Página de Resultados

resultados.asp

paginación de resultados basada en "paginar resultados" de SoloASP.com.ar

<% Dim mostrar 'cantidad de registros a mostrar por página Dim cant_paginas 'cantidad de páginas que recibimos Dim pagina_actual 'La página que mostramos Dim registro_mostrado 'Contador utilizado para mostrar las páginas Dim I 'Variable Loop titulo = request.querystring("titulo") artista = request.querystring("artista") anio = request.querystring("anio") orden = request.querystring("orden") alf = request.querystring("alf") cantidad = request.querystring("cantidad") if cantidad="10" then mostrar = 10 elseif cantidad="20" then mostrar = 20 elseif cantidad="30" then mostrar = 30 end if if orden = "" then response.redirect "buscador.asp" end if ' IF para saber que página mostrar If Request.QueryString("page") = "" Then pagina_actual = 1 Else pagina_actual = CInt(Request.QueryString("page")) End If strsql = "SELECT * FROM listado where UCase(titulo) like '%" & UCase(Request("titulo")) & "%' AND UCase(artista) like '%" & UCase(Request("artista")) & "%' AND UCase(anio) like '%" & UCase(Request("anio")) & "%' order by "& orden & " "&alf Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("listacd.mdb") ' creo el RecordSet y defino la cantidad de registros a mostrar Set RS = Server.CreateObject("ADODB.Recordset") RS.PageSize = mostrar RS.CacheSize = mostrar ' Abro la tabla... RS.Open strSQL, oConn,3,1 'cuento las páginas que se formaron con la variable mostrar cant_paginas = RS.PageCount ' Si el pedido de página cae afuera del rango, ' lo modifico para que caiga adentro If pagina_actual > cant_paginas Then pagina_actual = cant_paginas If pagina_actual < 1 Then pagina_actual = 1 %> <body style="background-color: #FFFFF4"> <% ' Si la cantidad de páginas da 0 es que no hay registros... por eso este IF If cant_paginas = 0 Then%> Se encontraron 0 resultados <ul> <li><a href="buscador.asp">Buscar nuevamente</a></li> <li> <a href="resultados.asp?orden=Artista&titulo=<%=titulo%>&cantidad=10">Repetir la búsqueda sin restricciones</a></li> </ul> <% 'sino, si es que encuentra registros Else ' Nos movemos a la página elegida RS.AbsolutePage = pagina_actual ' muestra el dato de la página en la que estamos... %> <div align="center"> <center> <table border="1" cellspacing="1" style="border-width:0; border-collapse: collapse" bordercolor="#111111" width="80%" id="AutoNumber1"> <tr> <td width="29%" bgcolor="#CCCCFF" style="border-left:medium none #111111; background-color: #DDDDFF; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:none; border-bottom-width:medium" align="center"> Artista </td> <td width="36%" bgcolor="#CCCCFF" style="border-style: none; border-width: medium; background-color: #DDDDFF; text-align:center"> Título</td> <td width="13%" bgcolor="#CCCCFF" style="border-style: none; border-width: medium; background-color: #DDDDFF" align="center"> Tracks</td> <td width="10%" bgcolor="#CCCCFF" style="border-style: none; border-width: medium; background-color: #DDDDFF" align="center"> Año</td> <td width="18%" bgcolor="#CCCCFF" style="border-right:medium none #111111; background-color: #DDDDFF; border-left-style:none; border-left-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:none; border-bottom-width:medium" align="center"> Precio</td> </tr> <% ' Hacemos el bucle mostrando los datos del registro registro_mostrado = 0 Do While registro_mostrado < mostrar And Not RS.EOF if colorfila = 0 then color= "#FFFFFF" colorfila=1 else color="#F3F3F3" colorfila=0 end if %> <tr> <td width="29%" style="border-style:none; border-width:medium; background-color: <%= color %>; "><%=RS("artista")%> </td> <td width="36%" style="border-style:none; border-width:medium; background-color: <%= color %>; text-align:left; "><%=RS("titulo")%></a> </td> <td width="13%" align="center" style="border-style:none; border-width:medium; background-color: <%= color %>; text-align:center; "><%=RS("tracks")%> </td> <td width="10%" align="center" style="border-style:none; border-width:medium; background-color: <%= color %>; text-align:center; "><%=RS("anio")%> </td> <td width="18%" align="center" style="border-style:none; border-width:medium; background-color: <%= color %>; text-align:center; "> $<%=RS("precio")%> </td> </tr> <% ' Sumamos 1 a los mostrados registro_mostrado = registro_mostrado + 1 ' Nos movemos al próximo registro... RS.MoveNext Loop End If %> </table> </center> </div> <% ' Cerramos y limpiamos... RS.Close Set RS = Nothing oConn.Close Set oConn = Nothing %> <div align="center"> <% ' Ahora mostramos los enlaces a las otras páginas con el resto de los registros... If pagina_actual > 1 Then %> <a href="resultados.asp?eje=30&page=<%= pagina_actual - 1 %>&titulo=<%=titulo%>&artista=<%=artista%>&orden=<%=orden%>&anio=<%=anio%>&cantidad=<%=cantidad%>"> [<< anterior ]</a> <% End If ' mostramos la paginacion por numeros de página For I = 1 To cant_paginas If I = pagina_actual Then %> <%= I %> <% Else %> <a href="resultados.asp?eje=30&page=<%= I %>&titulo=<%=titulo%>&artista=<%=artista%>&orden=<%=orden%>&anio=<%=anio%>&cantidad=<%=cantidad%>"><%= I %></a> <% End If Next 'I If pagina_actual < cant_paginas Then %> <a href="resultados.asp?eje=30&page=<%= pagina_actual + 1 %>&titulo=<%=titulo%>&artista=<%=artista%>&orden=<%=orden%>&anio=<%=anio%>&cantidad=<%=cantidad%>"> [ siguiente >>]</a> <% End If 'Fin %> </div> <center><a href="buscador.asp">Buscar de nuevo<a/> </a> </BODY> </HTML>

Ojalá les sirva!

Y como diría mi abuela: Manos a la "hebra" - era modista ;-)

Fernanda Eugenia Bahit

www.cybermuzikos.com.ar

www.hazteunsitio.com/public/cybermuzikos/PortalMaster

*---*