hx_function.asp

精美OA网络办公系统,带PSD文件.可任意修改.

	   if instr(Officearr,"PublicAffairsMeetingApply")>0 then rs("WS_PublicAffairsMeetingApply")=1 else rs("WS_PublicAffairsMeetingApply")=0 end if
	   if instr(Officearr,"PublicAffairsMeetingView")>0 then rs("WS_PublicAffairsMeetingView")=1 else rs("WS_PublicAffairsMeetingView")=0 end if
	   if instr(Officearr,"PublicAffairsMeetingModify")>0 then rs("WS_PublicAffairsMeetingModify")=1 else rs("WS_PublicAffairsMeetingModify")=0 end if
       if instr(Officearr,"PublicAffairsPropertyManage")>0 then rs("WS_PublicAffairsPropertyManage")=1 else rs("WS_PublicAffairsPropertyManage")=0 end if
	   if instr(Officearr,"PublicAffairsPropertySearch")>0 then rs("WS_PublicAffairsPropertySearch")=1 else rs("WS_PublicAffairsPropertySearch")=0 end if
	   if instr(Officearr,"PublicAffairsPropertyView")>0 then rs("WS_PublicAffairsPropertyView")=1 else rs("WS_PublicAffairsPropertyView")=0 end if
	   if instr(Officearr,"PublicAffairsPropertyModify")>0 then rs("WS_PublicAffairsPropertyModify")=1 else rs("WS_PublicAffairsPropertyModify")=0 end if
	   if instr(trim(request("MENU_03")),"PersonalOffice")>0 then rs("WS_PersonalOffice")=1 else rs("WS_PersonalOffice")=0 end if
	   if instr(PersonalOfficearr,"PersonalOfficeMessage")>0 then rs("WS_PersonalOfficeMessage")=1 else rs("WS_PersonalOfficeMessage")=0 end if
	   if instr(PersonalOfficearr,"PersonalOfficeInternetEmail")>0 then rs("WS_PersonalOfficeInternetEmail")=1 else rs("WS_PersonalOfficeInternetEmail")=0 end if
	   if instr(PersonalOfficearr,"PersonalOfficeSchEdule")>0 then rs("WS_PersonalOfficeSchEdule")=1 else rs("WS_PersonalOfficeSchEdule")=0 end if
	   if instr(PersonalOfficearr,"PersonalOfficePDA")>0 then rs("WS_PersonalOfficePDA")=1 else rs("WS_PersonalOfficePDA")=0 end if
	   if instr(PersonalOfficearr,"PersonalOfficeDocument")>0 then rs("WS_PersonalOfficeDocument")=1 else rs("WS_PersonalOfficeDocument")=0 end if
	   if instr(trim(request("MENU_04")),"SaleManage")>0 then rs("WS_SaleManage")=1 else rs("WS_SaleManage")=0 end if
	   if instr(SaleManagearr,"SaleManageCustomInfo")>0 then rs("WS_SaleManageCustomInfo")=1 else rs("WS_SaleManageCustomInfo")=0 end if
	   if instr(SaleManagearr,"SaleManageCustomRank")>0 then rs("WS_SaleManageCustomRank")=1 else rs("WS_SaleManageCustomRank")=0 end if
	   if instr(SaleManagearr,"SaleManageCustomContactManage")>0 then rs("WS_SaleManageCustomContactManage")=1 else rs("WS_SaleManageCustomContactManage")=0 end if
	   if instr(SaleManagearr,"SaleManageCustomInfoManage")>0 then rs("WS_SaleManageCustomInfoManage")=1 else rs("WS_SaleManageCustomInfoManage")=0 end if
	   if instr(SaleManagearr,"SaleManageCustomConnectManage")>0 then rs("WS_SaleManageCustomConnectManage")=1 else rs("WS_SaleManageCustomConnectManage")=0 end if
	   if instr(SaleManagearr,"SaleManageCustomSearch")>0 then rs("WS_SaleManageCustomSearch")=1 else rs("WS_SaleManageCustomSearch")=0 end if
	   if instr(SaleManagearr,"SaleManageProduct")>0 then rs("WS_SaleManageProduct")=1 else rs("WS_SaleManageProduct")=0 end if
	   if instr(SaleManagearr,"SaleManageProductManage")>0 then rs("WS_SaleManageProductManage")=1 else rs("WS_SaleManageProductManage")=0 end if
	   if instr(SaleManagearr,"SaleManageProductSearch")>0 then rs("WS_SaleManageProductSearch")=1 else rs("WS_SaleManageProductSearch")=0 end if
	   if instr(SaleManagearr,"SaleManageProductSaleRecord")>0 then rs("WS_SaleManageProductSaleRecord")=1 else rs("WS_SaleManageProductSaleRecord")=0 end if
	   if instr(SaleManagearr,"SaleManageShopManage")>0 then rs("WS_SaleManageShopManage")=1 else rs("WS_SaleManageShopManage")=0 end if
	   if instr(SaleManagearr,"SaleManageSaleShopManage")>0 then rs("WS_SaleManageSaleShopManage")=1 else rs("WS_SaleManageSaleShopManage")=0 end if
	   if instr(SaleManagearr,"SaleManageSaleShopSearch")>0 then rs("WS_SaleManageSaleShopSearch")=1 else rs("WS_SaleManageSaleShopSearch")=0 end if
       if instr(trim(request("MENU_05")),"Bargain")>0 then rs("WS_Bargain")=1 else rs("WS_Bargain")=0 end if
	   if instr(Bargainarr,"Bargaintype")>0 then rs("WS_Bargaintype")=1 else rs("WS_Bargaintype")=0 end if
	   if instr(Bargainarr,"BargainAdd")>0 then rs("WS_Bargainadd")=1 else rs("WS_Bargainadd")=0 end if
	   if instr(Bargainarr,"Bargainmanage")>0 then rs("WS_Bargainmanage")=1 else rs("WS_Bargainmanage")=0 end if
       if instr(trim(request("MENU_06")),"WORKFLOW")>0 then rs("WS_WORKFLOW")=1 else rs("WS_WORKFLOW")=0 end if
	   if instr(WorkFlowarr,"WORKFLOWWaitList")>0 then rs("WS_WORKFLOWWaitList")=1 else rs("WS_WORKFLOWWaitList")=0 end if
	   if instr(WorkFlowarr,"WORKFLOWIndex")>0 then rs("WS_WORKFLOWIndex")=1 else rs("WS_WORKFLOWIndex")=0 end if
	   if instr(WorkFlowarr,"WORKFLOWNews")>0 then rs("WS_WORKFLOWNews")=1 else rs("WS_WORKFLOWNews")=0 end if
	   if instr(WorkFlowarr,"WORKFLOWAdd")>0 then rs("WS_WORKFLOWAdd")=1 else rs("WS_WORKFLOWAdd")=0 end if
	   if instr(WorkFlowarr,"WORKFLOWNewNiBan")>0 then rs("WS_WORKFLOWNewNiBan")=1 else rs("WS_WORKFLOWNewNiBan")=0 end if
	   if instr(WorkFlowarr,"WORKFLOWSearch")>0 then rs("WS_WORKFLOWSearch")=1 else rs("WS_WORKFLOWSearch")=0 end if
	   if instr(trim(request("MENU_07")),"ManpowerResource")>0 then rs("WS_ManpowerResource")=1 else rs("WS_ManpowerResource")=0 end if
	   if instr(Manpowerarr,"ManpowerResourceView")>0 then rs("WS_ManpowerResourceView")=1 else rs("WS_ManpowerResourceView")=0 end if
	   if instr(Manpowerarr,"ManpowerResourceUserManage")>0 then rs("WS_ManpowerResourceUserManage")=1 else rs("WS_ManpowerResourceUserManage")=0 end if
	   if instr(Manpowerarr,"ManpowerResourceWageMonth")>0 then rs("WS_ManpowerResourceWageMonth")=1 else rs("WS_ManpowerResourceWageMonth")=0 end if
	   if instr(Manpowerarr,"ManpowerResourceWageMonthView")>0 then rs("WS_ManpowerResourceWageMonthView")=1 else rs("WS_ManpowerResourceWageMonthView")=0 end if
	   if instr(Manpowerarr,"ManpowerResourceWageMonthAdd")>0 then rs("WS_ManpowerResourceWageMonthAdd")=1 else rs("WS_ManpowerResourceWageMonthAdd")=0 end if
	   if instr(Manpowerarr,"ManpowerResourceWageMonthEdit")>0 then rs("WS_ManpowerResourceWageMonthEdit")=1 else rs("WS_ManpowerResourceWageMonthEdit")=0 end if
	   if instr(Manpowerarr,"ManpowerResourceConfirm")>0 then rs("WS_ManpowerResourceConfirm")=1 else rs("WS_ManpowerResourceConfirm")=0 end if
	   if instr(Manpowerarr,"ManpowerResourceCount")>0 then rs("WS_ManpowerResourceCount")=1 else rs("WS_ManpowerResourceCount")=0 end if
	   if instr(trim(request("MENU_08")),"InfoChange")>0 then rs("WS_InfoChange")=1 else rs("WS_InfoChange")=0 end if
	   if instr(InfoChangearr,"InfoChangeTalkEAR")>0 then rs("WS_InfoChangeTalkEAR")=1 else rs("WS_InfoChangeTalkEAR")=0 end if
	   if instr(InfoChangearr,"InfoChangeNetChat")>0 then rs("WS_InfoChangeNetChat")=1 else rs("WS_InfoChangeNetChat")=0 end if
	   if instr(InfoChangearr,"InfoChangeNetChatFlag")>0 then rs("WS_InfoChangeNetChatFlag")=1 else rs("WS_InfoChangeNetChatFlag")=0 end if
	   if instr(InfoChangearr,"InfoChangeNetDisk")>0 then rs("WS_InfoChangeNetDisk")=1 else rs("WS_InfoChangeNetDisk")=0 end if
	   if instr(InfoChangearr,"InfoChangeNetVoteInfo")>0 then rs("WS_InfoChangeNetVoteInfo")=1 else rs("WS_InfoChangeNetVoteInfo")=0 end if
	   if instr(trim(request("MENU_09")),"AnnexProgram")>0 then rs("WS_AnnexProgram")=1 else rs("WS_AnnexProgram")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgramCalendar")>0 then rs("WS_AnnexProgramCalendar")=1 else rs("WS_AnnexProgramCalendar")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgramworldtime")>0 then rs("WS_AnnexProgramworldtime")=1 else rs("WS_AnnexProgramworldtime")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgramnetipsearch")>0 then rs("WS_AnnexProgramnetipsearch")=1 else rs("WS_AnnexProgramnetipsearch")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgrammobilesearch")>0 then rs("WS_AnnexProgrammobilesearch")=1 else rs("WS_AnnexProgrammobilesearch")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgramlawrulesearch")>0 then rs("WS_AnnexProgramlawrulesearch")=1 else rs("WS_AnnexProgramlawrulesearch")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgramtelsearch")>0 then rs("WS_AnnexProgramtelsearch")=1 else rs("WS_AnnexProgramtelsearch")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgramweburlsearch")>0 then rs("WS_AnnexProgramweburlsearch")=1 else rs("WS_AnnexProgramweburlsearch")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgrampostcardsearch")>0 then rs("WS_AnnexProgrampostcardsearch")=1 else rs("WS_AnnexProgrampostcardsearch")=0 end if
	   if instr(AnnexProgramarr,"AnnexProgrampostcodesearch")>0 then rs("WS_AnnexProgrampostcodesearch")=1 else rs("WS_AnnexProgrampostcodesearch")=0 end if
	   if instr(trim(request("MENU_10")),"SystemSet")>0 then rs("WS_SystemSet")=1 else rs("WS_SystemSet")=0 end if
	   if instr(SystemSetarr,"SystemSetWebOAconfig")>0 then rs("WS_SystemSetWebOAconfig")=1 else rs("WS_SystemSetWebOAconfig")=0 end if
	   if instr(SystemSetarr,"SystemSetOAInterFaceSet")>0 then rs("WS_SystemSetOAInterFaceSet")=1 else rs("WS_SystemSetOAInterFaceSet")=0 end if
	   if instr(SystemSetarr,"SystemSetModule")>0 then rs("WS_SystemSetModule")=1 else rs("WS_SystemSetModule")=0 end if
	   if instr(SystemSetarr,"SystemSetDepartment")>0 then rs("WS_SystemSetDepartment")=1 else rs("WS_SystemSetDepartment")=0 end if
	   if instr(SystemSetarr,"SystemSetAppointment")>0 then rs("WS_SystemSetAppointment")=1 else rs("WS_SystemSetAppointment")=0 end if
	   if instr(SystemSetarr,"SystemSetMemberPriv")>0 then rs("WS_SystemSetMemberPriv")=1 else rs("WS_SystemSetMemberPriv")=0 end if
	   if instr(SystemSetarr,"SystemSetAttendanceSet")>0 then rs("WS_SystemSetAttendanceSet")=1 else rs("WS_SystemSetAttendanceSet")=0 end if
	   if instr(SystemSetarr,"SystemSettalkear")>0 then rs("WS_SystemSettalkear")=1 else rs("WS_SystemSettalkear")=0 end if
	   if instr(SystemSetarr,"SystemSetNotifyManage")>0 then rs("WS_SystemSetNotifyManage")=1 else rs("WS_SystemSetNotifyManage")=0 end if
	   if instr(SystemSetarr,"SystemSetWorkFlowType")>0 then rs("WS_SystemSetWorkFlowType")=1 else rs("WS_SystemSetWorkFlowType")=0 end if
	   if instr(SystemSetarr,"SystemSetnetvoteinfo")>0 then rs("WS_SystemSetnetvoteinfo")=1 else rs("WS_SystemSetnetvoteinfo")=0 end if
	   if instr(SystemSetarr,"SystemSetlawrule")>0 then rs("WS_SystemSetlawrule")=1 else rs("WS_SystemSetlawrule")=0 end if
	   if instr(SystemSetarr,"SystemSettel")>0 then rs("WS_SystemSettel")=1 else rs("WS_SystemSettel")=0 end if
	   if instr(SystemSetarr,"SystemSetweburl")>0 then rs("WS_SystemSetweburl")=1 else rs("WS_SystemSetweburl")=0 end if
	   if instr(SystemSetarr,"SystemSetInterviewControl")>0 then rs("WS_SystemSetInterviewControl")=1 else rs("WS_SystemSetInterviewControl")=0 end if
	   if instr(SystemSetarr,"SystemSetOperation")>0 then rs("WS_SystemSetOperation")=1 else rs("WS_SystemSetOperation")=0 end if
	   if instr(SystemSetarr,"SystemSetWSOADATABASEMANAGE")>0 then rs("WS_SystemSetWSOADATABASEMANAGE")=1 else rs("WS_SystemSetWSOADATABASEMANAGE")=0 end if
	   rs.update:WS_S.HX_Redirect "MemberPrivManage.asp?MPID="&MPID
   End Sub
   Sub HX_ManpowerResource()
			  response.Write "<link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><body bgcolor=613c25><table width='100%' cellspacing cellpadding class='Titletd' align='center'><tr> <td width='100%' height='10'></td></tr><tr valign='top'><td width='100%'><table width='118' cellspacing='10' cellpadding align='center' border='0'>"
			    if WS_S.MemberPriv("WS_ManpowerResourceView")=1 then response.Write "<tr><td width='100%' align='center'  class='include1'><a href='modify.asp' target='right' class='menu1'>员工一览</a></td></tr>"
                if WS_S.MemberPriv("WS_ManpowerResourceUserManage")=1 then  response.Write "<tr><td class='include1' align='center'><a href='addnewuser.asp' target='right' class='menu1'>新增员工</a></td></tr><tr><td class='include1' align='center'><a href='deluser.asp' target='right' class='menu1'>审核删除</a></td></tr><tr><td class='include1' align='center'><a href='leaveuser.asp' target='right' class='menu1'>离职员工</a></td></tr>"
				if WS_S.MemberPriv("WS_ManpowerResourceWageMonth")=1 then  response.Write "<tr><td class='include1' align='center'><a href='wagemonth.asp' target='right' class='menu1'>工资报表</a></td></tr>"
			    if WS_S.MemberPriv("WS_ManpowerResourceConfirm")=1 then  response.Write "<tr><td class='include1' align='center'><a href='AttendanceManageConfirm.asp' target='right' class='menu1'>考勤审批</a></td></tr>"
				if WS_S.MemberPriv("WS_ManpowerResourceCount")=1 then  response.Write "<tr><td class='include1' align='center'><a href='AttendanceManageUserManage.asp' target='right' class='menu1'>考勤查询与统计</a></td></tr>"
			  response.Write "</table></td></tr><tr><td width='100%' align='center' height='20'></td></tr></table>"
	End Sub
     Sub HX_PublicAffair()
                 response.Write "<link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><body bgcolor=613c25><table width='100%' cellspacing cellpadding class='Titletd' align='center'>          <tr><td height='10'></td></tr><tr valign='top'> <td><table width='90%'  border='0' cellspacing='1' cellpadding='5' bgcolor='#613c25' align='center'>"