hx_function.bak.asp

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

       if instr(Officearr,"PublicAffairsOfficeAdd")>0 then rs("WS_PublicAffairsOfficeAdd")=1 else rs("WS_PublicAffairsOfficeAdd")=0 end if
       if instr(Officearr,"PublicAffairsOfficeDel")>0 then rs("WS_PublicAffairsOfficeDel")=1 else rs("WS_PublicAffairsOfficeDel")=0 end if
       if instr(Officearr,"PublicAffairsDocumentView")>0 then rs("WS_PublicAffairsDocumentView")=1 else rs("WS_PublicAffairsDocumentView")=0 end if
       if instr(Officearr,"PublicAffairsDocumentEdit")>0 then rs("WS_PublicAffairsDocumentEdit")=1 else rs("WS_PublicAffairsDocumentEdit")=0 end if
       if instr(Officearr,"PublicAffairsDocumentAdd")>0 then rs("WS_PublicAffairsDocumentAdd")=1 else rs("WS_PublicAffairsDocumentAdd")=0 end if
       if instr(Officearr,"PublicAffairsDocumentDel")>0 then rs("WS_PublicAffairsDocumentDel")=1 else rs("WS_PublicAffairsDocumentDel")=0 end if
       if instr(Officearr,"PublicAffairsDocumentTypeMange")>0 then rs("WS_PublicAffairsDocumentTypeMange")=1 else rs("WS_PublicAffairsDocumentTypeMange")=0 end if
       if instr(Officearr,"PublicAffairsBookView")>0 then rs("WS_PublicAffairsBookView")=1 else rs("WS_PublicAffairsBookView")=0 end if
       if instr(Officearr,"PublicAffairsBookAdd")>0 then rs("WS_PublicAffairsBookAdd")=1 else rs("WS_PublicAffairsBookAdd")=0 end if
	   if instr(Officearr,"PublicAffairsBookManage")>0 then rs("WS_PublicAffairsBookManage")=1 else rs("WS_PublicAffairsBookManage")=0 end if
	   if instr(Officearr,"PublicAffairsCarManage")>0 then rs("WS_PublicAffairsCarManage")=1 else rs("WS_PublicAffairsCarManage")=0 end if
	   if instr(Officearr,"PublicAffairsCarApply")>0 then rs("WS_PublicAffairsCarApply")=1 else rs("WS_PublicAffairsCarApply")=0 end if
	   if instr(Officearr,"PublicAffairsCarView")>0 then rs("WS_PublicAffairsCarView")=1 else rs("WS_PublicAffairsCarView")=0 end if
	   if instr(Officearr,"PublicAffairsCarModify")>0 then rs("WS_PublicAffairsCarModify")=1 else rs("WS_PublicAffairsCarModify")=0 end if
       if instr(Officearr,"PublicAffairsMeetingManage")>0 then rs("WS_PublicAffairsMeetingManage")=1 else rs("WS_PublicAffairsMeetingManage")=0 end if
	   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