roles0.asp

功能齐全的oa系统

<%
Function ComIDIsAll(ObjDB)
	 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.eof and SysRolers.bof then
		%>
		<script language="JavaScript">
		alert("您还没有查看员工基本信息的权限！！\n请您与管理员联系！")
		</script>
		<%
		response.End()
	else
		 if  SysRolers("isall")=0 then
			SysRolers.close
			SysRolers.open "select t_OA_Sys_Department.ParentID 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_Account.AccountID="&Session("AccountID"),ObjDB,1,1
			if SysRolers.bof and SysRolers.eof then
			%>
				<script language="JavaScript">
				alert("您没有所属的上级部门！\n请您与管理员联系！！")
				</script>
			<%
				response.End()
			else
				ComIDIsAll=SysRolers("ParentID")
				SysRolers.close
			end if	
		 end if
	end if
End Function

Function DepIDIsAll(ObjDB)
	 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

Function AddNewComID(ObjDB)
	 dim SysAddNewDepRolers
	 Set SysAddNewDepRolers = Server.CreateObject("ADODB.Recordset")
     SysAddNewDepRolers.open "select t_OA_Sys_Department.ParentID 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_Account.AccountID="&Session("AccountID"),ObjDB,1,1
   	 if SysAddNewDepRolers.bof and SysAddNewDepRolers.eof then
		%>
			<script language="JavaScript">
			alert("您没有所属的上级部门！\n请您与管理员联系！！")
			</script>
		<%
		response.End()
	else
		 AddNewComID=SysAddNewDepRolers("ParentID")
		 SysAddNewDepRolers.close
	end if 
End Function
%>