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

DB2
如何访问大型机、小型机上的DB2 9数据服务器
DB2 9（Viper）快速入门
段云峰：DB2 9对企业有3点帮助
DB2专家王云谈商业智能BI
DB2 9的九大新特性
国内学院派专家对DB2 9新产品赞不绝口
DB2中的数据移动（一）
DB2大事记
DB2编程序技巧(1)
创建一个空的IBM DB2 ECO数据库的方法
在DB2数据库的表中插入和删除数据
在DB2环境中创建DB2数据库
为DB2数据库创建表空间
DB2数据库SQL语法参考手册
使用 DB2 对象：创建模式、表和视图
使用 DB2 对象：创建约束
使用 DB2 对象：创建索引
导入、装载和导出DB2数据库的数据
为DB2数据库添加验证约束
从DB2数据表和视图查询数据

No. « 1 2 3 4 »

技术文章搜索

关键字

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

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