flag.inc

1.多种查询方式

<%
newcompanyid = request("companyid")
if newcompanyid = "" then
	Response.Write "<script language=javascript>"
	Response.Write "alert(""请先选择公司再做此步操作！"");"
	Response.write "history.go(-1);"
	Response.Write "</script>"
	Response.End
elseif not isnumeric(newcompanyid) then
	Response.Write "<script language=javascript>"
	Response.Write "alert(""companyid必须为整数！"");history.go(-1);"
	Response.Write "</script>"
	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

%>