`
高成锋
  • 浏览: 51271 次
  • 性别: Icon_minigender_1
  • 来自: 南京
社区版块
存档分类
最新评论

PL/SQL Web编程初接触

编程WebSQLSQL Server浏览器
阅读更多

----------------------页面封装包头-----------------------

create or replace package formattype
as
  function pagestart(title in varchar2) return varchar2;
  function introtext(text in varchar2) return varchar2;
  function pageend return varchar2;
end;

 

----------------------数据操作包头---------------------------

create or replace package show_package
as
  procedure showemplist;
end;

 

-------------------------页面封装包体--------------------------

create or replace package body formattype
as
  function pagestart(title in varchar2) return varchar2
  is
    retval varchar2(32767);
    begin
      retval := '<html xmlns="http:\/\/www.w3.org\/1999\/xhtml">'
        ||'<head>'
        ||'<title>'||title||'</title>'
        ||'</head>'
        ||''
        ||'<body bgcolor="#FFFFFF">'
        ||'<table width="550">'
        ||'<tr>'
          ||'<td>'||title||'</td>'
        ||'</tr>'
        ||'</table>'
        ||'<table width="550"><tr><td>';
      return retval;
   end;
   function introtext(text in varchar2) return varchar2
   is
    retval varchar2(32767);
    begin
      retval := '<font size="1">'||text||'</font>';
    return retval;
   end;
   function pageend return varchar2
   is
    retval varchar2(32767);
    begin
      retval := to_char(sysdate,'yyyy-mm-dd hh24:mi:ss')||'</td>'
        ||'</tr>'
        ||'</table>'
        ||'</body>'
        ||'</html>';
    return retval;
   end;
end;

 

--------------------------数据操作包体----------------------------------------

create or replace package body show_package
as
  procedure showemplist
  is
      cursor e_cur is select * from emp order by empno desc;
      r_emp emp%ROWTYPE;
    begin
      htp.p(formattype.pagestart('emp 信息一览表'));
      htp.p(formattype.introtext('显示所有信息'));
      htp.p('<table cellpadding="4">');
      htp.p(' <tr>');
      htp.p('      <th>编号</th>');
      htp.p('      <th>姓名</th>');
      htp.p('      <th>薪水</th>');
      htp.p(' </tr>');
      open e_cur;
      loop
        fetch e_cur into r_emp;
        exit when e_cur%notfound;
        htp.p(' <tr>');
        htp.p('      <td>'||r_emp.empno||'</td>');
        htp.p('      <td>'||r_emp.ename||'</td>');
        htp.p('      <td>'||r_emp.sal||'</td>');
        htp.p(' </tr>');
      end loop;
      close e_cur;
      htp.p('</table>');
      htp.p(formattype.pageend);
   end;
end;

--------------------------------------------------------------------------

 

配置好Http Server ，在浏览器中输入 http://www.<hostname>:<port>/<directoryAddress>/show_package.showemplist 就可以在页面中预览了

 

分享到：
| Oracle Http Server？？？？？？
评论
发表评论

您还没有登录,请您登录后再发表评论

相关推荐

Magicbox
Global site tag (gtag.js) - Google Analytics