日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

改進后的《自動顯示天氣預報》小程序(Linux與Windows環境都可以)

改進后的《自動顯示天氣預報》小程序(Linux與Windows環境都可以)

更新時間:2022-05-03 文章作者:未知 信息來源:網絡 閱讀次數:

這次改進,主要是增加了圖象的獲取,并提供了一個比較完整的獲取遠端文件的函數。具體代碼如下:
<?
$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);
}
?>

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 91视频免费网址 | 久久精品国产线看观看亚洲 | 黄黄的网站在线观看 | 波多野结衣在线视频播放 | 久久国产成人精品国产成人亚洲 | 韩国免又爽又刺激激情视频 | 亚洲大黑香蕉在线观看75 | 天天操夜夜嗨 | 久久www免费人成_看片美女图 | 中文字幕亚洲精品日韩精品 | 青草娱乐极品免费视频 | 欧美综合图片一区二区三区 | 久久91精品国产91久久麻豆 | 狠狠的干狠狠的操 | 在线有码 | 欧美成人四级剧情在线播放 | 日韩中文字幕免费在线观看 | 亚洲国产成人va在线观看网址 | 日韩激情中文字幕一区二区 | 91碰碰视频| 成人亚洲在线 | 欧洲自拍偷拍 | 美女网站在线看 | 中文字幕亚洲一区 | 91免费看视频 | 四虎www.| 欧美亚洲另类视频 | 国产美女精品三级在线观看 | 精品欧美日韩一区二区 | 久久受www免费人成_看片中文 | 巨胸美女狂喷奶水www网麻豆 | 大美香蕉伊在看欧美 | 三级做爰大爽视频网站 | 中文字幕欲求不满系列 | 国产高清国内精品福利色噜噜 | 国产a v高清一区二区三区 | 久久成人毛片 | eeuss久久久精品影院 | 人人玩人人弄人人曰 | 国产日韩一区二区三区在线播放 | 亚洲免费不卡 |