commonpage.inc.bak2

物业管理和办公自动化系统

		
		'' 公司工作计划
		sTemp = sTemp & msub & ".addsubItem(new mMenuItem('公司工作计划','../workmgr/plancompany.asp','self',false,'公司工作计划',null,'','','',''));" & vbLF
		
		sTemp = sTemp & menu & ".addItem(" & msub & ");" & vbLF


		'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		'' 工作汇报子菜单
		'' 个人工作计划：除部门经理级外，其他人都显示个人工作计划菜单
		'' 部门工作计划：只有部门经理级显示部门工作计划菜单
		'' 下级工作计划：公司领导级显示各部门工作计划；部门经理级显示下级工作计划
		'' 公司工作计划：（无）
		sub_id = sub_id + 1		'' 增加一个子菜单，子菜单编号递增1
		msub = "msub" & sub_id
		'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

		sTemp = sTemp & msub & "=new mMenuItem('工作汇报','','self',false,'','1','','','','');" & vbLF

		'' 个人／部门工作计划
		if sAdminLevel = "2" then	'' 部门经理级显示部门工作计划菜单
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('部门工作汇报','../workmgr/reportdepartment.asp','self',false,'部门工作汇报',null,'','','',''));" & vbLF
		else									'' 其他显示个人工作计划菜单
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('个人工作汇报','../workmgr/reportpersonal.asp','self',false,'个人工作汇报',null,'','','',''));" & vbLF
		end if
	
		'' 下级工作计划
		if sAdminLevel = "1" then		'' 公司领导级别，显示各部门工作计划
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('各部门工作汇报','../workmgr/reportdepartments.asp','self',false,'各部门工作计划',null,'','','',''));" & vbLF
		elseif sAdminLevel = "2" then	'' 部门经理级别，显示部门内部各员工的工作计划
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('下级工作汇报','../workmgr/reportunderlings.asp','self',false,'下级工作计划',null,'','','',''));" & vbLF
		end if
		sTemp = sTemp & menu & ".addItem(" & msub & ");" & vbLF & vbLF


		''##########################################################
		'' 会议管理主菜单
		'' 一般人都有会议查询和会议申请的权限
		'' 只有办公室主任才能安排临时会议、安排例会、管理例会、审批会议、设置会议召开情况、审批会议纪要
		menu_id = menu_id + 1	'' 增加一个主菜单，主菜单编号递增1
		menu = "mpmenu" & menu_id
		''##########################################################

		sTemp = sTemp & menu & "=new mMenu('会议管理','','self','','','','');" & vbLF
		sTemp = sTemp & menu & ".addItem(new mMenuItem('会议查询','../meeting/list_historymeeting.asp','self',false,'会议查询',null,'','','',''));" & vbLF & vbLF

		
		'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		'' 会议申请子菜单
		sub_id = sub_id + 1		'' 增加一个子菜单，子菜单编号递增1
		msub = "msub" & sub_id
		'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

		sTemp = sTemp & msub & "=new mMenuItem('会议申请','','self',false,'','1','','','','');" & vbLF
		sTemp = sTemp & msub & ".addsubItem(new mMenuItem('填写会议申请','../meeting/applymeeting.asp','self',false,'填写会议申请表',null,'','','',''));" & vbLF
		sTemp = sTemp & msub & ".addsubItem(new mMenuItem('修改会议申请','../meeting/list_reapplymeeting.asp'" & _
														",'self',false,'修改会议申请表',null,'','','',''));" & vbLF

		'' 只有办公室主任才能安排临时会议及安排例会
		if IsOfficer then
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('安排临时会议','../meeting/applyurgentmeeting.asp','self',false,'安排临时会议',null,'','','',''));" & vbLF
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('安排例会','../meeting/routinemeeting.asp','self',false,'安排例会',null,'','','',''));" & vbLF
		end if
		sTemp = sTemp & menu & ".addItem(" & msub & ");" & vbLF


		'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		'' 会议处理子菜单，只有办公室主任才有权限审批，设置会议召开情况和审批会议纪要
		sub_id = sub_id + 1		'' 增加一个子菜单，子菜单编号递增1
		msub = "msub" & sub_id
		'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

		sTemp = sTemp & msub & "=new mMenuItem('会议处理','','self',false,'','1','','','','');" & vbLF
		if IsOfficer then
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('审批会议申请','../meeting/list_checkmeeting.asp','self',false,'审批会议申请',null,'','','',''));" & vbLF
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('设置会议召开情况','../meeting/list_querymeeting.asp','self',false,'会议情况设置',null,'','','',''));" & vbLF
		end if
		
		sTemp = sTemp & msub & ".addsubItem(new mMenuItem('填写会议纪要','../meeting/list_endmeeting.asp','self',false,'填写会议纪要',null,'','','',''));" & vbLF

		if IsOfficer then
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('审批会议纪要','../meeting/list_checksummary.asp','self',false,'审批会议纪要',null,'','','',''));" & vbLF
		end if
		
		sTemp = sTemp & msub & ".addsubItem(new mMenuItem('会议落实事项','../meeting/list_meetingeffect.asp','self',false,'察看或处理落实事项',null,'','','',''));" & vbLF
		sTemp = sTemp & msub & ".addsubItem(new mMenuItem('分发会议纪要','../meeting/list_deliversummary.asp','self',false,'分发会议纪要',null,'','','',''));" & vbLF
		sTemp = sTemp & menu & ".addItem(" & msub & ");" & vbLF

		'' 只有办公室主任才能管理例会
		if IsOfficer then
			sTemp = sTemp & menu & ".addItem(new mMenuItem('例会管理','../meeting/list_routinemeeting.asp','self',false,'例会管理',null,'','','',''));" & vbLF & vbLF
		end if


		''##########################################################
		'' 公文管理主菜单
		'' 一般员工的公文查询权限要看角色及item表
		'' 公文管理员可以查询和登记、修改公文
		'' 办公室主任可以查询和登记、修改公文、提交审批

		'' 如果既不是办公室主任，也不是公文管理员，对应角色也没有公文信息查询的权限，则不显示公文相关的菜单
		if IsDocAdmin or IsOfficer or HasRightToDocInfor then
			menu_id = menu_id + 1			'' 增加一个主菜单，主菜单编号递增1
			menu = "mpmenu" & menu_id

			sTemp = sTemp & menu &  "=new mMenu('公文管理','','self','','','','');" & vbLF
			sTemp = sTemp & menu & ".addItem(new mMenuItem('公文信息查询','../docmgr/searchmgr.asp','self',false,'公文信息查询',null,'','','',''));" & vbLF
			if IsDocAdmin or IsOfficer then	'' 如果是公文管理员或办公室主任，则显示公文管理菜单
				sTemp = sTemp & menu & ".addItem(new mMenuItem('公文信息管理','../docmgr/infomgr.asp','self',false,'公文信息管理',null,'','','',''));" & vbLF & vbLF
			end if
		end if
		''##########################################################



		''##########################################################
		'' 审批管理
		'' 办公室主任管理流程模版和审批流程。
		'' 办公室主任可以察看任何流程的审批意见
		'' 一般员工只有审批管理权限，只能流转当前步骤的审批人员为自己时才能察看，这一点在页面内部进行控制
		menu_id = menu_id + 1			'' 增加一个主菜单，主菜单编号递增1
		menu = "mpmenu" & menu_id
		''##########################################################
		sTemp = sTemp & menu & "=new mMenu('审批管理','','self','','','','');" & vbLF
		if IsOfficer then
			sTemp = sTemp & menu & ".addItem(new mMenuItem('流程模板管理','../flowmgr/template.asp','self',false,'流程模板管理',null,'','','',''));" & vbLF
			sTemp = sTemp & menu & ".addItem(new mMenuItem('流程管理','../flowmgr/flow.asp','self',false,'流程管理',null,'','','',''));" & vbLF
		end if
		sTemp = sTemp & menu & ".addItem(new mMenuItem('审批管理','../flowmgr/sign.asp','self',false,'审批管理',null,'','','',''));" & vbLF & vbLF
		if IsOfficer then
			sTemp = sTemp & menu & ".addItem(new mMenuItem('察看审批意见','../flowmgr/view.asp','self',false,'察看审批意见',null,'','','',''));" & vbLF
		end if


		''##########################################################
		'' 人事信息管理
		'' 一般员工人事信息查询要看角色及item表
		'' 人事管理员可以进行人事信息管理、组织结构管理、职务管理、职称管理


		'' 如果不是人事管理员，也没有人事信息查询的权限，则不显示人事管理菜单
		if IsHrAdmin or HasRightToHrInfor then
			menu_id = menu_id + 1			'' 增加一个主菜单，主菜单编号递增1
			menu = "mpmenu" & menu_id

			sTemp = sTemp & menu & "=new mMenu('人事管理','','self','','','','');" & vbLF

			'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
			'' 人事信息子菜单
			sub_id = sub_id + 1			'' 增加一个子菜单，主菜单编号递增1
			msub = "msub" & sub_id
			'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
			sTemp = sTemp & msub & "=new mMenuItem('人事信息','','self',false,'','1','','','','');" & vbLF
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('在职员工查询','../hr/emp_ol.asp','self',false,'在职员工查询',null,'','','',''));" & vbLF
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('离职员工查询','../hr/emp_odl.asp','self',false,'离职员工查询',null,'','','',''));" & vbLF

			'if IsHrAdmin then		'' 人事管理员才有管理的权限，后来改成系统管理员进行新员工登记
			'	sTemp = sTemp & msub & ".addsubItem(new mMenuItem('新员工登记','../hr/emp_oa.asp','self',false,'新员工登记',null,'','','',''));" & vbLF
			'end if
			sTemp = sTemp & menu & ".addItem(" & msub & ");" & vbLF
			
			if IsHrAdmin then		'' 人事管理员才有管理的权限
				sTemp = sTemp & menu & ".addItem(new mMenuItem('组织结构','../hr/node_o.asp','self',false,'组织结构管理',null,'','','',''));" & vbLF
				sTemp = sTemp & menu & ".addItem(new mMenuItem('职务管理','../hr/position.asp','self',false,'职务管理',null,'','','',''));" & vbLF
				sTemp = sTemp & menu & ".addItem(new mMenuItem('职称管理','../hr/title.asp','self',false,'职称管理',null,'','','',''));" & vbLF & vbLF
			end if
		end if
		''##########################################################

		

		''##########################################################
		'' 物品管理主菜单
		menu_id = menu_id + 1			'' 增加一个主菜单，主菜单编号递增1
		menu = "mpmenu" & menu_id
		''##########################################################
		sTemp = sTemp & menu & "=new mMenu('物品管理','','self','','','','');" & vbLF

		'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		'' 设备采购子菜单
		sub_id = sub_id + 1			'' 增加一个子菜单，主菜单编号递增1
		msub = "msub" & sub_id
		'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		sTemp = sTemp & msub & "=new mMenuItem('材料设备采购','','self',false,'','1','','','','');" & vbLF
		sTemp = sTemp & msub & ".addsubItem(new mMenuItem('新建申请单','../material/forminfo.asp','self',false,'新建申请单',null,'','','',''));" & vbLF
		sTemp = sTemp & msub & ".addsubItem(new mMenuItem('我的申请单','../material/formlist.asp','self',false,'我的申请单',null,'','','',''));" & vbLF
		
		if IsOfficer() then
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('待批申请单','../material/formlist.asp?action=forpass','self',false,'待批申请单',null,'','','',''));" & vbLF
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('已批申请单','../material/formlist.asp?action=passed','self',false,'已批申请单',null,'','','',''));" & vbLF
		end if

		sTemp = sTemp & msub & ".addsubItem(new mMenuItem('我的采购单','../material/formlist.asp?action=opt','self',false,'我的采购单',null,'','','',''));" & vbLF
		sTemp = sTemp & menu & ".addItem(" & msub & ");" & vbLF

		'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		'' 低值易耗品子菜单
		sub_id = sub_id + 1			'' 增加一个子菜单，主菜单编号递增1
		msub = "msub" & sub_id
		'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		sTemp = sTemp & msub & "=new mMenuItem('低值易耗品','','self',false,'','1','','','','');" & vbLF
		sTemp = sTemp & msub & ".addsubItem(new mMenuItem('易耗品列表','../goods/cardlist.asp','self',false,'我的低值易耗品列表',null,'','','',''));" & vbLF
		
		if IsOfficer() then
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('待批登记表','../goods/cardlist.asp?part=forpass','self',false,'待批登记表',null,'','','',''));" & vbLF
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('已发放的易耗品','../goods/cardlist.asp?part=passed','self',false,'已发放的低值易耗品',null,'','','',''));" & vbLF
		end if

		sTemp = sTemp & menu & ".addItem(" & msub & ");" & vbLF

		''##########################################################
		'' 其他主菜单
		menu_id = menu_id + 1			'' 增加一个主菜单，主菜单编号递增1
		menu = "mpmenu" & menu_id
		''##########################################################
		sTemp = sTemp & menu & "=new mMenu('其它','','self','','','','');" & vbLF

	
		'' 文件管理
		sTemp = sTemp & menu & ".addItem(new mMenuItem('文件管理','../filemgr/file_l.asp','self',false,'文件管理',null,'','','',''));" & vbLF
	

		'' 图书管理，如果是图书管理员，显示图书管理菜单，否则显示图书查询
		if IsLibraryAdmin then
			'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
			'' 建立一个图书管理子菜单
			sub_id = sub_id + 1			'' 增加一个子菜单，主菜单编号递增1
			msub = "msub" & sub_id
			'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
			sTemp = sTemp & msub & "=new mMenuItem('图书管理','','self',false,'','1','','','','');" & vbLF
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('图书查询','../library/booklist.asp','self',false,'图书查询',null,'','','',''));" & vbLF
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('新增图书','../library/bookedit.asp','self',false,'新增图书',null,'','','',''));" & vbLF
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('类别管理','../library/booktype.asp','self',false,'类别管理',null,'','','',''));" & vbLF
			sTemp = sTemp & menu & ".addItem(" & msub & ");" & vbLF