Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

luisfel

Alguem sabe?????

Por , em ASP Clássico

Recommended Posts

luisfel    0

luisfel
Postado

Tenho uma busca em meu site, quando busco por uma palavra ele traz normalmente, mas se digito duas palavras separadas por um espaço, mesmo qua elas existam, a busca não me traz nada....Exemplo de uma que funiona muito bem: GoogleAlguém tem o dom de me ajudar???AbraçãoAntecipadamente Orbigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

luisfel    0

luisfel
Postado

esta por BD...

Tive uma evolução, conseguir fazer trazer os resultados.. agora estou com outro problema, a paginação... na primeira página ele me mostra correto, mas qdo passo pra segunda ele se perde... com certeza o problema está na concatenação dos links (anterior e próxima)... vou colocar o trecho do código e ver se você pode me ajudar:

 

#### RECEBER UMA OU MAIS PALAVRAS DO FORM #####

 

cod_busca = Request("busca")

sql_produtos = "SELECT * FROM Produtos WHERE"

cod_busca = trim(cod_busca)

do until instr(1,cod_busca,chr(32)) = 0

espaco = instr(1,cod_busca,chr(32))

cada_palavra = left(cod_busca,espaco-1)

sql_produtos = sql_produtos & " Nome LIKE '%" & cada_palavra & "%' or"

comp = len(cod_busca)

retirar = comp - espaco

cod_busca = right(cod_busca,retirar)

loop

sql_produtos = sql_produtos & " Nome LIKE '%" & cod_busca & "%'"

sql_produtos = sql_produtos & " ORDER BY Nome"

Set RS_produtos = Server.CreateObject ("ADODB.Recordset")

 

 

#### LINKS ANTERIOR E PRÓXIMA #####

 

<%

For navega= 1 to RS_produtos.PageCount

 

Next

 

 

anterior=pagina-1

proxima=pagina+1

 

 

If not anterior = 0 then

response.write "<br><table align=center width=400><tr><td align=left><a href=resultado.asp?pagina="& anterior &"&busca=" & cod_busca & " onMouseOver=MM_swapImage('Image_ant','','Img/anterior_on.gif',1) onMouseOut=MM_swapImgRestore()><img src=Img/anterior.gif name=Image_ant width=90 height=20 border=0 id=proxima></a></table></tr></td>"

end if

 

If proxima < navega Then

response.write "<br><table align=center width=400><tr><td align=right><a href=resultado.asp?pagina="& proxima &"&busca=" & cod_busca & " onMouseOver=MM_swapImage('Image_prox','','Img/proxima_on.gif',1) onMouseOut=MM_swapImgRestore()><img src=Img/proxima.gif name=Image_prox width=90 height=20 border=0 id=proxima></a></table></tr></td>"

End If

 

 

%>

 

Se você puder me ajudar, agradeço antecipadamente...

Compartilhar este post

Link para o post
Compartilhar em outros sites

nostrinkes    0

nostrinkes
Postado

Eu estou com o mesmo problema fiz o split do campo texto mais só me retorna certo se tiver todos os dados da procura senão EOF true

vou colocar meu cod pode ajudar.

 

<html><body><form method="post" action="#"><input type="text" name="formulario"><input type="submit" value="enviar"></form>Abaixo esta um exemplo de uma procura em (Where In)<br>Mais so esta funcionando com apenas campos que contem um valor apenas,<br>palavras compostas ou frases nao funcionam.<br>Capturando valores que sejam exatos por causa da sintase ('"&  valor(i) & "')<hr><%@LANGUAGE="VBSCRIPT"%></body></html><%session("db")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("busca.mdb")Set db=Server.CreateObject("ADODB.Connection")	db.Open session("db")varCheck = Request("formulario") '-----------------------------------------------------------varCheck = replace(varcheck," ",",")valor = split(varCheck,",")for i = 0 to uBound(valor) '-----------------------------------------------------------------------------------------------Set RS = Server.CreateObject("ADODB.Recordset")'sql = "SELECT * FROM Tabela WHERE campo like '%"& valor(i) &"%' "'Rs.open sql,db,3,3 '------------------------------------------------------------------'pesquisa= RS.Fields.Item("novo").value &" "'pesquisa=RS("novo") & " "'response.write "<center>"& pesquisa &"<br><hr>"'next'___________---------------________________________________----------------______________________________ %><%SQL = "SELECT * FROM tabela WHERE campo IN ('"& valor(i) &"')"Rs.open sql,db,3,3pesquisa= RS.Fields.Item("novo").value &" <br><hr>"response.write pesquisanext%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

rockbilly    0

rockbilly
Postado

tentem jogar isso, talvez esteja sendo case sensitive na busca de vcs:

function palavrasem(Str)

 

palavrasem = Replace(Str,"a","[a, á , à , ã]")

palavrasem = Replace(palavrasem,"A","[A, Á, Ã]")

palavrasem = Replace(palavrasem,"e","[e, é , è , ê]")

palavrasem = Replace(palavrasem,"E","[E , É , Ê]")

palavrasem = Replace(palavrasem,"i","[i , í , ì]")

palavrasem = Replace(palavrasem,"I","[i , Í]")

palavrasem = Replace(palavrasem,"o","[o , ó , ò , ô , õ]")

palavrasem = Replace(palavrasem,"O","[O , Ó , Ô , Õ]")

palavrasem = Replace(palavrasem,"u","[u , ú , ù]")

palavrasem = Replace(palavrasem,"U","[u , Ú]")

palavrasem = Replace(palavrasem,"c","[c , ç]")

palavrasem = Replace(palavrasem,"C","[C , Ç]")

palavrasem = palavrasem

end function

 

function palavracom(Str)

palavracom = Replace(Str,"ã","[a]")

palavracom = Replace(palavracom,"Ã","[A]")

palavracom = Replace(palavracom,"á","[a]")

palavracom = Replace(palavracom,"Á","[A]")

palavracom = Replace(palavracom,"ê","[e]")

palavracom = Replace(palavracom,"Ê","[E]")

palavracom = Replace(palavracom,"í","")

palavracom = Replace(palavracom,"Í","")

palavracom = Replace(palavracom,"õ","[o]")

palavracom = Replace(palavracom,"Õ","[O]")

palavracom = Replace(palavracom,"ú","")

palavracom = Replace(palavracom,"Ú","")

palavracom = Replace(palavracom,"ç","[c]")

palavracom = Replace(palavracom,"Ç","[C]")

palavracom = palavracom

end function

 

 

Set conecta = Server.CreateObject("ADODB.Connection")

conecta.Open "bd"

'Estes campos são os mesmos, logo abaixo:

campo1 = PalavraSem(Request.Form("campo"))

campo2 = PalavraCom(Request.Form("campo"))

 

SQL = "SELECT * FROM tb_contas WHERE SETOR LIKE '%" & campo1 & "%' OR SETOR LIKE '%"& campo2 &"%' ORDER BY NOME"

Set tabela = conecta.execute(SQL)

Compartilhar este post

Link para o post
Compartilhar em outros sites

luisfel    0

luisfel
Postado

Nostrinkes consegui fazer a busca funcionar certinho, porém meu problema agora é outro, tenho que fazer a paginação desses resultados... Na pagina 1 consigo trazer certinho, inclusive mostro quantos registros foram achados...Mas qdo passo para a página 2 se perde...Com certeza o problema está nos links dos botões anterior e próximo, mas naum sei como indicar na string que quero a passagem das palavras digitadas no form...Ex: resultados.asp?busca=palavra1+palavra2+etcAntecipadamente Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito