this is a extra element for clear the floated element
为数据库建立HTML分段使用映射
  • 12/31
  • 2008
开发技术 | Oracle 1111 次查看
  在Oracle数据库中,管理tablespaces通常很难实现从SQL查询得到数据的可视化。一种实现tablespaces可视化且更加容易管理的方法是建立类似于碎片重组功能(defragmentation utilities)的分段使用映射(block usage maps)。

  不需要任何图表或者图形功能,你可以使用简单的由Oracelmodplsql包产生的HTML,而modplsql包可在安装Oracle8i和9i时安装。

  这其中也包含着风险,因为这一程序必须由一个DBA帐号来运行,所以DBA帐号必须将使用权限赋予每一个操作计划,而操作计划必须包含在wdbsvr.app文件中。为了保护这一文件,你必须确保这一文件只能被Oracle用户和DBA组查阅。如果你愿意把这一程序编写成一个JSP页或者servlet,你也应该非常小心,以防止外部能够使用DBA帐号。

  DBA视不能在一个PL/SQL查询,所以你必须将PL/SQL安装为SYS,然后将使用权限分配给允许运行PL/SQL的帐号:

  connect sys/<password>

  @blkmap.sql

  grant execute on blkmap to system;

  connect system/<password>

  create synonym blkmap for sys.blkmap;

  在这个例子中,我们建立一个名为blkmap包,这一blkmap包具有两个入口点。其中一个是显示tablespaces列表的一个菜单,另一个是实际使用的tablespace分段映射:

  create or replace package blkma

  as

  procedure ts_menu;

  procedure ts_map(p_name varchar2);

  end blkmap;

  /

  show errors;

  Tablespace菜单的代码可以是一个与分段映射(block map)页关联的tablespaces列表:

  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_id='||ts.tablespace_name||'">'

  ||ts.tablespace_name||'</a></li>');

  end loop;

  htp.p('</ul>');

  htp.p('</body>');

  htp.p('</html>');

  end ts_menu;

  对于tablespace映射,可以生成一个tablespace名称,并请求包含tablespace的每一文件的分段映射。

  procedure ts_map(p_name varchar2)

  is

  begin

  page_open;

  -- open the page

  htp.p('Tablespace: '||p_name);

  htp.p('<hr />');

  for file in

  (

  select file_id

  from dba_data_files

  where tablespace_name = p_name

  order by file_id

  )

  loop

  filemap(file.file_id);

  -- generate a block map for the file

  htp.p('<hr />');

  end loop;

  info_form;

  -- generate a form for segment info

  legend;

  -- generate a legend for color mappings

  page_close;

  -- close the page

  end ts_map;

  对于实际使用的分段映射,我们通常需要显示一个“block”并用颜色表示。使用<table>标签比较复杂。一个更好的方法是生成字符次序,即一段时间之后是间隔,这一间隔允许在任何位置给文本以颜色化。

  为了使得分段映射更加有用,我们想列出鼠标位置的block信息,并且突出组成这一片段的block,我们可以使用<a>标签。首先,生成一个指定a和a:hover的类型,然后建立每一Oracle数据库段的类型:

  <style type="text/css">

  a

  {

  text-decoration: none;

  font-family: monospace;

  font-size: 6pt;

  }

  a:hover {background-color: yellow}

  a.free {background-color: white}

  a.cache {background-color: #FFCC00}

  a.cluster {background-color: #9A0000}

  a.index {background-color: #009900}

  a.lobindex {background-color: #9AFE66}

  a.lobsegment {background-color: #9A99FF}

  a.rollback {background-color: #FF3300}

  a.temporary {background-color: #DFFEFF}

  a.table {background-color: #003399}

  a.other {background-color: magenta}

  body

  {

  background-color: white;

  font-family: sans-serif;

  font-size: 10pt;

  }

  </style>

  我们可以列出有关鼠标位置的block使用者、名称、类型、block数量、以及片段的长度。为了实现这一目的,我们需要两个JavaScript函数,包含以上信息的这两个函数被调用,并传递到表单的域内:

  <script language="javascript">

  function hover(own,nam,typ,bid,len)

  {

  document.form.owner.value = own;

  document.form.name.value = nam;

  document.form.type.value = typ;

  document.form.block_id.value = bid;

  document.form.length.value = len;

  return true;

  }

  function leave()

  {

  document.form.owner.value = "";

  document.form.name.value = "";

  document.form.type.value = "";

  document.form.block_id.value = "";

  document.form.length.value = "";

  return true;

  }

  </script>

  . . .

  <form name="form">

  <table border=0>

  <tr><td>Owner:</td><td><input name="owner" /></td></tr>

  <tr><td>Name:</td><td><input name="name" /></td></tr>

  <tr><td>Type:</td><td><input name="type" /></td></tr>

  <tr><td>Block#:</td><td><input name="block_id" /></td></tr>

  <tr><td>Length:</td><td><input name="length" /></td></tr>

  </table>

  </form>

  对于每一片段,我们需要建立一个block的<a>标签。最后,建立一个显示不同颜色含义的图表:

  <table border=0>

  <tr><thcolspan="2">Legend</th></tr>

  <tr><td><a name="free" class="free">. </a></td>

  <td>Free Space</td></tr>

  <tr><td><a name="cache" class="cache">. </a></td>

  <td>Cache</td></tr>

  <tr><td><a name="cluster" class="cluster">. </a></td>

  <td>Cluster</td></tr>

  <tr><td><a name="index" class="index">. </a></td>

  <td>Index</td></tr>

  <tr><td><a name="lobindex" class="lobindex">. </a></td>

  <td>LobIndex</td></tr>

  <tr><td><a name="lobsegment" class="lobsegment">. </a></td>

  <td>LobSegment</td></tr>

  <tr><td><a name="rollback" class="rollback">. </a></td>

  <td>Rollback</td></tr>

  <tr><td><a name="temporary" class="temporary">. </a></td>

  <td>Temporary</td></tr>

  <tr><td><a name="table" class="table">. </a></td>

  <td>Table</td></tr>

  <tr><td><a name="other" class="other">. </a></td>

  <td>Other</td></tr>

  </table>

  以下是完整代码:

  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<