hx_function.asp

政府网站集成OA办公考勤新闻发布网站信息管理会员管理

  response.Write "<tr><td bgcolor='#344B6B'><font color='#FFFFFF'><img src='../HXIMAGES/menuline.gif' align='absmiddle'>供应商</font></td></tr>"
  if WS_S.MemberPriv("WS_SaleManageSaleShopManage")=1 then  response.Write "<tr><td bgcolor='#678DC0'>&nbsp;<a target='right' href='SaleShopManage.asp'><font color='#FFFFFF'>&gt;&gt; 供应商管理 </font></a></td></tr>"
  if WS_S.MemberPriv("WS_SaleManageSaleShopSearch")=1 then  response.Write "<tr><td bgcolor='#678DC0'>&nbsp;<a target='right' href='SaleShopSearch.asp'><font color='#FFFFFF'>&gt;&gt; 供应商查询</font> </a></td></tr>	"  
end if
response.Write "</table></td></tr><tr><td height='20' align='center'></td></tr></table>"
   End Sub
   Sub HX_MemberPrivManage()
       DeskMyarr=trim(request("01")):Officearr=trim(request("02")):PersonalOfficearr=trim(request("03")):SaleManagearr=trim(request("04")):Bargainarr=trim(request("05")):WorkFlowarr=trim(request("06")):Manpowerarr=trim(request("07")):InfoChangearr=trim(request("08")):AnnexProgramarr=trim(request("09")):SystemSetarr=trim(request("10")):FrontSetarr=trim(request("11"))
       if instr(DeskMyarr,"FrontSetSystem")>0 then rs("WS_DeskMyoffice")=1 else rs("WS_DeskMyoffice")=0 end if       
     if instr(DeskMyarr,"DeskMyoffice")>0 then rs("WS_DeskMyoffice")=1 else rs("WS_DeskMyoffice")=0 end if
	   if instr(DeskMyarr,"DeskMyWORKFLOW")>0 then rs("WS_DeskMyWORKFLOW")=1 else rs("WS_DeskMyWORKFLOW")=0 end if
	   if instr(DeskMyarr,"DeskMyPublicAffairs")>0 then rs("WS_DeskMyPublicAffairs")=1 else rs("WS_DeskMyPublicAffairs")=0 end if
	   if instr(DeskMyarr,"DeskMyManpowerResource")>0 then rs("WS_DeskMyManpowerResource")=1 else rs("WS_DeskMyManpowerResource")=0 end if
	   if instr(DeskMyarr,"DeskMyInfoChange")>0 then rs("WS_DeskMyInfoChange")=1 else rs("WS_DeskMyInfoChange")=0 end if
       if instr(trim(request("MENU_02")),"PublicAffairs")>0 then rs("WS_PublicAffairs")=1 else rs("WS_PublicAffairs")=0 end if
	   if instr(Officearr,"PublicAffairsOfficeView")>0 then rs("WS_PublicAffairsOfficeView")=1 else rs("WS_PublicAffairsOfficeView")=0 end if
       if instr(Officearr,"PublicAffairsOfficeEdit")>0 then rs("WS_PublicAffairsOfficeEdit")=1 else rs("WS_PublicAffairsOfficeEdit")=0 end if
       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