Busca por palavra asp

designtroy · Janeiro 4, 2008

Olá pessoal estou desesperado estou procurando um sistema de busca por palavra com integração asp e flash, já procurei em tudo que é fórum, imasters, mxstudio, asp Brasil e o caramba a quartro e não achei o que preciso, que é uma caixa input que a pessoa digita por exemplo Hidrojateamento, ai aparece escrito pagina produto embaixo um discrição escrito fazemos hidrojatemanto de pastilhas e etc..

Vamos lá fiz o seguinte criei um banco de dados no access (fiz nele pois não entendo my sql ou outra linguagem ) que contém o campo id (auto numeração), nome_pagina (nome da pagina), conteudo (3 linhas como se fosse um descrição da pagina) e por último link que é o link da pagina.

Sei que tenho q colocar no flash uma caixa de input para a pessoa poder digitar e que tem que ter um botão de busca que contém um action que ativa a pagina asp exemplo on (press)

LoadVariables(“busca.asp”).

O que não sei é como escrever o código asp de exibição da busca e como fazer uma paginação caso haja mais de uma pagina.

Obs:.

Precisa ser em ASP ou invés de PHP

Integração ASP flash e access

Não pode ser my sql independe de ser mais rápido preciso que tem conecção ACCESS

Preciso só que exiba a pesquisa do e não inserção no banco

Gostaria muito que pudesse me ajudar

Agradeço desde já quem esta lendo, já estou a mais de 2 semanas todo o dia nesse código, já achei código,em inglês de 200 linhas e varios outros códigos com integração html e até flash e xml que não é o que eu procuro.

Obrigado pela atenção e paciência fuiii.

Notax · Janeiro 4, 2008

aí... segue um exemplo... adapte para as suas necessidades... qualquer duvida ou erro posta aí!

<%
Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, ComandoSQL, Conexao, txtNome
Dim strConnection
'aqui você busca o dado digitado para consulta lá no seu input do flash
txtNome = request.form ("variavel_campo_input")
'aqui você identifica a conexão com o banco, o campo que busca, nome do banco e etc...
ComandoSQL = "select * from sua_tabela where campo_tabela = '" & txtNome &  "' "
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("nome_do_banco.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
strQuery = "SELECT * FROM nome_tabela WHERE campo_do_bd_one_ira_localizar_a_palavra"
Set ObjRs = objConn.Execute(ComandoSQL)
end sub
'abaixo é uma programaçãozinha html... veja que o response.write está em uma tabelinha... mas poderia ser em qualquer outro lugar da página.
%>



<html>
<head>
<title>exemplo de consulta</title>
</head>
<body bgcolor="#FFFFFF">
<div align="center" style="width: 756; height: 119"> 
  <p align="left"><font face="Verdana, Arial, Helvetica, sans-serif"><em><strong> 
    (exemplo consulta)</strong></em></font><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
    </font></b></font></p>
  <table width="947" border="0" cellspacing="0" cellpadding="0" height="1">
    <tr>
      <td width="947" valign="top" height="136"> 
        <table border="0" cellpadding="0" cellspacing="0" width="958">
          <tr bgcolor="ffffff"> 
            <td width="958" colspan="3">
              <table width="100%" border="0" cellspacing="2" cellpadding="2">
                            </table>
              
            </td>
          </tr>
          <tr> 
            <td colspan="3"> 
              <form method="GET" action="sua_pagina_resultado_busca.asp">
                          <%While Not objRS.EOF %>
            
                <table width="902" border="0" cellspacing="0" cellpadding="0" height="1">
                  <tr> 
                    <td height="1" align="center" width="952"> 
                      <table border="0" width="274" height="8" cellpadding="2">
                        <tr bgcolor="#0099FF"> 
                          <td width="266" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">NOME</font></b></font></td>
                        </tr>
                        <tr bgcolor="#FFFFFF"> 
                          <td width="266" height="1" align="center" style="border-style: solid; border-width: 2"> 
                            <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
                              <%Response.write objRS("nome")%>
                              </font> </b></font></div></td>
                        </tr>
                        <%
  'Movendo para o proximo registro
  objRS.MoveNext
  Wend
    %>
                      </table>
                    </td>
                  </tr>
                </table>
              </form>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  <%  
  'fecha a conexão com o bd
  objRs.close
  objConn.close
  Set objRs = Nothing
  Set objConn = Nothing
  %>
</div>
</body>
</html>

espero ter ajudado...

[]'s Notax

Editado Janeiro 4, 2008 por Notax

Entrar

Busca por palavra asp

Pergunta

designtroy

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Notax

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades