[转载]PHP读取某站点的链接的函数
<P>来源:CSDN</P><P>
<TABLE cellSpacing=0 cellPadding=1 width="90%" align=center border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 14px; LINE-HEIGHT: 160%; WORD-WRAP: break-word">
<P>原理：读取某站点的源文件，再利用正则分析其源代码，得到所有链接<BR><?<BR>/**********qiushuiwuhen(2002-5-20)***********/<BR>if(empty($url))$url = "<A href='http://www.csdn.net/expert/";//'>[url]http://www.csdn.net/expert/[/url]";//</A>设置url<BR>$site=substr($url,0,strpos($url,"/",8));//站点<BR>$base=substr($url,0,strrpos($url,"/")+1);//文件所在目录</P>
<P>$fp = fopen($url, "r" );//打开url<BR>while(!feof($fp))$contents.=fread($fp,1024);//</P>
<P>$pattern="|href=['\"]?([^ '\"]+)['\" ]|U";<BR>preg_match_all($pattern,$contents, $regArr, PREG_SET_ORDER);//匹配所有href=<BR>for($i=0;$i<count($regArr);$i++){//遍历所有匹配<BR>if(!eregi("://",$regArr[$i][1]))//是否是相对路径，即是否还有://<BR>if(substr($regArr[$i][1],0,1)=="/")//是否是站点的根目录<BR>echo "link".($i+1).":".$site.$regArr[$i][1]."<br/>";//根目录<BR>else<BR>echo "link".($i+1).":".$base.$regArr[$i][1]."<br/>";//当前目录<BR>else<BR>echo "link".($i+1).":".$regArr[$i][1]."<br/>";//相对路径<BR>}<BR>fclose($fp);<BR>?> </P></TD></TR>
<TR>
<TD align=middle><!-- Ads by Google --></TD></TR></TBODY></TABLE></P> 这个东西正好可以给我用来……
页:
[1]