Ir para conteúdo

POWERED BY:

Arquivado

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

webfuture

Buscar uma ou mais palavras no BD?

Recommended Posts

Olá galera tenho o seguinte codigo:<% Dim letra letra = request.form("busca") registros = 15 pagina = Request.QueryString("pagina") If pagina = "" Then pagina = 1 End If Set conexao = Server.CreateObject("AdoDb.Connection") conexao.ConnectionString = "Provider=SQLOLEDB.1;SERVER=SERVIDOR;" &_ "DATABASE=teste;UID=sa;PWD=;" conexao.open Set rs = Server.Createobject("ADODB.RECORDSET") set rs.ActiveConnection = Conexao rs.CursorType = 3 rs.PageSize = registros sql = "select titulo, url, descricao, data from sites WHERE descricao like '%" & letra & "%' order by data desc" rs.Open sql If rs.EOF Then Response.Write "Nenhum registro encontrado" Else rs.AbsolutePage = pagina While Not rs.EOF AND x < rs.PageSize x = x + 1 %> <a href="<%= rs("url") %>" target="blank"><%= rs("titulo") %></a><br> <%= rs("descricao") %><br> URL; <%= rs("url") %><br><br> <% rs.MoveNext Wend %> <font face="Arial, Verdana" size="2"><b><center>Páginas de Resultado: </b></font> <% anterior = pagina - 1 proxima = pagina + 1 ultima = rs.PageCount primeira = 1 ultm2 = FormatNumber(rs.PageCount - 1,0) If pagina <> 1 Then Response.Write "<font face=Arial, Verdana size=2><b>« <a href=busca.asp?pagina="&primeira&">Primeira Página</a></b></font> " End If If pagina > 1 AND pagina <> 2 Then Response.Write "<font face=Arial, Verdana size=2><b> <a href=busca.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> </b></font> " End If If pagina > 1 Then Response.Write "<font face=Arial, Verdana size=2><b> <a href=busca.asp?pagina="&anterior&">"&anterior&"</a> </b></font> " End If Response.Write "<font face=Arial, Verdana size=2 color=red><b> "&pagina&" </b></font> " If Not rs.EOF Then Response.Write "<font face=Arial, Verdana size=2><b> <a href=busca.asp?pagina="&proxima&">"&proxima&"</a> </b></font> " End If If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then Response.Write "<font face=Arial, Verdana size=2><b> <a href=busca.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> </b></font> " End If If Not rs.EOF Then Response.Write "<font face=Arial, Verdana size=2><b><a href=busca.asp?pagina="&ultima&">Última Página</a> »</b></font> " End If End If rs.Close conexao.close Set rs = Nothing Set conexao = Nothing %>estou arrumando ele ainda mas ja estou com uma duvida / probleminha, por exemplo se eu faço uma busca por: downloads, programas ele so traz resultados se estiver cadastrado desta forma no bd e gostaria de trazer tanto downloads, como programas sem estarem cadastrados nesta ordem, alguem tem um script ou dica para fazer isto?aguardo resposta,Webfuture

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá Kdu, deixa eu tentar explicar melhor, eu quero que o sistema faça o seguinte:vou te dar um exemplo ao acessar por exemplo a pagina do yahoo e fazer uma busca por download, scripts ele vai trazer inumeros resultados certo ? certo.Não trara somente resultados que contenham no cadastro escrito exatamente nesta mesma ordem "download, scripts" mas se tiver somente "download" ou somente "scripts" no banco de dados ele trará os resultados do que achar relacionado e é isto que quero fazer.Aguardo Resposta,WebFuture

Compartilhar este post


Link para o post
Compartilhar em outros sites

Faça um campo a mais na tabela de cada categoria e ponha as areas que ela é relacionada tipo:Forum: ASP, PHP, Cold Fusiondai se o cara procurar por ASP, na tabela Forum vai ser mostrada pq tem a paavra ASP ou seja é relacionado, se for o que entendi esse é uma forma =)Abraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá galera, ola Eletrohoo, então já havia olhado este site ele realmente faz o que eu quero fazer porem o codigo deles é imenso e muito demorado e estou fazendo do zero para ver se pego mais algumas manhas, você conhece algum codigo que faz isto busque por uma ou mais palavras no banco de dados ou algo parecido com este indicado por voce?WebFuture

Compartilhar este post


Link para o post
Compartilhar em outros sites

<%busca = request("busca")arr= split(busca,",")for x = 1 to ubound(arr) if x =1 then varsql = " upper(descricao) like '%" & ucase(arr(x)) & "%' " else varsql = varsql & "or upper(descricao) like '%" & ucase(arr(x)) & "%' " end ifnextsql = "select titulo, url, descricao, data from sites WHERE 1=1 and ("& varsql &") order by data desc"%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá Gastao e galera, estive tentando colocar a palavra buscada no link para proximas páginas mas ainda não consegui, alguém sabe me informar como fazer isto ou alguma dica ? O gastao me pediu para fazer com session mas nao manjo e nao deu certo..rs se eu colocar no link somente um por exemplo palavra=request("palavra") por exemplo se a pessoa busca por palavra1, palavra2 ele so coloca no link o palavra1, o palavra 2 nao vem ...WebFuture

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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