<%Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open "select count(DISTINCT cs_code) as CustomerTotal from customer",conn,1,1
tn=Rs("customerTotal")
Rs.Close
Rs.Open "select count(DISTINCT cs_code) as CustomerTotal from customer where cs_deal=3",conn,1,1
tdn=Rs("customerTotal")
Rs.Close
Rs.Open "Select businessType,count(DISTINCT cs_code) as cc from customer left Join clientType on customer.cs_type=clientType.id Group by(businessType)",conn,1,1
Do while Not Rs.bof and Not Rs.eof
data_arr1=data_arr1&FormatNumber(Rs("cc")/tn,-1,-1)&","
text_arr1=text_arr1&Rs("businessType")&","
Rs.moveNext
loop
Rs.close
%>
客户类型
<%
Rs.Open "Select cs_deal,count(DISTINCT cs_code) as cc from customer Group by(cs_deal) order by cs_deal desc",conn,1,1
Do while Not Rs.bof and Not Rs.eof
data_arr2=data_arr2&FormatNumber(Rs("cc")/tn,-1,-1)&","
Rs.moveNext
loop
Rs.close
%>
成交比例
<%
Rs.Open "Select ch_name,count(DISTINCT cs_code) as cc from customer Left Join qudao on customer.cs_from=qudao.id Group by(ch_name)",conn,1,1
Do while Not Rs.bof and Not Rs.eof
data_arr3=data_arr3&FormatNumber(Rs("cc")/tn,-1,-1)&","
text_arr3=text_arr3&Rs("ch_name")&","
Rs.moveNext
loop
Rs.close
%>
客户来源
<% Rs.Open "select top 9 countryName,count(DISTINCT cs_code) as cc from customer Left Join country on customer.cs_country=country.id where cs_deal=3 Group BY(countryName) Order by cc DESC",conn,1,1
tp=1
Do while Not Rs.bof and Not Rs.eof
data_arr5=data_arr5&FormatNumber(Rs("cc")/tdn,-1,-1)&","
text_arr5=text_arr5&Rs("countryName")&","
tp=tp-FormatNumber(Rs("cc")/tdn,-1,-1)
Rs.moveNext
loop
Rs.close
%>
">
已成交客户分布(Top10)
<% Rs.Open "select top 9 countryName,count(DISTINCT cs_code) as cc from customer Left Join country on customer.cs_country=country.id where cs_deal=3 Group BY(countryName) Order by cc DESC",conn,1,1
tp=1
Do while Not Rs.bof and Not Rs.eof
data_arr4=data_arr4&FormatNumber(Rs("cc")/tn,-1,-1)&","
text_arr4=text_arr4&Rs("countryName")&","
tp=tp-FormatNumber(Rs("cc")/tn,-1,-1)
Rs.moveNext
loop
Rs.close
%>
">
客户分布(Top10)
<% Rs.Open "select em_user,count(DISTINCT cs_code) as cc from customer Left Join employee on customer.cs_belong=employee.id where cs_deal=3 Group BY(em_user) Order by cc DESC",conn,1,1
Do while Not Rs.bof and Not Rs.eof
data_arr6=data_arr6&FormatNumber(Rs("cc")/tdn,-1,-1)&","
text_arr6=text_arr6&Rs("em_user")&","
Rs.moveNext
loop
Rs.close
%>
各业务成交客户占比
<% Rs.Open "select em_user,count(DISTINCT cs_code) as cc from customer Left Join employee on customer.cs_belong=employee.id where cs_deal>0 Group BY(em_user) Order by cc DESC",conn,1,1
Do while Not Rs.bof and Not Rs.eof
data_arr7=data_arr7&Rs("cc")&","
text_arr7=text_arr7&Rs("em_user")&","
Rs.moveNext
loop
Rs.close
%>