Aqui podemos ver o script ASP para realizar a busca no banco de dados do buscador.Por Mario Matías Sebely
Publicado em: 17/1/08
Passemos à página ASP agora, que é o último passo que nos resta fazer, depois de ter carregado já os dados e visto a palavra a buscar. O código de busca é o seguinte:
Arquivo buscar.asp
<html>
<head>
<title>Buscar dados</title>
</head>
<body bgcolor="#FFFFCC">
'Esta linha dirá os resultados obtidos com a palavra chave
<p><font face="Tahoma" size="2">Resultados obtidos com <strong><%=Request("Palavra") %></strong></font></p>
<%
'realizamos a conexão do Banco de Dados
Dim Conexao,Tabela
Set Conexao=Server.CreateObject("adodb.connection")
Set Tabela=Server.CreateObject("adodb.recordset")
Conexao.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
'definimos as variáveis de busca
Dim Temp
'Criamos a sentença SQL que extrai do banco as páginas que têm a palavra que buscamos
'buscando com o operador LIKE obtemos aparições do substring escrito no formulário, entre as palavras-chave
Temp="Select * From Tabela1 Where UCase(pal) like '%" & UCase(Request("palavra")) & "%'"
Tabela.Open Temp, Conexao
If Tabela.BOF And Tabela.EOF Then
%>
'se não encontrara nada nos dá esta mensagem
<p><font face="Tahoma" size="2">Não se encontrou nada com <strong><%=Request("palavra")%></strong> no Banco de Dados</font></p>
<%
Else
'aqui começa o Script que nos mostra os resultados,
'se os encontra na tabela
%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
<tr>
<td width="28%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Categoria</font></strong>
</td>
<td width="28%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Nome da pagina</font></strong></p>
</td>
<td width="52%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Descrição</font></strong>
</td>
<td width="19%" height="19">
<p align="center"><strong><font face="Tahoma" size="2">Url</font></strong></p>
</td>
</tr>
<% While Not Tabela.EOF%>
<tr>
<td width="28%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabela.Fields("Categoria")%></font></td>
<td width="28%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabela.Fields("Nome")%></font></td>
<td width="52%" bgcolor="#FFCC00" height="51">
<p align="center"><font face="Tahoma" size="2"><%=Tabela.Fields("Des")%></font></td>
<td width="19%" bgcolor="#FFCC00" height="51">
;'Convertemos os dados URL no vínculo da palavra IR
<p align="center"><a href="<%=Tabela.Fields("url")%>"><font face="Tahoma" size="2">Ir</font></a>
</tr>
<%
'se encontrar mais de um resultado nos faz uma célula a mais na tabela
Tabela.MoveNext
Wend
Tabela.Close
Conexao.Close
End If
%>
</table>
</center></div>
<p align="center"><font face="Tahoma" size="2">Buscas</font></p>
<p align="center"><font face="Tahoma" size="2">2008</font></p>
<p align="center"> </p>
</body>
</html>
Bom, este é o código em si, porém também devemos saber compreendê-lo. Se lembrarem, quando fizemos o banco de dados tínhamos inserido vários campos, entre eles Pal e a outra URL, que eram os que talvez lhes tenham desconcertado.
Pois este é uma das palavras-chave, ou seja, pela qual buscará nosso "Buscador" quando tiver que se dirigir ao Banco de dados.
Logo, a URL, que explicávamos na parte de Entrada de Dados. Nesta página não nos mostra a URL, e sim nos mostra a palavra IR, que tem o código HTML para se converter em vinculo em base à URL do Banco de Dados.
Isto é todo o Buscador, estimados leitores. Espero que seja útil para todos.
Até a próxima.
