php通过调用ip138数据库获取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(&#39;|<li>本站主数据：.*</li>|&#39;,$contents,$rsR);
  $rsR[0][0] = str_replace("<li>本站主数据：", "", $rsR[0][0]);
  $pos = strpos($rsR[0][0],&#39;</li>&#39;);
  $Area = substr_replace($rsR[0][0],&#39;&#39;,$pos);
  return $Area;
 }
 header(&#39;Content-type:text/html;Charset=gb2312&#39;);
 $area = GetArea(&#39;218.242.232.194&#39;);
 print_r($area);
?>