¡Como hacer una busqueda!

crucifijo · #1 (**permalink**) 03/10/2003, 10:51

Hola amigos que tal otravez molestando quisiera saber como puedo generar una busqueda donde tenga mi boton con mi caja de texto y que cuando en la caja de texto ponga una letra por ejemplo "Administracion" me arroje como resultado todo lo que tengo con nombre Administracion.

Ojala puedieran orientarme.

Saludos

McManaman · #2 (**permalink**) 03/10/2003, 14:46

Hola.... si pones en google filterlist.js te va a salir un archivo hecho en javascript muy bueno para hacer busqueda...no te doy la direccion exacte porque no me acuerdo je je...y no te la paso porque no esta en esta maquina

....pero si no la encuentras me avisas y al siguiente dia te la podria pasar

Darkdoor · #3 (**permalink**) 03/10/2003, 15:41

Puedes crearte un buscador, haciendo lo siguiente:

Debes crear una base de Datos en Access (o en Vb), por lo tanto, nos vamos a access y creamos una tabla que contenga los siguientes datos:

Id (autonumérico)
PALAC (texto) (palabras clave)
Link (texto) (link a buscar)
Titulo (texto) (titulo del tema a buscar)
Comentario (Memo) (comentario del tema)

Y configuramos el nº de carácteres de cada uno:
PALAC = 180
Link = 80
Título=80

Después, pasamos a poner los datos de cada campo:

Id: 1,2,3,4,5,6,7, etc.

PALAC: Administración, palabra que quieras, palabra que quieras, etc...

Link: Adimi.htm, link al tema donde aparezca la palabra, link al tema donde aparezca la palabra, link al tema donde aparezca la palabra, ...

Titulo: Administración, titulo, titulo, titulo, titulo, titulo, titulo, titulo etc

Comentario: aquí se..., descripción, descripción, descripción, descripción, ect.

y así, hasta completas el nº de palabras y de datos que quieras poner.

Una vez hecho esto, guardaló y pasa a crear el archivo asp que se muestra a continuación, en tu editor de texto (block de notas por ejemplo):

<html>
<head>
<title>Buscar</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<%
Dim buscar
buscar = Request.Form("textfield")
%>

<body bgcolor="#FFFFFF" text="#000000"><center>
<p><b><font size="5">MI BUSCADOR</font></b> </p>
<%
Function fBuscar(cnn)
Dim rs
Dim SQL
Dim str
SQL="SELECT Titulo, Comentarios, PALAC, Link FROM Busqueda WHERE PALAC LIKE '%"&buscar&"%';"
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = cnn
rs.Open SQL
While Not rs.EOF
str = str & "<A Class='t5' Href='" & rs("Link") & "'>" & rs("Titulo") & " >> <br>" & "</a>" & rs("Comentarios")& "<BR> <BR>"
rs.MoveNext
Wend
if str = "" then str ="<CENTER><B>Lo siento, no se encontraron resultados</B></CENTER>"
if buscar = "" then str ="<CENTER><B>Por favor, especifique su búsqueda</B></CENTER>"
fBuscar = str
End Function
Dim cnn
Dim str
Set cnn = CreateObject("ADODB.Connection")
str = "Data Source=Pafware"
cnn.Open str
Response.write "<FONT COLOR=Blue "
Response.write "SIZE=4 FACE=Arial> "
Response.write "Resultados "
Response.write "de la busqueda: <P>"
Response.write "</FONT> "
Response.write "<FONT COLOR=Green "
Response.write "SIZE=3 FACE=Arial> "
Response.Write fBuscar(cnn)
Response.write "</FONT><hr> "
%>
<form name="form1" method="post" action="Buscar.asp">
<input type="text" name="textfield">
<input type="submit" name="Submit" value="Buscar!">
</form></center>
</body>
</html>

y lo guardas con el nombre de Buscar.asp, y ya está (no te doy más detalles por k me puedo morir escribiendo, lo siento).

pd1: guarda la base de datos y el archivo asp en el mismo sitio.
pd2: si quieres ponerlo directamente incorporado el pagina principal crea el archivo asp, pero si tu web está en html, copia también el código en la página principal, en sus respectivos lugares:

<%
Dim buscar
buscar = Request.Form("textfield")
%>

después de </head> pero antes de <body>, y:

<p><b><font size="5">MI BUSCADOR</font></b> </p>
<%
Function fBuscar(cnn)
Dim rs
Dim SQL
Dim str
SQL="SELECT Titulo, Comentarios, PALAC, Link FROM Busqueda WHERE PALAC LIKE '%"&buscar&"%';"
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = cnn
rs.Open SQL
While Not rs.EOF
str = str & "<A Class='t5' Href='" & rs("Link") & "'>" & rs("Titulo") & " >> <br>" & "</a>" & rs("Comentarios")& "<BR> <BR>"
rs.MoveNext
Wend
if str = "" then str ="<CENTER><B>Lo siento, no se encontraron resultados</B></CENTER>"
if buscar = "" then str ="<CENTER><B>Por favor, especifique su búsqueda</B></CENTER>"
fBuscar = str
End Function
Dim cnn
Dim str
Set cnn = CreateObject("ADODB.Connection")
str = "Data Source=Pafware"
cnn.Open str
Response.write "<FONT COLOR=Blue "
Response.write "SIZE=4 FACE=Arial> "
Response.write "Resultados "
Response.write "de la busqueda: <P>"
Response.write "</FONT> "
Response.write "<FONT COLOR=Green "
Response.write "SIZE=3 FACE=Arial> "
Response.Write fBuscar(cnn)
Response.write "</FONT><hr> "
%>
<form name="form1" method="post" action="Buscar.asp">
<input type="text" name="textfield">
<input type="submit" name="Submit" value="Buscar!">
</form></center>

entre <body> y </body> según el lugar donde lo quieras situar.

Por ultimó te recuerdo, que aunque lo quieras poner en la página principal, crea también el archivo Buscar.asp (en la misma carpeta) ya que el código te redirecciona a el.

Epero que te sirva, un saludo ~DaRkDoOr~.