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~.