<!--#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>