create or replace procedure user_xmlgen(id in number) is
ctx dbms_xmlgen.ctxHandle;
result_clob CLOB;
output_var varchar2(4000);
offset_var integer := 1;
buf_size integer :=4000;
begin
ctx:=dbms_xmlgen.newContext('select doc from rep_sys_templet where templet_id ='||to_char(id ));
result_clob := dbms_xmlgen.getXML(ctx);
while offset_var < dbms_lob.getlength(result_clob) loop
dbms_lob.read(result_clob,buf_size,offset_var,output_var);
htp.prn(output_var);
offset_var:=offset_var+4000;
end loop;
end ;
//输出XML
ctx dbms_xmlgen.ctxHandle;
result_clob CLOB;
output_var varchar2(4000);
offset_var integer := 1;
buf_size integer :=4000;
begin
ctx:=dbms_xmlgen.newContext('select doc from rep_sys_templet where templet_id ='||to_char(id ));
result_clob := dbms_xmlgen.getXML(ctx);
while offset_var < dbms_lob.getlength(result_clob) loop
dbms_lob.read(result_clob,buf_size,offset_var,output_var);
htp.prn(output_var);
offset_var:=offset_var+4000;
end loop;
end ;
//输出XML
to killerdanny:可以解釋一下各個參數么﹐傳進去的id以及那個table是做什么用的﹖謝謝