Resultados do buscador

Aqui podemos ver o script ASP para realizar a busca no banco de dados do buscador.

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
Resultados obtidos com <%=Request("Palavra") %>

<%
'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
 Não se encontrou nada com <%=Request("palavra")%> no Banco de Dados

<%
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">
 Categoria
 </td>
 <td width="28%" height="19">
 Nome da pagina
 </td>
 <td width="52%" height="19">
 Descrição
 </td>
 <td width="19%" height="19">
 Url
 </td>
 </tr>
 <% While Not Tabela.EOF%>
 <tr>
 <td width="28%" bgcolor="#FFCC00" height="51">
 <%=Tabela.Fields("Categoria")%></td>
 <td width="28%" bgcolor="#FFCC00" height="51">
 <%=Tabela.Fields("Nome")%></td>
 <td width="52%" bgcolor="#FFCC00" height="51">
 <%=Tabela.Fields("Des")%></td>
 <td width="19%" bgcolor="#FFCC00" height="51">
 ;'Convertemos os dados URL no vínculo da palavra IR
 <a href="<%=Tabela.Fields("url")%>">Ir</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>
Buscas
2008
 
</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.

Referência: em outro artigo de CriarWeb temos um exemplo sobre como se faria um script de busca no banco de dados por palavras-chave com ASP, no qual também teríamos em conta algum operador avançado de busca, como os que se utilizam em motores avançados.