利用分段使用映射为oracle数据库建立HTML
2007-05-11 12:23:09 来源:WEB开发网以下是完整代码: create or replace package blkmap
authidcurrent_user
as
procedure ts_menu;
procedure ts_map(p_name varchar2);
end blkmap;
/
show errors;
create or replace package body blkmap
as
procedure page_open;
procedure info_form;
procedure filemap(p_id number);
procedure legend;
procedure page_close;
--
procedure ts_menu
is
begin
htp.p('<html>');
htp.p('<body bgcolor="white">');
htp.p('<h2>Tablespaces</h2>');
htp.p('<ul>');
for ts in (select tablespace_name from dba_tablespaces) loop
htp.p('<li><a href="blkmap.ts_map?p_name='||ts.tablespace_name||'">'
||ts.tablespace_name||'</a></li>');
end loop;
htp.p('</ul>');
htp.p('</body>');
htp.p('</html>');
end ts_menu;
--
procedure ts_map(p_name varchar2)
is
begin
更多精彩
赞助商链接