oracle查詢IP地區資訊

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運行