Poderiam Me Ajudar Com Script De Busca Interna?

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...
#1 usuariodaweb

#2 cybermix

#3 vrsbueno

#4 Troyan

#5 Agente Linhares

#6 vrsbueno

#7 usuariodaweb

#8 vrsbueno

#9 kakaonly

#10 usuariodaweb

#11 vrsbueno

#12 kakaonly

#13 usuariodaweb

#14 vrsbueno

1 user(s) are reading this topic

Poderiam Me Ajudar Com Script De Busca Interna?

1 user(s) are reading this topic

Entrar
