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

会计考友

SET serveroutput ON SIZE 40000 　　DECLARE
4 ]1 i! E! Q5 j/ ?　　v_text varchar2(100) := '试验%S已ok';--不能有空白
　　req    utl_http.req;
1 m2 ?( B, \2 F7 A! ]# f7 d　　resp   utl_http.resp;
0 _" K8 {5 N3 y4 k　　value  VARCHAR2(1000);
　　BEGIN
1 t$ O( k1 w0 D( M" A4 E　　v_text := replace(v_text,'%','%25');
　　v_text := replace(utl_encode.text_encode(v_text), '=', '%');
　　req    := utl_http.begin_request('http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=' ||
' g# {# F) p9 Q  }7 ]　　v_text || '&langpair=zh|en');
　　resp   := utl_http.get_response(req);
　　LOOP
/ v  r0 L* k: H7 E+ X　　utl_http.read_line(resp, value, TRUE);
　　value := replace(value,'% S','%S');
+ b- e0 }/ S# D. i: X　　value := replace(value,'{"responseData": {"translatedText":"','');
5 x; h0 h. v( h/ Q9 k* }　　value := replace(value,'"}, "responseDetails": null, "responseStatus": 200}','');
　　dbms_output.put_line(value);
　　END LOOP;
　　utl_http.end_response(resp);
　　EXCEPTION
# R, e/ M# ]+ e# V. B　　WHEN utl_http.end_of_body THEN
　　utl_http.end_response(resp);
　　END;