设为首页 |收藏本站 |论坛搜索
登录 注册 找回密码

站长论坛

 找回密码
 注册

QQ登录

只需一步，快速开始

全国各地医院查询重量转换换算RGB颜色查询交通标志大全各类快递查询
简体繁体转换黄金价格实时走势万年历查询实时汇率转换列车时刻查询
在线翻译工具CSS中文手册HTML学习教程MySQL中文手册JavaScript中文手册
PHP安全基础手册PHP5面向对象编程教程正则表达式系统教程SQL Server精华Apache 2.2 中文手册
DOS命令全集指南windows脚本技术中文版股票行情查询历史上的今天邮编区号查询
长度转换换算货币汇率转换常用电话号码体育彩票查询手机位置查询
域名Whois信息查询谷歌PR值查询台州网站建设台州网站开发台州域名注册
天气预报查询长度转换换算器在线电子地图车牌号码查询中国百家姓查询
返回列表 ...发表新帖
查看: 7440|回复: 2
打印 上一主题 下一主题

实时天气预报系统

[复制链接]
跳转到指定楼层
1#
发表于 2009-7-6 12:10:27 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
台州网址导航
实时天气预报系统
项目描述：

实时显示国内要查找的某地的天气预报，可以采用采集的形式，或者是获取网络的XML来获取。

需求范围：

本项目仅实现获取某个地区的天气预报。
进一步，这类型的天气预报可以做成按来访IP来判断地区，然后在进行显示当地的天气预报

难点：

PHP采集技术，XML处理技术
实时, 实时天气预报系统, 天气预报, 系统
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 转播转播 分享分享 分享淘帖

相关帖子

台州维博网络(www.tzweb.com)专门运用PHP+MYSQL/ASP.NET+MSSQL技术开发网站门户平台系统等。
回复

使用道具 举报

2#
 楼主| 发表于 2009-7-6 12:10:36 | 只看该作者
台州网址导航
如何根据ip来判断地区？
台州维博网络(www.tzweb.com)专门运用PHP+MYSQL/ASP.NET+MSSQL技术开发网站门户平台系统等。
回复 支持 反对

使用道具 举报

3#
 楼主| 发表于 2009-7-6 12:10:49 | 只看该作者
台州网址导航
先下个ip数据库，然后convertip(获取的ip)

function convertip($ip) {



    //IP数据文件路径



    $dat_path = ip数据库文件;



        //检查IP地址



        if(!ereg("^([0-9]{1,3}.){3}[0-9]{1,3}$", $ip)){



        return 'IP Address Error';



    }



    //打开IP数据文件



    if(!$fd = @fopen($dat_path, 'rb')){



        return 'IP date file not exists or access denied';



    }



    //分解IP进行运算，得出整形数



    $ip = explode('.', $ip);



    $ipNum = $ip[0] * 16777216 + $ip[1] * 65536 + $ip[2] * 256 + $ip[3];



    //获取IP数据索引开始和结束位置



    $DataBegin = fread($fd, 4);



    $DataEnd = fread($fd, 4);



    $ipbegin = implode('', unpack('L', $DataBegin));



    if($ipbegin < 0) $ipbegin += pow(2, 32);



    $ipend = implode('', unpack('L', $DataEnd));



    if($ipend < 0) $ipend += pow(2, 32);



    $ipAllNum = ($ipend - $ipbegin) / 7 + 1;



    $BeginNum = 0;



    $EndNum = $ipAllNum;



    //使用二分查找法从索引记录中搜索匹配的IP记录



    while($ip1num>$ipNum || $ip2num<$ipNum) {



        $Middle= intval(($EndNum + $BeginNum) / 2);



        //偏移指针到索引位置读取4个字节



        fseek($fd, $ipbegin + 7 * $Middle);



        $ipData1 = fread($fd, 4);



        if(strlen($ipData1) < 4) {



            fclose($fd);



            return 'System Error';



        }



        //提取出来的数据转换成长整形，如果数据是负数则加上2的32次幂



        $ip1num = implode('', unpack('L', $ipData1));



        if($ip1num < 0) $ip1num += pow(2, 32);



        //提取的长整型数大于我们IP地址则修改结束位置进行下一次循环



        if($ip1num > $ipNum) {



            $EndNum = $Middle;



            continue;



        }



        //取完上一个索引后取下一个索引



        $DataSeek = fread($fd, 3);



        if(strlen($DataSeek) < 3) {



            fclose($fd);



            return 'System Error';



        }



        $DataSeek = implode('', unpack('L', $DataSeek.chr(0)));



        fseek($fd, $DataSeek);



        $ipData2 = fread($fd, 4);



        if(strlen($ipData2) < 4) {



            fclose($fd);



            return 'System Error';



        }



        $ip2num = implode('', unpack('L', $ipData2));



        if($ip2num < 0) $ip2num += pow(2, 32);



        //没找到提示未知



        if($ip2num < $ipNum) {



            if($Middle == $BeginNum) {



                fclose($fd);



                return 'Unknown';



            }



            $BeginNum = $Middle;



        }



    }



    $ipFlag = fread($fd, 1);



    if($ipFlag == chr(1)) {



        $ipSeek = fread($fd, 3);



        if(strlen($ipSeek) < 3) {



            fclose($fd);



            return 'System Error';



        }



        $ipSeek = implode('', unpack('L', $ipSeek.chr(0)));



        fseek($fd, $ipSeek);



        $ipFlag = fread($fd, 1);



    }



    if($ipFlag == chr(2)) {



        $AddrSeek = fread($fd, 3);



        if(strlen($AddrSeek) < 3) {



            fclose($fd);



            return 'System Error';



        }



        $ipFlag = fread($fd, 1);



        if($ipFlag == chr(2)) {



            $AddrSeek2 = fread($fd, 3);



            if(strlen($AddrSeek2) < 3) {



                fclose($fd);



                return 'System Error';



            }



            $AddrSeek2 = implode('', unpack('L', $AddrSeek2.chr(0)));



            fseek($fd, $AddrSeek2);



        } else {



            fseek($fd, -1, SEEK_CUR);



        }



        while(($char = fread($fd, 1)) != chr(0))



            $ipAddr2 .= $char;



        $AddrSeek = implode('', unpack('L', $AddrSeek.chr(0)));



        fseek($fd, $AddrSeek);



        while(($char = fread($fd, 1)) != chr(0))



            $ipAddr1 .= $char;



    } else {



        fseek($fd, -1, SEEK_CUR);



        while(($char = fread($fd, 1)) != chr(0))



            $ipAddr1 .= $char;



        $ipFlag = fread($fd, 1);



        if($ipFlag == chr(2)) {



            $AddrSeek2 = fread($fd, 3);



            if(strlen($AddrSeek2) < 3) {



                fclose($fd);



                return 'System Error';



            }



            $AddrSeek2 = implode('', unpack('L', $AddrSeek2.chr(0)));



            fseek($fd, $AddrSeek2);



        } else {



            fseek($fd, -1, SEEK_CUR);



        }



        while(($char = fread($fd, 1)) != chr(0)){



            $ipAddr2 .= $char;



        }



    }



    fclose($fd);



    //最后做相应的替换操作后返回结果



    if(preg_match('/http/i', $ipAddr2)) {



        $ipAddr2 = '';



    }



    $ipaddr = "$ipAddr1 $ipAddr2";



    $ipaddr = preg_replace('/CZ88.Net/is', '', $ipaddr);



    $ipaddr = preg_replace('/^s*/is', '', $ipaddr);



    $ipaddr = preg_replace('/s*$/is', '', $ipaddr);



    if(preg_match('/http/i', $ipaddr) || $ipaddr == '') {



        $ipaddr = 'Unknown';



    }



    return $ipaddr;



}
台州维博网络(www.tzweb.com)专门运用PHP+MYSQL/ASP.NET+MSSQL技术开发网站门户平台系统等。
回复 支持 反对

使用道具 举报

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

网站推广
关于我们
  • 台州朗动科技(Tzweb.com)拥有多年开发网站平台系统门户手机客户端等业务的成功经验。主要从事：政企网站,系统平台,微信公众号,各类小程序,手机APP客户端,浙里办微应用,浙政钉微应用、主机域名、虚拟空间、后期维护等服务，满足不同企业公司的需求，是台州地区领先的网络技术服务商!

Hi,扫描关注我

Copyright © 2005-2026 站长论坛 All rights reserved

Powered by 站长论坛 with TZWEB Update Techonolgy Support

快速回复 返回顶部 返回列表