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

会计考友

SET serveroutput ON SIZE 40000 　　DECLARE
　　v_text varchar2(100) := '试验%S已ok';--不能有空白
% P; c) Q5 D4 J5 N6 M4 a  E# p　　req    utl_http.req;
; W/ P+ W" d1 f7 y' p　　resp   utl_http.resp;
　　value  VARCHAR2(1000);
　　BEGIN
　　v_text := replace(v_text,'%','%25');
　　v_text := replace(utl_encode.text_encode(v_text), '=', '%');
! R" y# t2 D1 l* D1 m: Y5 g　　req    := utl_http.begin_request('http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=' ||
5 T, g) q/ M$ M; P/ o! @. n　　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}','');
1 \0 Z+ u9 H3 M4 |5 Y　　dbms_output.put_line(value);
　　END LOOP;
　　utl_http.end_response(resp);
　　EXCEPTION
　　WHEN utl_http.end_of_body THEN
　　utl_http.end_response(resp);
8 y4 F' D  T4 e; n4 i4 k　　END;