roles.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 30 行

<%
'select t_OA_SYS_Department.ID,t_OA_SYS_Account.ID,t_OA_Sub_SubRoles.isall from t_OA_SYS_Department,t_OA_Sub_SubRoles,t_OA_SYS_Account,t_OA_SYS_Department_Account where
't_OA_SYS_Department.ID=t_OA_SYS_Department_Account.DepID and t_OA_SYS_Department_Account.AccountID=t_OA_SYS_Account.ID and t_OA_SYS_Account.SubRoles=t_OA_Sub_SubRoles.SubRoleID and t_OA_SYS_Department.ParentID=0


'select t_OA_Sub_SubRoles.*,t_OA_SYS_Account.ID from t_OA_Sub_SubRoles,t_OA_SYS_Account where t_OA_Sub_SubRoles.SubRoleID=t_OA_SYS_Account.SubRoles
Function ComIDIsAll()
	 dim SysRolers
	 Set SysRolers = Server.CreateObject("ADODB.Recordset")
     SysRolers.open "select t_OA_Sub_SubRoles.isall from t_OA_Sub_SubRoles,t_OA_SYS_Account where t_OA_Sub_SubRoles.SubRoleID=t_OA_SYS_Account.SubRoles and t_OA_SYS_Account.ID="&Session("AccountID"),ObjDB,1,1
     if  SysRolers("isall")=0 then
	 	SysRolers.close
		SysRolers.open "select t_OA_Sys_Department.ID from t_OA_Sys_Department,t_OA_Sys_Department_Account where t_OA_Sys_Department_Account.DepID=t_OA_Sys_Department.ID and t_OA_Sys_Department.ParentID=0 and t_OA_Sys_Department_Account.AccountID="&Session("AccountID"),ObjDB,1,1
		ComIDIsAll=SysRolers("ID")
		SysRolers.close	
	 end if
End Function

Function DepIDIsAll()
	 dim SysDepRolers
	 Set SysDepRolers = Server.CreateObject("ADODB.Recordset")
     SysDepRolers.open "select t_OA_Sub_SubRoles.isall from t_OA_Sub_SubRoles,t_OA_SYS_Account where t_OA_Sub_SubRoles.SubRoleID=t_OA_SYS_Account.SubRoles and t_OA_SYS_Account.ID="&Session("AccountID"),ObjDB,1,1
     if  SysDepRolers("isall")=0 then
	 	SysDepRolers.close
		SysDepRolers.open "select DepID from t_OA_Sys_Department_Account where t_OA_Sys_Department_Account.AccountID="&Session("AccountID"),ObjDB,1,1
		DepIDIsAll=SysDepRolers("DepID")
		SysDepRolers.close	
	 end if
End Function
%>