Poderiam Me Ajudar Com Script De Busca Interna?
#1
Posted 10/06/2004, 20:40
Encontrei alguns que baixei, mas nao entendi muito bem.
Obrigada,
#2
Posted 12/06/2004, 10:21
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...
#3
Posted 12/06/2004, 12:28
obs: estou executando do meu pc pelo iis
#4
Posted 12/06/2004, 17:59
diego nunes
web engineer
~ ~~
#5
Posted 12/06/2004, 18:14
---------------------------------------------------------------------------
> 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
Posted 12/06/2004, 18:44
<%@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> </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">© 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
Posted 12/06/2004, 20:00
Vcs chegaram a algum acordo?
Esse script funciona ou não? rrss.
#8
Posted 12/06/2004, 20:11
tu tens quantos anos?
#9
Posted 12/06/2004, 20:21
Edição feita por: kakaonly, 12/06/2004, 20:22.
#10
Posted 12/06/2004, 20:24
Bom, vou testar o script que você me passou.
Tenho 23 anos.
Obrigada por enquanto,
#11
Posted 12/06/2004, 20:29
Estamos esperando uma resposta dos experts.
Bem, estou online no msn e no icq. Entre em contato:
vrsbueno@hotmail.com
62670799
#12
Posted 12/06/2004, 21:13
Edição feita por: kakaonly, 12/06/2004, 21:21.
#13
Posted 12/06/2004, 21:25
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,
#14
Posted 13/06/2004, 11:41
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)