Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
biducaes

Sistema de Busca em ASP!

Posts recomendados

E aí Galera!!

Gostaria de saber se alguém possui um tutorial ou possa me indicar algum site que me auxilie na elaboração de um sistema de busca em ASP?

Este sistema seria uma busca interna, onde a conexão seria uma tabela em um banco de dados em .mdb

Alguém poderia me dar uma ajuda?

Um grande abraço a todos e muito thanks!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Fala aí Galera!!

Ví que algumas pessoas entraram e não responderam minha pergunta... mas tá ok!

Consegui fazer a busca na boa... na qual estou postando aqui os 4 códigos para vocês! Está funcionando perfeitamente! Somente queria fazer uma coisa, na qual não estou conseguindo nem a pau!

É que se caso a busca não obter resultado do banco, que apareça a mensagem "NÃO FOI ENCONTRADO" ou algo parecido! Tentei de tudo... mas não consegui.. caso alguém tiver uma solução.. por favor... me auxilie nessa aí!

Um abraço!

CONEXAO (conexao.asp)



<%
<%
Dim MM_Conexao_STRING
MM_Conexao_STRING = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\site\conexao\banco.mdb"
%>

FORMULÁRIO DE BUSCA (busca.asp)



<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>

<body>
<form name"Pesquisa" method="get" action="Resultado.asp">


Digite aqui para Pesquisar </p>



<input type="text" name="palavra" value="">
</p>



  <input type="submit" name="Submit" value="Pequisar">
</p>
</form>
</body>
</html>

PÁGINA DE RESULTADO (resultado.asp)



<%@LANGUAGE="VBSCRIPT"%>

<%
Dim Busca__MMColParam
Busca__MMColParam = "1"
If (Request.QueryString("palavra") <> "") Then
  Busca__MMColParam = Request.QueryString("palavra")
End If
%>
<%
Dim Busca
Dim Busca_numRows

Set Busca = Server.CreateObject("ADODB.Recordset")
Busca.ActiveConnection = MM_Conexao_STRING
Busca.Source = "SELECT * FROM Biblioteca WHERE Titulo LIKE '%" + Replace(Busca__MMColParam, "'", "''") + "%'"
Busca.CursorType = 0
Busca.CursorLocation = 2
Busca.LockType = 1
Busca.Open()

Busca_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Busca_numRows = Busca_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName
%>
<%

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT Busca.EOF))
%>


  <table width="550" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td width="58">Título</td>
      <td width="492">[url="detalhes.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "]"><%=(Busca.Fields.Item("Titulo").Value)%>[/url]</td>
    </tr>
    <tr>
      <td>Autor</td>
      <td>[url="detalhes.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "]"><%=(Busca.Fields.Item("Autor").Value)%>[/url]</td>
    </tr>
  </table>
  <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Busca.MoveNext()
Wend
%>
  


    <%
Busca.Close()
Set Busca = Nothing
%>

DETALHES DO RESULTADO "LINK" (detalhes.asp)



<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim detalhes__MMColParam
detalhes__MMColParam = "1"
If (Request.QueryString("Código") <> "") Then
  detalhes__MMColParam = Request.QueryString("Código")
End If
%>
<%
Dim detalhes
Dim detalhes_numRows

Set detalhes = Server.CreateObject("ADODB.Recordset")
detalhes.ActiveConnection = MM_Conexao_STRING
detalhes.Source = "SELECT * FROM Biblioteca WHERE Código = " + Replace(detalhes__MMColParam, "'", "''") + ""
detalhes.CursorType = 0
detalhes.CursorLocation = 2
detalhes.LockType = 1
detalhes.Open()

detalhes_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>

<body>
<table width="550" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="110">Código</td>
    <td width="440" height="30"><%=(detalhes.Fields.Item("Código").Value)%></td>
  </tr>
  <tr>
    <td>Título</td>
    <td height="30"><%=(detalhes.Fields.Item("Titulo").Value)%></td>
  </tr>
  <tr>
    <td>Autor</td>
    <td height="30"><%=(detalhes.Fields.Item("Autor").Value)%></td>
  </tr>
</table>
</body>
</html>
<%
detalhes.Close()
Set detalhes = Nothing
%>

Bem pessoal.. espero que eu tenha ajudado a quem entrou neste tópico e espero que alguém possa me ajudar!

Um grande abraço a todos!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Aprenda_a_Ler_Resistores_e_Capacitores-capa-3d-newsletter.jpg

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!