Sistema de Busca em ASP!

biducaes · 8 de novembro de 2006

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!

biducaes · 9 de novembro de 2006

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