当前位置: 首页 > 图文教程 > 数据库 > DB2 > 用Oracle存储过程和Oracle WebServer制作动态站点

DB2
监控 DB2 活动之使用解释工具分析SQL
DB2 Viper 快速入门
监控 DB2 活动之Visual Explain详细介绍
监控 DB2 活动之其他问题判断工具
DB2 与 Ruby on Rails 入门之一
DB2 实用程序介绍之EXPORT实用程序
浅谈DB2数据库故障处理及最佳实践
使用重定向恢复DB2数据库
DB中如何查询Table占用空间的大小
DB2 实用程序介绍之LOAD实用程序
DB2 实用程序介绍之数据移动实用程序
DB2 实用程序介绍之IMPORT实用程序
SQL Server 2005对DBA的要求是否会更高
IBM XML tools for DB2 Version 9.5 及其用法
DB2 VS2005.Net插件进行XML数据验证
三种级别的DB2数据库字符集的设置与修改
理解DB2 9中新的查询:XQuery
DB2 存储和检索 XML 数据
VS2005构建针对DB2的应用程序和Web站点
.Net开发采用DB2 XML的应用程序示例

DB2 中的 用Oracle存储过程和Oracle WebServer制作动态站点


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-31   浏览: 45 ::
收藏到网摘: n/a

create or replace PROCEDURE xj_homepage   (cols IN owa_util.ident_arr)   IS
     col_counter INTEGER;      counter INTEGER;     ID CHAR(2);     CURSOR C1 IS
    select PRIVELEGE_TABLE     from previlege_range    where PRIVELEGE_ID = ID;
     cPRIVELEGE_TABLE C1%ROWTYPE;BEGIN    htp.htmlopen;    htp.headopen;
   htp.title(主页);    htp.headclose;    htp.bodyopen;    htp.line;
   htp.img(/ows-img/ows.gif);    htp.header(1, 主页);    htp.line;
   htp.paragraph;
   select count(*) into counter from user_define where USER_ID = cols(2) and USER_PASS = cols(3);
   if (counter > 0) then
    select PRIVELEGE_ID into ID from user_define where USER_ID = cols(2) and USER_PASS = cols(3);
    htp.print( 您的权限:|| ID);       
    htp.formOpen(owa_util.get_owa_service_path|| xj_resurlts) ;
    htp.formhidden(COLS,dummy);       
    htp.formSelectOpen(COLS,选择查询表:) ;       open C1;    loop
        fetch C1 into cPRIVELEGE_TABLE;        EXIT WHEN C1%NOTFOUND;
        htp.formSelectOption(cPRIVELEGE_TABLE.PRIVELEGE_TABLE);       end loop;
    close C1;       htp.formSelectClose;       htp.paragraph;
       htp.formsubmit(NULL,确认);    htp.formClose;   else
    htp.print( 您输入的标识符:|| cols(2));    htp.paragraph;
        htp.print( 您输入的口令:|| cols(3));        htp.paragraph;
    htp.print(用户标识符或口令错!请返回登录窗口。) ;    htp.paragraph;   end if;    
      htp.anchor(http://www.sql.com.cn,sql 技术站点);       htp.line;
      htp.address((c)1998 豆腐制作);       htp.bodyclose;       htp.htmlclose;
END;  来自: ASP专区