igamebox
/
mtb_crm_asp


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146
							<!--#include file="Conn.asp"--><%Checklogin()%>

<%
  datestart=Request.Form("start")
  dateend=Request.Form("end")
  currentMonth=year(date)&"-"&month(date)&"-1 00:00:00"
  
  if datestart="" or Not IsDate(datestart) Then
	datestart=currentMonth     
  else
	datestart=FormatTime(datestart,"yyyy-mm-dd")&" 00:00:00"   
  End if
  
  if dateend="" or Not IsDate(dateend) Then
	dateend=now()   
  else
	dateend=FormatTime(dateend,"yyyy-mm-dd")&" 23:59:59"   	
  End if 
  
  
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>管理区域</title>
<link rel="stylesheet" href="css/common.css" type="text/css" />
<link rel="stylesheet" href="css/bootstrap-datepicker3.min.css" type="text/css" />
<script type="text/javascript" src="js/jquery-1.7.2.min.js"></script>
<script type="text/javascript" src="js/js.js"></script>
<script type="text/javascript" src="js/bootstrap-datepicker.min.js"></script>
<script type="text/javascript" src="js/bootstrap-datepicker.zh-CN.min.js"></script>
<script>
$(function(){
	$('#sandbox-container .input-daterange').datepicker({
		maxViewMode: 2,
		language: "zh-CN"
	});
})
</script>
</head>
<body class="clear">
<!--#include file="panel.asp"-->
<div id="man_zone">
	<div class="dashboard">
		<h1 class="dashboardHead">各组数据</h1>
			<form method="post" action="team.asp">
			<div class="sandbox-containe" id="sandbox-container">
				<div class="input-daterange input-group" id="datepicker">
					<span class="input-group-addon">日期筛选</span>
					<input type="text" class="input-sm form-control" autocomplete="off" value="<%=datestart%>" name="start">
					<span class="input-group-addon">至</span>
					<input type="text" class="input-sm form-control" autocomplete="off" value="<%=dateend%>" name="end">
				</div>
				<input type="submit" class="submit" value="筛选">
			</div>
			</form>
		<table class="teamStatistics" border="1px" bordercollapse="collapse" cellspacing="0" cellpadding="5" bordercolor="#DDD">
			<tr>
				<td>组长</td>
				<td>组员</td>
				<td>总客户数量</td>	
				<td width="25%">本月成交</td>
				<td>进公海客户总数</td>					
				<td>公海认领</td>					
			</tr>
			<%	
				Set Rs=Server.CreateObject("ADODB.RecordSet")
				  Rs.Open "select id,em_user from employee where em_role=0 and id<>13",conn,1,1
				  Do while Not Rs.bof and Not Rs.eof
				 clstr=""
				  Set Rs1=Server.CreateObject("ADODB.RecordSet")
					  Rs1.Open "Select count(DISTINCT cs_code) as c1 from customer where cs_belong="&Rs("id"),conn,1,1
					  c1=Rs1("c1")'总客户数量
					  Rs1.close
					  Rs1.Open "Select count(id) as c2 from customer where cs_deal<>3 and cs_deal<>0 and cs_type<>2 and DATEDIFF(day,cs_updatetime,getDate())>90 and cs_belongclient=0 and cs_belong="&Rs("id"),conn,1,1
					  c2=Rs1("c2")'进入公海
					  Rs1.close		
					 Rs1.Open "Select DISTINCT cs_code from customer where cs_dealdate>'"&datestart&"' and cs_dealdate<='"&dateend&"' and cs_deal=3 and  cs_belong="&Rs("id"),conn,1,1
					  c3=Rs1.RecordCount'成交
					  Do while Not Rs1.bof and Not Rs1.eof
						clstr=clstr&Rs1("cs_code")&"<br>"
					  Rs1.moveNext
					  loop
					  Rs1.close		
					  Rs1.Open "Select count(DISTINCT cs_code) as c4 from customer where cs_claimdate>'"&datestart&"' and  cs_claimdate<='"&dateend&"' and  cs_belong="&Rs("id"),conn,1,1
					  c4=Rs1("c4")'认领
					  Rs1.close			
					  Rs1.Open "Select count(id) as c5 from employee where em_role="&Rs("id"),conn,1,1
					  c5=Rs1("c5")
					  Rs1.close					  
				  Set Rs1=Nothing				  
			%>
			<tr>
				<td rowspan="<%=1+c5%>"><%=Rs("em_user")%></td>
				<td><%=Rs("em_user")%></td>
				<td><%=c1%></td>	
				<td><%=clstr%></td>				
				<td><%=c2%></td>	
				<td><%=c4%></td>				
			</tr>
			<%
				  Set Rs1=Server.CreateObject("ADODB.RecordSet")
				  Rs1.Open "Select id,em_user from employee Where em_role="&Rs("id"),conn,1,1
				  Do while Not Rs1.bof and Not Rs1.eof
						clstr=""
				       Set Rs2=Server.CreateObject("ADODB.RecordSet")
					       Rs2.Open "Select count(DISTINCT cs_code) as c1 from customer where cs_belong="&Rs1("id"),conn,1,1
							  c1=Rs2("c1")'总客户数量
						   Rs2.close
						   Rs2.Open "Select count(DISTINCT cs_code) as c2 from customer where cs_deal<>3 and cs_deal<>0 and cs_type<>2 and DATEDIFF(day,cs_updatetime,getDate())>90 and cs_belongclient=0 and cs_belong="&Rs1("id"),conn,1,1
							  c2=Rs2("c2")'进入公海	   
						   Rs2.close
						   Rs2.Open "Select DISTINCT cs_code from customer where cs_dealdate>'"&datestart&"' and  cs_dealdate<='"&dateend&"' and cs_deal=3 and cs_belong="&Rs1("id"),conn,1,1
						   
						  c3=Rs2.RecordCount'成交
						  Do while Not Rs2.bof and Not Rs2.eof
							clstr=clstr&Rs2("cs_code")&"<br>"
						  Rs2.moveNext
						  loop
						  Rs2.close	
						   Rs2.Open "Select count(id) as c4 from customer where cs_claimdate>'"&datestart&"' and  cs_claimdate<='"&dateend&"' and cs_belong="&Rs1("id"),conn,1,1
							  c4=Rs2("c4")'认领					   
						   Rs2.close
				       Set Rs2=Nothing	
				  Response.write "<tr><td>"&Rs1("em_user")&"</td><td>"&c1&"</td><td>"&clstr&"</td><td>"&c2&"</td><td>"&c4&"</td></tr>"
					   
				  Rs1.moveNext
				  loop
				  Rs1.close
				  Set Rs1=Nothing		
				  
				  Rs.moveNext
				  loop
				  Rs.close
			%>
		</table>
			
	
	
	<%Set Rs=Nothing:Conn.Close:Set Conn=Nothing%>
	</div>
</div>
</body>
</html>