php写的文章采集URL补全函数(FormatUrl)

2. $surl="http://bbs.it-home.org/";
3. $gethtm = '首页解决方案';
4. echo formaturl($gethtm,$surl);
5. ?>

输出：首页解决方案 --------- 演示实例 ------------ 原始路径代码：http://www.newnew.cn/newnewindex.aspx 输出演示代码：http://www.maifp.com/aaa/test.php 函数代码：

2. function formaturl($l1,$l2){
3. if (preg_match_all("/(]+src=\"([^\"]+)\"[^>]*>)|(]+href=\"([^\"]+)\"[^>]*>)|(]+src='([^']+)'[^>]*>)|(]+href='([^']+)'[^>]*>)/i",$l1,$regs)){
4. foreach($regs[0] as $num => $url){
5. $l1 = str_replace($url,lIIIIl($url,$l2),$l1);
6. }
7. }
8. return $l1;
9. }
10. function lIIIIl($l1,$l2){
11. if(preg_match("/(.*)(href|src)\=(.+?)( |\/\>|\>).*/i",$l1,$regs)){$I2 = $regs[3];}
12. if(strlen($I2)>0){
13. $I1 = str_replace(chr(34),"",$I2);
14. $I1 = str_replace(chr(39),"",$I1);
15. }else{return $l1;}
16. $url_parsed = parse_url($l2);
17. $scheme = $url_parsed["scheme"];if($scheme!=""){$scheme = $scheme."://";}
18. $host = $url_parsed["host"];
19. $l3 = $scheme.$host;
20. if(strlen($l3)==0){return $l1;}
21. $path = dirname($url_parsed["path"]);if($path[0]=="\\"){$path="";}
22. $pos = strpos($I1,"#");
23. if($pos>0) $I1 = substr($I1,0,$pos);
24. //判断类型
25. if(preg_match("/^(http|https|ftp):(\/\/|\\\\)(([\w\/\\\+\-~`@:%])+\.)+([\w\/\\\.\=\?\+\-~`@\':!%#]|(&)|&)+/i",$I1)){return $l1; }//http开头的url类型要跳过
26. elseif($I1[0]=="/"){$I1 = $l3.$I1;}//绝对路径
27. elseif(substr($I1,0,3)=="../"){//相对路径
28. while(substr($I1,0,3)=="../"){
29. $I1 = substr($I1,strlen($I1)-(strlen($I1)-3),strlen($I1)-3);
30. if(strlen($path)>0){
31. $path = dirname($path);
32. }
33. }
34. $I1 = $l3.$path."/".$I1;
35. }
36. elseif(substr($I1,0,2)=="./"){
37. $I1 = $l3.$path.substr($I1,strlen($I1)-(strlen($I1)-1),strlen($I1)-1);
38. }
39. elseif(strtolower(substr($I1,0,7))=="mailto:"||strtolower(substr($I1,0,11))=="javascript:"){
40. return $l1;
41. }else{
42. $I1 = $l3.$path."/".$I1;
43. }
44. return str_replace($I2,"\"$I1\"",$l1);
45. }
46. ?>