[ 永遠的UNIX::UNIX技術資料的寶庫 ]   GB | BIG5
首頁 > 編程技術 > Php > 正文
PHP源碼學習：站內搜索HTML版
本文出自:http://php2000.com/~uchinaboy/wdb/wdb.php 作者: uchinaboy (2001-12-01 18:15:37)
<?php 
/****************************************************  
program : Spr2[search_html]  
Author  : uchinaboy   
E-mail  : uchinaboy@163.com  
QQ      : 16863798  
Date    : 2001-8-9 
****************************************************/ 
//require("config.inc.php"); 

function get_msg($path) { 
global $key, $i; 
$handle = opendir($path); 
while ($filename = readdir($handle)) { 
//echo $path."/".$filename."<br>"; 
$newpath = $path."/".$filename; 
$check_type = preg_match("/\.html?$/", $filename); 
if (is_file($newpath) && $check_type) { 
$fp = fopen($newpath, "r"); 
$msg = fread($fp, filesize($newpath)); 
fclose($fp); 
match_show($key, $msg, $newpath, $filename); 
} 
if (is_dir($path."/".$filename) && ($filename != ".") &&  ($filename != "..")) { 
//echo "<BR><BR><BR>".$newpath."<BR><BR><BR>"; 
get_msg($path."/".$filename); 
} 
} 
closedir($handle); 
return $i; 
} 

function match_show($key, $msg, $newpath, $filename) { 
global $key, $i; 
$key = chop($key); 
if ($key) { 
$msg = preg_replace("/<style>.+<\/style>/is", "", $msg); 
$msg = str_replace(" ", "", $msg); 
$msg = preg_replace("/<[^>]+>/", "", $msg); 
$value = preg_match("/.*$key.*/i", $msg, $res); 
if ($value) { 
$res[0] = preg_replace("/$key/i", "<FONT SIZE=\"2\"  COLOR=\"red\">$key</FONT>", $res[0]); 
$i++; 
$link = $newpath; 
print "<a href=\"$link\">$filename</a><BR>"; 
print $res[0]."<BR><br>"; 
} 
}else { 
echo "請輸入關鍵詞"; 
exit; 
}   
} 
$i = get_msg("."); 
echo "<BR><BR>".$i."<BR><BR><BR>"; 

?>
 
 
(http://www.fanqiang.com)     進入【UNIX論壇】
相關文章
 

★  樊強制作 歡迎分享  ★