oracle查询IP地域信息

dreamZhf

于 2012-10-16 16:01:18 发布

阅读量1.1k

点赞数

分类专栏： oracle 文章标签： oracle exception url

本文链接：https://blog.youkuaiyun.com/zhaohaifan/article/details/8077645

版权

oracle 专栏收录该内容

7 篇文章

订阅专栏

declare 
  url varchar2(2000);
  req utl_http.req;
  resp utl_http.resp;
  value  VARCHAR2(1000);
  region VARCHAR2(50);
BEGIN 
  url:= 'http://www.youdao.com/smartresult-xml/search.s?type=ip\&q=25.238.158.9'; 
  req:= utl_http.begin_request(url);
  resp:= utl_http.get_response(req);
  loop
     utl_http.read_line(resp,value,TRUE);
     IF instr(VALUE,'<location>') > 0 THEN
       dbms_output.put_line('网站回复' || value);
       IF instr(VALUE,' ') > 0 THEN
          region := substr(VALUE,instr(VALUE,'>',1)+1,instr(VALUE,' ',2)-instr(VALUE,'>',2)-1);
       ELSE
          region := substr(VALUE,instr(VALUE,'>',1)+1,instr(VALUE,'<',2)-instr(VALUE,'>',2)-1);
       END IF;
       IF region = '' THEN
          dbms_output.put_line('未知地址');
       ELSE
          dbms_output.put_line(region);
       END IF;
     END IF;
  END loop;
  utl_http.end_response(resp);
  EXCEPTION
  WHEN utl_http.end_of_body THEN
  utl_http.end_response(resp);
end;
/

注：使用DBA运行