Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Carlos Rocha

Código Simples

Question

<%
 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>

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148107
    • Total Posts
      643383
×
×
  • Create New...