Script Busca Interna - Alguém Tem? - Artigos, Dicas e Tutoriais de PHP

Olá Pessoal,

Estou procurando um script de busca interna, sem banco de dados, que abra os resultados em uma nova página.. ou seja, form na página 1.php e resultado na página 2.php.

Alguém tem ou indicaria algum que esteja funcionando?

O objetivo é que este script busque no diretório do site todas as páginas contidas lá dentro.

O script pode ser o mais simples possível, o importante é que seja eficiente e funcione.

Obrigada!

<html><head>	<title>Sistema de Busca</title><style>body {background-color: #FFFFFF;margin-left:0px;margin-right: 0px;margin-top: 0px;margin-bottom: 0px;color: "#000000";font-size:8pt; font-family: "arial";}a:link {text-decoration: none; color: #000000;}a:visited {text-decoration: none; color: #000000;}a:hover {text-decoration: underline; color: #000000;}.font08 {font-size:8pt; font-family: "arial";}.font10 {font-size:10pt; font-family: "Arial";}.font12 {font-size:12pt; font-family: "Arial";}.preto {font-size:8pt; font-family: "arial"; color: #000000; font-weight: "bold";}h1 {font-size:14pt; font-family: "arial";}input.user {	background: #ffffff;	border-color: Black;	border: 1px;	border-style: solid;	font-family: Verdana, Geneva, Arial, Helvetica, sans-serif;	font-size: xx-small;}</style></head><body><br><h1 align="center">Pesquisar na Web</h1><p align="center"><FORM method=get> Procura por: <input type=text name=search class="user">  <input type=submit name=Search value=Pesquisar class="user"><br></FORM></p><hr><?#- Start search if($search) {  $q = urlencode($search);  $start = time(); $eng[0]['url'] = "http://www.alltheweb.com/search?cat=web〈=any&query=$q"; $eng[0]['name'] = "AllTheWeb"; $eng[0]['reg'] = '/<dt>.*?href=\"(.*?)\">(.*?)<\/a>.*?<dd>(.*?)<br>/i'; $eng[0]['strip'] = "\n"; $eng[1]['url'] = "http://altavista.com/sites/search/web?q=$q&enc=&kl=XX&search=Search"; $eng[1]['name'] = "Altavista"; $eng[1]['reg'] = "/<A .*?status='(.*?)'.*?\">(.*?)<\/A>.*?<BR>(.*?)<BR>/i"; $eng[1]['strip'] = "\n"; $eng[2]['url'] = "http://search.msn.com/results.asp?ba=(0.0)0&co=(0.10)4.1..2.1.4.1&FORM=MSNH&RS=CHECKED&q=$q&v=1"; $eng[2]['name'] = "MSN"; $eng[2]['reg'] = "/<A CLASS.*?href=\"(.*?)\">(.*?)<\/A><br.*?>(.*?)<br/i"; $eng[2]['strip'] = ""; $eng[3]['url'] = "http://search.excite.com/search.gw?c=web&search=$q&onload="; $eng[3]['name'] = "Excite"; $eng[3]['reg'] = "/pos=.*?;(http.*?)onMouse.*?<b>(.*?)<br>.*?size8>(.*?)<\/span>/i"; $eng[3]['strip'] = "\n"; $eng[4]['url'] = "http://google.yahoo.com/bin/query?p=$q&hc=1&hs=4"; $eng[4]['name'] = "Yahoo"; $eng[4]['reg'] = "/href.*?\*(.*?)\">(.*?)<br>.*?<\/b>(.*?)<br>/i"; $eng[4]['strip'] = "\n";  $urls = array(); $out = array(); $y=0;foreach($eng as $c)   {     $text1 = join("",file($c['url']));     if($c[strip])       $text1 = ereg_replace($c[strip],"",$text1);            preg_match_all($c['reg'],$text1,$matches);     $num = count($matches[0]);          for($x=0;$x<$num;$x++) {     $url = strip_tags($matches[1][$x]);     $title = strip_tags($matches[2][$x]);     $description = strip_tags($matches[3][$x]);     $engine = $c[name];          if($out["$url"])       {         $out["$url"][engine] .= ", '".$engine."'";       }     else       {         $out["$url"][title] = $title;         $out["$url"][description] = $description;         $out["$url"][engine] = $engine;       }        $y++;     }           }#rof $secs = time() - $start;  echo "<p class=font12 align=center>A pesquisa encontrou $y resultados em $secs segundos.</p><br><br>"; echo "<OL>"; while(list($url,$rec) = each($out))   {     extract($rec);     echo " 	<li>	<p align=justify><a href=$url target=_blank><b>$title</b></a><BR>	   $description	<FONT size=1><BR>$url<br></FONT></p>";    } echo "</OL>";   echo "	</BODY>	</HTML>	";	 } #end search?></body></html>

Vê se isso serve.

Boa Sorte

Script Busca Interna - Alguém Tem?

#1 ana_cabral

#2 patrickidalgo

1 user(s) are reading this topic

Script Busca Interna - Alguém Tem?

#1 ana_cabral

#2 patrickidalgo

1 user(s) are reading this topic

Entrar