Resultados do buscador

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
Valorize este artigo:
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>

Página de resultados do buscador


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.






Usuários :    login / registro

Manuais relacionados
Categorias relacionadas
O autor

Home | Sobre nós | Copyright | Anuncie | Entrar em contato