<?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);
?>