PHP获取ip对应地区和使用的网络类型

<?php
//原程序有问题，现修改为ip138数据库
  /**
  * 获取IP地区
  * Enter description here ...
  * @param unknown_type $ip
  */
 function GetArea($ip){

	$url = "http://www.ip138.com/ips8.asp?ip=".$ip."&action=2";
	$contents = file_get_contents($url);
	preg_match_all('|<li>本站主数据：.*</li>|',$contents,$rsR);
	$rsR[0][0] = str_replace("<li>本站主数据：", "", $rsR[0][0]);
	$pos = strpos($rsR[0][0],'</li>');
	$Area = substr_replace($rsR[0][0],'',$pos);
	return $Area;
 }
 header('Content-type:text/html;Charset=gb2312');
 $area = GetArea('218.242.232.194');
 print_r($area);
?>