Jump to content


Photo

Poderiam Me Ajudar Com Script De Busca Interna?


  • Faça o login para participar
13 replies to this topic

#1 usuariodaweb

usuariodaweb

    Novato no fórum

  • Usuários
  • 24 posts
  • Sexo:Não informado

Posted 10/06/2004, 20:40

Tem algum script fácil de configurar para buscar arquivos dentro do meu site?
Encontrei alguns que baixei, mas nao entendi muito bem.

Obrigada,
Kátia Moreno
"O importante não é saber, é tentar aprender."
Busca Online
Só Scripts

#2 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 12/06/2004, 10:21

eu fiz um sistema de busca interna feita em asp... simples tem um txt que explica como configurar e talz. todo comentado em portugues

http://www.scriptbra...&...ma de Busca

ele foi meu p´rimeiro script em asp deve ter algum bug, mas qq coisa é só postar aqui que te ajudo a aprimorar ele...
www.andrewsmedina.com.br

#3 vrsbueno

vrsbueno

    Ativo

  • Usuários
  • 351 posts
  • Sexo:Não informado
  • Localidade:Taubaté-SP

Posted 12/06/2004, 12:28

peguei esse buscador. ele fica carragando, carregando, carregando e naum faz nada. eu coloco uma palavra e fica carregando. Nau faz nada!

obs: estou executando do meu pc pelo iis

#4 Troyan

Troyan

    12 Horas

  • Usuários
  • 285 posts
  • Sexo:Não informado
  • Localidade:Mesquita, Rio de Janeiro - Brasil
  • Interesses:Sou programador ASP, PHP, Javascript e ActionScript, além de ser curioso em JSP, ColdFusion e XSL. Trabalho com XML, XHTML, adoro webstandards e a W3C. Também trabalho com tableless e RIA's.<br><br> Formas de contato:<br> Email: dnunes[at]gmail[dot]com<br> ICQ: 68102402<br> MSN: troyandev@hotmail.com<br><br> -------------------------------------<br> - Rio de Janeiro, Brazil<br> - Troyan

Posted 12/06/2004, 17:59

Diga a linguagem que eu faço um rapidinho pra você. Mas eu faço o script, quem vai interpretar os dados e exibí-los é você, ok?
~~ ~
diego nunes
web engineer

~ ~~

#5 Agente Linhares

Agente Linhares

    fuis...abraços!

  • Ex-Admins
  • 3138 posts
  • Sexo:Não informado
  • Localidade:Biritiba Mirim-SP

Posted 12/06/2004, 18:14

busque por FSO
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!

#6 vrsbueno

vrsbueno

    Ativo

  • Usuários
  • 351 posts
  • Sexo:Não informado
  • Localidade:Taubaté-SP

Posted 12/06/2004, 18:44

tah aí!

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'--------------------------------------------------------------------------------------
' ® Copyright 2003 AM Sistema de Busca Interna v0.1b - by Andrews Medina
' Desenvolvido por Andrews Medina - cybermix
' www.andrewsmedina.kit.net
' andrewsmedina@yahoo.com.br
' Esse sistema é um sistema livre e foi feita para estudo ou para ser usado em seu site.
' Para saber como usar e como instalar leia o arquivo manual.txt
'--------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------
' DECALRACAO DE VARIAVEIS - nao mude
'--------------------------------------------------------------------------------------
	Dim ext, rnomes
	Dim comeco1, comeco2, comeco3
	Dim dec
	Dim titcomeco, titfim
	Dim titulo
	Dim objeto, pasta, arquivo
	Dim extensao
	Dim tamanho
	Dim a
	Dim ok
	Dim mensagem
	ok = 0

'--------------------------------------------------------------------------------------
' CONFIGURAÇÔES - aqui voce pode mudar as configuracoes de acordo com a sua vontade
'--------------------------------------------------------------------------------------
	'extensoes dos arquivos a serem procurados
	ext = ".asp .html .htm"
	
	'nome dos arquivos que nao serao buscados
	rnomes = "admin.asp secreto.asp administrador.asp index.asp"
	
	'essa mensagem aparece caso não houver nenhuma palava no registro.
	mensagem = "Não foi encontrado essa palavra em nosso site"
	
'--------------------------------------------------------------------------------------
' FUNÇÕES - NAO MUDAR
'--------------------------------------------------------------------------------------	

'ESSA FUNCAO PEGA A DESCRICAO DO ARQUIVO
function desc(ar)
	
	comeco1 = instr(1, ar, "description", 1)
	comeco2 = InStr(comeco1, ar, "CONTENT=", 1)
	comeco3 = instr(comeco2, ar, ">", 1)-40
	dec = mid(ar, comeco2+8, comeco3)
	dec = replace(dec, ">", "")
	response.write dec
 	 
end function

'--------------------------------------------------------------------------------------

'ESSA FUNCAO PEGA O TITULO DO ARQUIVO
function tit(arq)
	
	titcomeco = instr(1, arq, "<title>", 1)
	titfim = InStr(1, arq, "</title>", 1)-titcomeco-7
	titulo = mid(arq, titcomeco+7, titfim)
	response.write titulo
 	 
end function

'--------------------------------------------------------------------------------------

'ESSA FUNCAO FAZ A BUSCA EM TODOS OS ARQUIVOS DA PASTA PROCURANDO O TEXTO QUE VOCE DIGITOU
function testa(tst)

	'cria o objeto fso (file system object
	Set Objeto = Server.CreateObject("Scripting.FileSystemObject")
	'seta a pasta a ser buscada - no nosso caso a pasta raiz
	Set pasta = objeto.GetFolder(Server.MapPath("./"))

	'aqui temos um laço de repetição que ira porcessr enquanto houver aquivos
	'dentro da pasta
	For Each objFile in pasta.Files
	
  'aqui ele texta se o nome do arquivo é um nome permitido
  if instr(1, rnomes, objFile.name, 1)=0 then
  
 	 'os comandos a seguir server para pegar a extensao do arqivo
 	 extensao = instr(1, objfile.name, ".", 1)
 	 tamanho = len(objfile.name)
      extensao = mid(objfile.name, extensao, tamanho)
	
 	 'a funcao a seguir serve para ver se a extensao do arquivo é uma extensao permitida
 	 if instr(1, ext, extensao, 1)<>0 then
    'criamos o objeto arquivo e abrimos o arquivo
    set Arquivo = Objeto.OpenTextFile(objfile, 1 , false, 0)
    'lemos o arquivo e atribuimos a variavel (a) o conteudo desse arquivo
    a = arquivo.readall
	
    'os comandos a seguir servem para ver se a palavra procurada esta no arquivo e se estiver ira mostrar o nome dele
    if instr(1, a, tst, 1) <> 0 then
   	 ok = 1%>
   	 <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><a href="<%=objfile.name%>"><%tit(a)%></a></td>
        </tr>
        <tr>
          <td><a href="<%=objfile.name%>"><%desc(a)%></a></td>
     	 </tr>
   	 </table>
   	 <hr>
    <%end if
	
 	 end if	
  
  end if	

	next
	
	'aqui ele busca todas as subpastas dentro de uma pasta
	For Each objSubFolder in pasta.SubFolders
	
  'aqui ele procura todos os arquivos dentro da subpasta
  For Each objFile in objsubfolder.Files
	
 	 'aqui ele texta se o nome do arquivo é um nome permitido
 	 if instr(1, rnomes, objFile.name, 1)=0 then
  
    'os comandos a seguir server para pegar a extensao do arqivo
    extensao = instr(1, objfile.name, ".", 1)
    tamanho = len(objfile.name)
     	 extensao = mid(objfile.name, extensao, tamanho)
	
    'a funcao a seguir serve para ver se a extensao do arquivo é uma extensao permitida
    if instr(1, ext, extensao, 1)<>0 then
   	 'criamos o objeto arquivo e abrimos o arquivo
   	 set Arquivo = Objeto.OpenTextFile(objfile, 1 , false, 0)
   	 'lemos o arquivo e atribuimos a variavel (a) o conteudo desse arquivo
   	 a = arquivo.readall
	
   	 'os comandos a seguir servem para ver se a palavra procurada esta no arquivo e se estiver ira mostrar o nome dele
   	 if instr(1, a, tst, 1) <> 0 then
      ok = 1%>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
       	 <tr>
         	 <td><a href="<%=objsubfolder%>/<%=objfile.name%>"><%tit(a)%></a></td>
       	 </tr>
       	 <tr>
         	 <td><a href="<%=objsubfolder%>/<%=objfile.name%>"><%desc(a)%></a></td>
        </tr>
      </table>
      <hr>
   	 <%end if
	
    end if	
  
 	 end if	

  next
	next  

end function

%>
<html>
<head>
<title>AM Sistema de Busca Interna v0.1</title>
</head>
<body>
<table width="44%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="10%"><img src="img/logo.jpg" width="75" height="75"></td>
    <td width="90%"><div align="center"><font size="2" face="Arial, Helvetica, sans-serif">Sistema de Busca Interna v0.1b</font></div></td>
  </tr>
</table>
<form name="form1" method="post" action="index.asp">
<table border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp; </td>
    <td><input name="buscar" type="text"><input name="enviado" type="hidden" value="sim">
      <input type="submit" name="Submit" value="buscar"></td>
  </tr>
</table>
</form>
<p align="center">
  <%
'--------------------------------------------------------------------------------------
' VERIFICA SE O FORMULARIO FOI ENVIADO
'--------------------------------------------------------------------------------------
'se ele foi enviado
if (request.form("enviado")="sim") then

	testa(request.form("busca"))
	
	if not ok<>0 then
	
  'se a palvra a ser buscada nor tiver nenhuma ocorrencia ele mostra a mensagem
  response.write mensagem
	
	end if
	
end if
%>
</p>
<hr>
<p align="center"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">&copy; Copyright
2003 AM Sistema de Busca Interna v0.1b - by <a href="http://www.andrewsmedina.kit.net">Andrews Medina</a></font></p>
</body>
</html>

ele fica carregando a página. dai chega ao meio e para.... fica parado... e naum busca...

#7 usuariodaweb

usuariodaweb

    Novato no fórum

  • Usuários
  • 24 posts
  • Sexo:Não informado

Posted 12/06/2004, 20:00

Enfim,
Vcs chegaram a algum acordo?
Esse script funciona ou não? rrss.
Kátia Moreno
"O importante não é saber, é tentar aprender."
Busca Online
Só Scripts

#8 vrsbueno

vrsbueno

    Ativo

  • Usuários
  • 351 posts
  • Sexo:Não informado
  • Localidade:Taubaté-SP

Posted 12/06/2004, 20:11

calma Katia. Tente ai, pode ser meu pc q esteja ruim.

tu tens quantos anos?

#9 kakaonly

kakaonly

    Turista

  • Usuários
  • 56 posts
  • Sexo:Não informado

Posted 12/06/2004, 20:21

...

Edição feita por: kakaonly, 12/06/2004, 20:22.


#10 usuariodaweb

usuariodaweb

    Novato no fórum

  • Usuários
  • 24 posts
  • Sexo:Não informado

Posted 12/06/2004, 20:24

Tô calma..rs
Bom, vou testar o script que você me passou.
Tenho 23 anos.

Obrigada por enquanto,
Kátia Moreno
"O importante não é saber, é tentar aprender."
Busca Online
Só Scripts

#11 vrsbueno

vrsbueno

    Ativo

  • Usuários
  • 351 posts
  • Sexo:Não informado
  • Localidade:Taubaté-SP

Posted 12/06/2004, 20:29

Hmmm...

Estamos esperando uma resposta dos experts.
Bem, estou online no msn e no icq. Entre em contato:

vrsbueno@hotmail.com

62670799

#12 kakaonly

kakaonly

    Turista

  • Usuários
  • 56 posts
  • Sexo:Não informado

Posted 12/06/2004, 21:13

...

Edição feita por: kakaonly, 12/06/2004, 21:21.


#13 usuariodaweb

usuariodaweb

    Novato no fórum

  • Usuários
  • 24 posts
  • Sexo:Não informado

Posted 12/06/2004, 21:25

Oi.
Te adicionei no meu msn..porém vc está offline.
Bom, o programa nao esta buscando os arquivos..ele volta pra página inicial qdo dou ok.
Espero outras respostas..

Att,
Kátia Moreno
"O importante não é saber, é tentar aprender."
Busca Online
Só Scripts

#14 vrsbueno

vrsbueno

    Ativo

  • Usuários
  • 351 posts
  • Sexo:Não informado
  • Localidade:Taubaté-SP

Posted 13/06/2004, 11:41

Ok.
No meu ocorre a mesma coisa.
Então o problema eh no asp.




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq