模板
教程
環境
性能
功能
管理
用Oracle存儲過程和Oracle WebServer制作動態站點
發表于：2007-07-14來源：作者：點擊數：
標簽：
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_TABLEfrom previlege_rangewhere PRIVELEGE_ID = ID; cPRIVELEGE_TABLE C1%ROWTYPE;BEGINhtp.htmlo
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專區
