使用utl_http獲取某個http頁面內容

set head off
set feed off
set termout off
set serveroutput on
spool d:test.html

DECLARE
req utl_http.req;
resp utl_http.resp;
VALUE VARCHAR2(4000);

[@more@]

BEGIN

req := utl_http.begin_request('');
utl_http.set_header(req, 'Content-Type', 'text/html; charset=gb2312');
resp := utl_http.get_response(req);
dbms_output.enable(1000000);
LOOP
utl_http.read_line(resp, VALUE, TRUE);
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);
END;
/
spool off

Ref: http://www.itpub.net/thread-826155-1-1.html