使用utl_http获取某个http页面内容

DECLARE

req utl_http.req;
resp utl_http.resp;
VALUE VARCHAR2(4000);
BEGIN
req := utl_http.begin_request('http://www.5ienet.com/online.asp');
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;