SetHandler pls_handler  Order deny,allow  Allow from all  AllowOverride None  PlsqlDatabaseUsername         dinya  PlsqlDatabasePassword         dinya  PlsqlDatabaseConnectString    dinya:1521:ora10g  PlsqlAuthenticationMode       Basic

create or replace package cux_html_report as    function t(p_size in number, p_content in varchar2) return varchar2 ;    type c_sql is ref cursor;        procedure main;    procedure html_header(p_title in varchar2);    procedure html_body(p_sql in varchar2,p_column_count in number,p_subtitle in varchar2,p_align in varchar2,p_black in varchar2);    procedure html_tail;        procedure table_h(p_width in number,p_border in number,p_align in varchar2);    procedure table_t;    procedure tr_(p_col_count in number,p_column in varchar2,p_align in varchar2,p_black in varchar2);    procedure tr_h;    procedure tr_t;    procedure td_(p_col_count in number,p_content in varchar2,p_align in varchar2,p_black in varchar2);        procedure report_header(p_title in varchar2);    procedure report_subtitle(p_col_count in number,p_content in varchar2,p_align in varchar2,p_black in varchar2);    procedure report_tail(p_content in varchar2);end ;/create or replace package body cux_html_report as    function t(p_size in number, p_content in varchar2) return varchar2 as         i number:=0;        v_out varchar2(300):='';        p_cont varchar2(1000):=p_content;    begin         for ii in 1..p_size loop            select substr(p_cont,0,decode(instr(p_cont,';'),0,length(p_cont),instr(p_cont,';')-1))             into v_out from dual ;            p_cont:=substr(p_cont,instr(p_cont,';')+1);            i:=i+1;            if i=p_size then                 return v_out;            end if;        end loop;    end ;        /*******************************************************************************        主程序        需要處理分頁的問題    ********************************************************************************/    procedure main as     begin        html_header('我的測試報表');        report_header('我的標題');        html_body('select t.owner||'';''||t.object_name||'';''||t.object_id||'';''||t.object_type||'';''||t.owner                   from all_objects t                   where t.owner=''DINYA''                  and rownum<=100',5,'序號;對象名稱;ID;類型','center','');          report_tail('這里是報表尾');        html_tail;    end;        --頁頭,固定格式    procedure html_header(p_title in varchar2) as     begin         htp.p('                                                                                    ');       end ;        --頁體, 根據SQL程序和字段數,展示數據    procedure html_body(p_sql in varchar2,p_column_count in number,p_subtitle in varchar2,p_align in varchar2,p_black in varchar2) as         i number:=0;        c c_sql;        v_column varchar2(4000);    begin         table_h(90,1,'center');        report_subtitle(p_column_count,p_subtitle,p_align,p_black);        open c for p_sql;        loop            fetch c into v_column;                         exit when c%notfound;            i:=i+1;            tr_(p_column_count,v_column,'left','');        end loop;        table_t;    end ;        --頁尾, 固定內容    procedure html_tail as     begin         htp.p(' ');    end ;            --------------------------------------------------------------------------------    --表頭, 表的屬性    procedure table_h(p_width in number,p_border in number,p_align in varchar2) as     begin         htp.p('');    end ;        --表尾    procedure table_t as     begin         htp.p('');    end ;    --------------------------------------------------------------------------------            --表格行    --------------------------------------------------------------------------------    procedure tr_(p_col_count in number,p_column in varchar2,p_align in varchar2,p_black in varchar2) as     begin         htp.p('

procedure main as begin   owa_util.mime_header(ccontent_type => 'application/vnd.ms-excel');    html_header('我的測試報表');