[求助]请高人帮助看看这是什么语言.怎么调用-->风月_无边转移

请高人帮助看看这是什么语言.怎么调用.

现有一个SQL SCRPIT FILE.不知如何使用.请高人指点.
DECLARE
req utl_http.req;
resp utl_http.resp;
tmp VARCHAR2(1024);
rvalue VARCHAR2(10000);
params VARCHAR2(30000);
TYPE srRecType IS RECORD(
aa VARCHAR2(6),
);
bb_url VARCHAR2(100) := aa.com/j2ee/ag/AG3501/register.jsp';
sr srRecType;
BEGIN
aa:= 'SNTSHA';

params := aa' || utl_url.ESCAPE(sr.aa)||'&'||

req := utl_http.begin_request(bb_url, 'POST');
utl_http.set_header(req, 'User-Agent', 'Mozilla/4.0');
utl_http.set_header(req, 'content-type', 'application/x-www-form-urlencoded');
utl_http.set_header(req, 'content-length', length(params));
utl_http.write_text(req, params);
resp := utl_http.get_response(req);

BEGIN
LOOP
utl_http.read_line(resp, tmp, TRUE);

IF TRIM(tmp) IS NOT NULL THEN
rvalue := rvalue || tmp || chr(10);
END IF;
END LOOP;
utl_http.end_response(resp);
EXCEPTION
WHEN utl_http.end_of_body THEN
utl_http.end_response(resp);
END;

-- Final Stage
IF rvalue LIKE 'asdf%' THEN
rvalue := replace(rvalue,chr(10),''); -- Chopping
dbms_output.put_line(rvalue);
ELSE
raise_application_error(-20000, rvalue);
END IF;
END;