www.pudn.com > WLGL.rar > flag.inc

<% 
newcompanyid = request("companyid") 
if newcompanyid = "" then 
	Response.Write "" 
	Response.End 
elseif not isnumeric(newcompanyid) then 
	Response.Write "" 
	Response.End 
else 
	newcompanyid = cint(newcompanyid)   
end if 
arra = split(session("username"),";") 
UserCompanyid = arra(0) 
flag = arra(1) 
User = arra(2) 
userno = arra(4) 
if flag = 4 then 
	FlagUser = session("flag") 
		'该录入人员的客服的DC和PROD 
		dim dcservice,prodservice 
		dcservice = "" 
		prodservice = "" 
		 
		dim dcFlag,prodFlag 
		dcFlag = false 
		prodFlag = false 
		 
		for ver=0 to userno	 
			if clng(newcompanyid) = clng(FlagUser(ver,9)) then 
					if instr(dcservice,FlagUser(ver,0)) < 1 then 
						if dcFlag = true then 
							dcservice = dcservice &","& FlagUser(ver,0) 
						else 
							dcservice = dcservice & FlagUser(ver,0) 
							dcFlag = true 
						end if 
					end if 
					if instr(prodservice,FlagUser(ver,1)) <  1 then 
						if prodFlag = true then 
							prodservice = prodservice &","& FlagUser(ver,1) 
						else 
							prodservice = prodservice & FlagUser(ver,1) 
							prodFlag = true 
						end if 
					end if 
			end if 
		next 
elseif flag = 5 then 
	FlagUser = session("flag") 
		dcservice = "" 
		prodservice = "" 
		dcFlag = false 
		prodFlag = false 
		 
		for ver=0 to userno	 
			if clng(newcompanyid) = clng(FlagUser(ver,2)) then 
					if instr(dcservice,FlagUser(ver,0)) < 1 then 
						if dcFlag = true then 
							dcservice = dcservice &","& FlagUser(ver,0) 
						else 
							dcservice = dcservice & FlagUser(ver,0) 
							dcFlag = true 
						end if 
					end if 
					if instr(prodservice,FlagUser(ver,1)) <  1 then 
						if prodFlag = true then 
							prodservice = prodservice &","& FlagUser(ver,1) 
						else 
							prodservice = prodservice & FlagUser(ver,1) 
							prodFlag = true 
						end if 
					end if 
			end if 
		next	 
		 
end if 
 
%>