|
|
| 用Oracle存储过程和Oracle WebServer制作动态站点 |
| 作者：佚名 来源：不详 发布时间：2006-5-9 16:51:34 发布人：chinazhan |
 减小字体
 增大字体
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.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专区 asp">oracleasp">存储过程
|
| |
|
[]
[返回上一页]
[打 印]
[收 藏] |
|
| ∷相关文章评论∷ （评论内容只代表网友观点，与本站立场无关！） [更多评论...] |
|
|
设为首页
加入收藏
联系我们
