oracle utl_http.request,通过ORACLE的UTL_HTTP工具包发送包含POST参数的请求

直接上程序，程序可以直接运行，只要修改IP地址和post参数就可以：

DECLARE

req utl_http.req;

resp utl_http.resp;

l_clob CLOB;

l_buf_raw RAW(10000);

amount NUMBER := 9000;

VALUE VARCHAR2(1000);

l_process VARCHAR2(20);

l_req_blob BLOB;

l_buf_len_std NUMBER := 900;

l_buf_len_cur NUMBER;

l_bod_len NUMBER;

BEGIN

req := utl_http.begin_request('http://159.77.226.31/logincheck.asp', 'POST');

utl_http.set_header(req, 'Content-Type','application/x-www-form-urlencoded'); --该参数代表请求包含POST数据

utl_http.set_header(req, 'Keep-Alive', ' timeout=1');--该参数代表超时

dbms_lob.createtemporary(lob_loc => l_clob, cache => TRUE);

l_clob := 'muser=32323&&passwd=232323&&x=33&&y=17';--POST参数的内容，格式为：变量=值&变量=值

dbms_lob.createtemporary(lob_loc => l_req_blob, cache => TRUE);

heb_lob_pub.clob2blob(p_clob => l_clob, x_blob => l_req_blob,

p_cset_f => 'utf8', p_cset_t => 'utf8');

utl_http.set_header(req, 'Content-Length', dbms_lob.getlength(l_req_blob));--该参数代表我发送的POST报文多长，不可少

utl_http.write_raw(req, l_req_blob);

resp := utl_http.get_response(req);

LOOP

utl_http.read_line(resp, VALUE, TRUE);

dbms_output.put_line(VALUE);

END LOOP;

utl_http.end_response(resp);

utl_http.end_request(req);

EXCEPTION

WHEN utl_http.end_of_body THEN

utl_http.end_response(resp);

WHEN OTHERS THEN

utl_http.end_response(resp);

utl_http.end_request(req);

END;