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

王朝oracle·作者佚名  2008-05-31
窄屏简体版  字體: |||超大  

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专区

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航