用Oracle存储过程和Oracle WebServer制作动态站点
作者： 来源：Internet 添加时间：2006-5-25 22:19:32| 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专区 站内搜索 |