PHP读取某站点的链接的函数

<? 
/**********qiushuiwuhen(2002-5-20)***********/ 
if(empty($url))$url = "http://www.csdn.net/expert/";//设置url 
$site=substr($url,0,strpos($url,"/",8));//站点 
$base=substr($url,0,strrpos($url,"/")+1);//文件所在目录 

$fp = fopen($url, "r" );//打开url 
while(!feof($fp))$contents.=fread($fp,1024);// 

$pattern="|href=['"]?([^ '"]+)['" ]|U"; 
preg_match_all($pattern,$contents, $regArr, PREG_SET_ORDER);//匹配所有href= 
for($i=0;$i<count($regArr);$i++){//遍历所有匹配 
if(!eregi("://",$regArr[$i][1]))//是否是相对路径，即是否还有:// 
if(substr($regArr[$i][1],0,1)=="/")//是否是站点的根目录 
echo "link".($i+1).":".$site.$regArr[$i][1]."<br/>";//根目录 
else 
echo "link".($i+1).":".$base.$regArr[$i][1]."<br/>";//当前目录 
else 
echo "link".($i+1).":".$regArr[$i][1]."<br/>";//相对路径 
} 
fclose($fp); 
?>  php爱好者站 http://www.phpfans.net 文章|教程|下载|源码|论坛.