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

DB2
DB2常用傻瓜问题1000问(四)
DB2常用傻瓜问题1000问(三)
DB2常用傻瓜问题1000问(二)
JSP如何连接DB2数据库
常见数据库系统比较 DB2数据库
DB2数据库的备份和恢复
DB2个人版(Linux)安装
IBM DB2 基本性能调整
DB2 UDB V8.1管理学习笔记(三)
DB2 UDB V8.1管理学习笔记(一)
DB2数据同步方面的经验
DB2编程序技巧 (十)
DB2编程序技巧 (九)
DB2编程序技巧 (八)
DB2编程序技巧 (七)
DB2编程序技巧 (六)
DB2编程序技巧 (五)
DB2编程序技巧 (三)
DB2编程序技巧 (一)
IBM DB2 日常维护汇总（九）

No. « 1 2 3 4 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-31   浏览: 44 ::
收藏到网摘: 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专区