Ir para o conteúdo

Auto Complete Com Google


Criado por Patrique, Out 10 2010 00:53

Não há respostas para este tópico
  • Por favor, faça o login para responder

#1 Patrique

Patrique
  • Patrique
  • Colaborador
  • 13 Revisões

Revisou 10 outubro 2010 - 00:53

*
REVISÃO POPULAR!

Criei um sistema de autocomplete em pesquisas, utilizando as sugestões vindas do google, além da imensa base de dados das palavras, os resultados são mais rápido devido aos ultras servidores do google.

Segue abaixo os codes...

index.asp

<html>
<head>
    <title>Auto Complete com gooogle</title>
    <script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js"></script>
    <script type="text/javascript" src="js/jquery.autocomplete.js"></script>
    <link rel="stylesheet" type="text/css" href="css/jquery.autocomplete.css" />
    <script type="text/javascript">
    $().ready(function() {        
        $("#q").autocomplete("procura.asp", {
            width: 212,
            selectFirst: false
        });
        $("#q").result(function(event, data, formatted) {
            if (data)
                $(this).parent().next().find("input").val(data[1]);
        });
    });
    </script>
</head>
<body>
<div id="content">
    <form autocomplete="off" >
        <p>
            <input type="text" size="30" id="q" /> 
        </p>
    </form>
</div>
</body>
</html>

procura.asp

<%
autor: Patrique André (O Gostosão)
perfil: http://forum.imasters.com.br/index.php?/user/31010-patrique/

q = Trim(Request.QueryString("q"))

If q <> "" Then

    urlpesquisa = "http://suggestqueries.google.com/complete/search?qu=" & q

    Set objHttp = Server.CreateObject("MSXML2.XMLHTTP")
    objHttp.Open "GET", urlpesquisa, False
    objHttp.Send

    palavras = objHttp.responseText

    lixo = "window.google.ac.h([""" & q & """,[["
    palavras = Replace(palavras, lixo, "")
    array_itens = Split(palavras, "],[")

    For Each itens In array_itens
        array_item = Split(itens, ",")
        chave = array_item(0)
        chave = Replace(chave, """", "")
        chave = chave & vbCrLf
        Response.Write(chave)
    Next

    Set objHttp = Nothing

End If
%>

Baixe o plugin em jquery chamado

Autocomplete - jQuery plugin 1.0.2

e crie uma pasta chamada js e coloque lá, utilize também o css.

O resultado será esse

http://adresende.com...sters/sugestao/

[]'s




1 usuário(s) está(ão) lendo este código

1 membro(s), 0 visitante(s) e 0 membros anônimo(s)