Ir para conteúdo
Fórum Script Brasil
  • 0

Código Simples


Carlos Rocha

Pergunta


<%
 Option Explicit
%>
<% 'Declara as variaveis.
Dim Conn, DSNtest, busca, tabela, x, pesq, onde, strSQL, sql, Rs_SELECT   
 %>
<%  ' Conecta o Banco de Dados Sql Server
Set Conn = Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={SQL Server};SERVER=Nome_do_Servidor_Sql;UID=sa;PWD=;DATABASE=Nome_do_Banco_de_Dados"
Conn.open DSNtest
%>
<%
IF REQUEST.QUERYSTRING("I") = 1 THEN
           
busca=trim(request.form("chave"))      'Retira os espaços da direita e da esquerda da fraze.
busca=split(busca,chr(32))             'Cria um array e separa cada palavra da strig
tabela = true                          'Cria uma variavel que será usada na exibição do cabeçalho da tabela 
                                       'que será desenhada para exibir os resultados

for x = 0 to Ubound(busca)             'Cria um laço que conta quantas e quais palavras foram separadas

  pesq=busca(x)   ' entrega à variavel pesq, cada uma das palavras digitadas no formulário

'Escolha na linha de baixo qual tipo de busca no texto digitado voce quer fazer: letra por letra ou palavra por palavra

' onde= "texto like '%" & pesq & "%' or titulo like '%" & pesq & "%'"  'String Sql que busca letra por letra                       
  onde= "texto like '" & pesq & "' or titulo like '" & pesq & "'"      'String Sql que busca palavra por palavra
  
  'Cria o Select
    strSQL = "select * from estudos where " & onde & ""
    Set Rs_SELECT = server.createobject("ADODB.Recordset")
    Rs_SELECT.Open strSQl,Conn , 3, 3

     if not Rs_SELECT.eof=true then       ' Se houver resultados 
        if tabela = true then         
          response.Write " <table border=1>"
   response.Write " <tr><td>Titulo</td>"
          response.Write " <td>Texto</td></tr>"
          tabela = false
        end if
        
          do until Rs_SELECT.eof= true                'Cria o laço para impressão dos resultados da pesquiza
          'Imprime os resultados da busca        
          response.Write "<tr><td>"&Rs_SELECT("titulo")&"</td>"
          response.Write " <td>"&Rs_SELECT("texto")&"</td></tr>"
           
          Rs_SELECT.MoveNext 
          Loop                                        'Fim do laço para impressão dos resultados da pesquiza
    end if    
next                                             'Fim do laço for
 response.Write "</table>"  ' Se houver resultados
     if tabela = true then
          response.Write "Não achei Nada!"
     else  'fecha a tabela criada
          response.Write "</table>"
     end if
END IF
%>

<form action=oi.asp?I=1 method=post>
  <p>
  <input type=text name=chave size=100>

    <input type=submit value=enviar>
    </p>
  </form>

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

o que ser isso?

Um codigo que tá funcionando bem? Ou é alguma duvida sua?

Se for um codigo que tá beleza.. que tal postar um link pra esse Tópico dentro do Tópico de Funções?

Abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...