这次改进,主要是增加了图象的获取,并提供了一个比较完整的获取远端文件的函数。具体代码如下: <? $fcont=file("http://www.bjmb.gov.cn/today.asp"); $arr=array(); for($i=0;$i<count($fcont);$i++){ $tmp=$fcont[$i]; $tmp=ereg_replace("<br>"," ",$tmp); if(!strstr(strtolower($tmp),"img")){ $tmp=trim(strip_tags($tmp)); } else { $st=ereg_replace("><",">⌒<",$tmp); $stt=split("⌒",$st); foreach($stt as $key => $value){ if(strstr($value,"img") ){ $tmp=$value; if(strstr($tmp,"bt9.jpg") || strstr($tmp,"colline.gif")){ $tmp=""; }else{ $tmp=ereg_replace("\"","",$tmp); $st=split("src=",$tmp); $st1=split(" ",$st[1]);getpic("http://www.bjmb.gov.cn/$st1[0]","image"); if(count($st)>2){ $st2=split(" ",$st[2]);getpic("http://www.bjmb.gov.cn/$st1[0]","image"); } $tmp=ereg_replace("src=","width=30 height=30 align=absmiddle src=",$tmp); } } } } if(trim($tmp)!="" && trim($tmp)!=" ") $arr[]=$tmp; } $yb=array(); for($i=2;$i<count($arr)-6;$i++){ $yb[]=$arr[$i]; } ?> <br> <SCRIPT LANGUAGE="JavaScript"> <!-- syb=""; <? $exp="-3-7-9-14-18-20-25-"; for ($i=1;$i<count($yb);$i++){ if (!strstr($exp,"-".(string)($i+1)."-")){ ?> syb=syb+'<?=$yb[$i];?> '; <?}}?> document.write("<?=$yb[0]?>"+":"); document.write("<marquee width=400 align=middle scrollamount=5 scrolldelay=200>"+syb+"预报</marquee>"); //--> </SCRIPT> <? function getpic($url,$dir){ $tmp=split("/",$url); $fname=$tmp[count($tmp)-1]; if(strstr($dir,"\\")){ if(substr($dir,-2)=="\\") $file=$dir.$fname;else $file=$dir."\\".$fname; }else{ if(substr($dir,"/")){ if(substr($dir,-1)=="/") $file=$dir.$fname;else $file=$dir."/".$fname; } else{ return ; } } if(!(file_exists("$dir") && is_dir("$dir"))) mkdir($dir,0777); if(file_exists($file)) return ; $fpo=fopen($file,"wb"); if(!$fpo) return ; $num=0; do{ $num++; $fpi=fopen($url,"r"); }while(!$fpi && $num<3); if(!fpi)return ; while(!feof($fpi)){ $cont=fread($fpi,128); fwrite($fpo,$cont,128); } fclose($fpi); fclose($fpo); } ?>
|