急!!!!!!!!!!!!!!!!!!!
解决方案 »
- oralce重装后用Tomcat的连接池链接数据库出现问题····!!!蛋疼了好久,哪位大虾帮帮忙啊!!!!!!!!!!!!!!!!!
- 还是关于Struts2向对象传递数值的问题
- 如何为filter-mapping中的/*设置例外
- 这个帖子发错了 就当散分了 呵呵
- 大虾们!!CMS系统应该怎样开发!
- 一个特殊的 中文乱码问题,请高手们进,谢谢
- validator 框架问题100分
- 有朋友在外派到外企公司上班的吗?
- java程序中有的内存不能被垃圾处理器及时处理,这个问题我怎么解决,绝对给高分
- 小问题~~~~~~~~~~会的请进~~~~~~~不会的也来看看
- 2台机器上远程调用EJB错误问题
- 散分
i_AuthID IN user_UserPass.UserID%TYPE, --用户代码
i_FunctionCode IN user_Function.FunctionCode%TYPE, --功能代码
i_Password IN user_UserPass.PASSWORD%TYPE, --密码
o_RetCode OUT INT,
o_RetMsg OUT VARCHAR2
)
/* 授权验证 */
IS
l_location VARCHAR2 (128);
l_Exist INTEGER;
l_Count INTEGER;
l_Counter INTEGER;
l_FunctionCode user_Function.FunctionCode%TYPE;
l_ParentFunctionCode user_Function.FunctionCode%TYPE;//父根限功能代码
l_Passed BOOLEAN;
l_Length INTEGER;
BEGIN
o_RetCode := 0;
o_RetMsg := '操作成功';
l_location := '验证用户登录';
up_SetClearLog ('user_Login',
'验证用户权限',
'INTO',
'admin',
''
);//操作日志 SELECT COUNT (*)
INTO l_Exist
FROM user_UserPass //用户表
WHERE UserID = i_AuthID AND PASSWORD = i_Password; IF l_Exist <> 1
THEN
o_RetCode := 1;
o_RetMsg := '授权验证,用户名或密码无效失败';
up_SetClearLog ('user_Login',
'验证用户权限',
'ERROR',
'admin',
''
);//操作日志
RETURN;
END IF; l_location := '验证用户权限'; SELECT COUNT (*)
INTO l_Count
FROM user_Function f
WHERE TYPE = 'admin'//查找该用户功能代码
IF l_Count = 0
THEN
o_RetCode := 12;
o_RetMsg := '权限代码有误';
up_SetClearLog ('user_Login',
'验证用户权限',
'ERROR',
'admin',
''
);//操作日志
RETURN;
END IF; o_RetCode := 0;
o_RetMsg := '授权验证成功';
up_SetClearLog ('user_Login',
'验证用户权限',
'SUCCESS',
'admin',
''
);//操作日志
EXCEPTION
WHEN OTHERS
THEN
o_RetCode := 1;
o_RetMsg := '操作失败!错误位置:' || l_location;
up_SetClearLog ('user_Login',
o_RetMsg,
'WARN',
'admin',
''
);
END user_Login;本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/zhouyongyang/archive/2009/10/31/4751766.aspx
看看API里面有例子呢.