Oracle技术：怎样在oracle中通过utl_http获得指定网页内容

会计考友

SET serveroutput ON SIZE 40000 　　DECLARE
　　v_text varchar2(100) := '试验%S已ok';--不能有空白
! C- A# R7 E& @$ `% [7 @　　req    utl_http.req;
　　resp   utl_http.resp;
　　value  VARCHAR2(1000);
! }" X- w  y6 j) D' J- X+ m　　BEGIN
　　v_text := replace(v_text,'%','%25');
　　v_text := replace(utl_encode.text_encode(v_text), '=', '%');
- o( T' Y1 w6 ~; y. S* Q1 ^; h　　req    := utl_http.begin_request('http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=' ||
" W5 m8 h. z/ n/ j/ _, O　　v_text || '&langpair=zh|en');
　　resp   := utl_http.get_response(req);
　　LOOP
　　utl_http.read_line(resp, value, TRUE);
　　value := replace(value,'% S','%S');
　　value := replace(value,'{"responseData": {"translatedText":"','');
　　value := replace(value,'"}, "responseDetails": null, "responseStatus": 200}','');
5 M/ t- z3 A9 B5 X　　dbms_output.put_line(value);
　　END LOOP;
! U$ d9 U, ?' m5 S; ?6 ?　　utl_http.end_response(resp);
, o8 Q/ `( J1 M9 ]" ^　　EXCEPTION
9 K6 D) p8 V2 u+ b  }, Q, I　　WHEN utl_http.end_of_body THEN
　　utl_http.end_response(resp);
　　END;