📄 d_clienthanyemainfrm.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubConnCode.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title><link href="../cread.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF">
<table border="0" width="100%">
<tr>
<td width="100%" valign="middle"><img border="0" src="it_22.gif" width="34" height="15"> <b><font size="2">客户行业分布分析</font></b><hr width="40%" align="left" color="#C0C0C0" size="1"></td>
</tr>
</table>
<%hzb=""
zzb1=""
zzb2=""
zzb3=""
zzb4=""
zzb5=""
zzb6=""
set rs=server.CreateObject("adodb.recordset")
if rs.state=1 then rs.close
rs.open "select distinct occupation from D_clientinfo where tag='kh' and occupation<>'' and delflag='0'",pubconn,1,3%>
<%if rs.recordcount<=0 then
response.write "没记录!"%>
<center><a href="D_FenXiMainFrm.asp"><font size="2">返回</font></a></center>
<%response.end()
end if%>
<%sql1="select count(clientnum) as Latent from D_clientinfo where tag='kh' and type='潜在客户' and occupation<>'' and delflag='0'"
set rs2=pubconn.execute(sql1)%>
<%TotalLatent=rs2.fields("Latent") '潜在客户总数%>
<%sql2="select count(clientnum) as Prev from D_clientinfo where tag='kh' and type='预期客户' and occupation<>'' and delflag='0'"
set rs3=pubconn.execute(sql2)%>
<%TotalPrev=rs3.fields("Prev") '预期客户总数%>
<%sql3="select count(clientnum) as FirstBuy from D_clientinfo where tag='kh' and type='首次购买客户' and occupation<>'' and delflag='0'"
set rs4=pubconn.execute(sql3)%>
<%TotalFirstBuy=rs4.fields("FirstBuy") '首次购买客户总数%>
<%sql4="select count(clientnum) as ZhongCheng from D_clientinfo where tag='kh' and type='忠诚客户' and occupation<>'' and delflag='0'"
set rs5=pubconn.execute(sql4)%>
<%TotalZhongCheng=rs5.fields("ZhongCheng") '忠诚客户总数%>
<%sql5="select count(clientnum) as chongfu from D_clientinfo where tag='kh' and type='重复购买客户' and occupation<>'' and delflag='0'"
set rs6=pubconn.execute(sql5)%>
<%Totalchongfu=rs6.fields("chongfu") '重复购买客户总数%>
<%sql6="select count(clientnum) as refuse from D_clientinfo where tag='kh' and type='拒绝客户' and occupation<>'' and delflag='0'"
set rs7=pubconn.execute(sql6)%>
<%Totalrefuse=rs7.fields("refuse") '拒绝客户总数%>
<%'''''''''''''''''Total=TotalLatent+TotalPrev+TotalFirstBuy+TotalZhongCheng%>
<%rs.movefirst%>
<center><table border=1 cellspacing=0 width="648">
<tr>
<td bgcolor="#DDD2C4" align="center" width="67">行业</td>
<td bgcolor="#DDD2C4" align="center" width="38">潜在客户数</td>
<td bgcolor="#DDD2C4" align="center" width="31">百分比(%)</td>
<td bgcolor="#DDD2C4" align="center" width="36">预期客户数</td>
<td bgcolor="#DDD2C4" align="center" width="30">百分比(%)</td>
<td bgcolor="#DDD2C4" align="center" width="39">首次购买客户数</td>
<td bgcolor="#DDD2C4" align="center" width="32">百分比(%)</td>
<td bgcolor="#DDD2C4" align="center" width="37">重复购买客户数</td>
<td bgcolor="#DDD2C4" align="center" width="30">百分比(%)</td>
<td bgcolor="#DDD2C4" align="center" width="36">忠诚客户数</td>
<td bgcolor="#DDD2C4" align="center" width="30">百分比(%)</td>
<td bgcolor="#DDD2C4" align="center" width="38">拒绝客户数</td>
<td bgcolor="#DDD2C4" align="center" width="31">百分比(%)</td>
</tr>
<%line=0%>
<%while not rs.eof %>
<% line=cint(line)+1%>
<%if line mod 2 =0 then%>
<%backcolor="#f7f7f7"%>
<%else%>
<%backcolor="#EDEBEC"%>
<%end if%>
<%sql7=" select count(clientnum) as Latent from D_clientinfo where tag='kh' and type='潜在客户' and delflag='0' and occupation='"& trim(rs.fields("occupation")) &"'"
set rs16=pubconn.execute(sql7) ''''潜在客户数%>
<%sql8="select count(clientnum) as Latent from D_clientinfo where tag='kh' and type='预期客户' and delflag='0' and occupation='"& trim(rs.fields("occupation")) &"'"
set rs17=pubconn.execute(sql8) ''''预期客户数%>
<%sql9="select count(clientnum) as Latent from D_clientinfo where tag='kh' and type='首次购买客户' and delflag='0' and occupation='"& trim(rs.fields("occupation")) &"'"
set rs8=pubconn.execute(sql9) ''''首次购买客户数%>
<%sql10="select count(clientnum) as Latent from D_clientinfo where tag='kh' and type='忠诚客户' and delflag='0' and occupation='"& trim(rs.fields("occupation")) &"'"
set rs9=pubconn.execute(sql10) ''''忠诚客户数%>
<%sql11="select count(clientnum) as chongfu from D_clientinfo where tag='kh' and type='重复购买客户' and delflag='0' and occupation='"& trim(rs.fields("occupation")) &"'"
set rs10=pubconn.execute(sql11) ''''重复购买客户数%>
<%sql12="select count(clientnum) as refuse from D_clientinfo where tag='kh' and type='拒绝客户' and delflag='0' and occupation='"& trim(rs.fields("occupation")) &"'"
set rs11=pubconn.execute(sql12) ''''拒绝客户数%>
<tr bgcolor=<%=backcolor%>>
<td align="center" width="67"><%=rs.fields("occupation")%></td> <%'行业%>
<%hzb=hzb&rs("occupation")&","%>
<%zzb1=zzb1&rs16.fields("Latent")&","%>
<td align="center" width="38"><%=rs16.fields("Latent")%></td> <%'潜在客户数%>
<%if rs2.fields("Latent")<>0 then%>
<td align="center" width="31"><%=round(rs16.fields("Latent")/rs2.fields("Latent"),2)*100%></td> <%'占百分比%>
<%else%>
<td align="center" width="36"> </td>
<%end if%>
<%zzb2=zzb2&rs17.fields("latent")&","%>
<td align="center" width="30"><%=rs17.fields("Latent")%></td> <%'预期客户数%>
<%if rs3.fields("Prev")<>0 then%>
<td align="center" width="39"><%=round(rs17.fields("Latent")/rs3.fields("Prev"),2)*100%></td> <%'占百分比%>
<%else%>
<td align="center" width="32"> </td>
<%end if%>
<%zzb3=zzb3&rs8.fields("latent")&","%>
<td align="center" width="37"><%=rs8.fields("Latent")%></td> <%'首次购买客户数%>
<%if rs4.fields("FirstBuy")<>0 then%>
<td align="center" width="30"><%=round(rs8.fields("Latent")/rs4.fields("FirstBuy"),2)*100%></td> <%'占百分比%>
<%else%>
<td align="center" width="36"> </td>
<%end if%>
<%zzb4=zzb4&rs10.fields("chongfu")&","%>
<td align="center" width="30"><%=rs10.fields("chongfu")%></td> <%'重复购买客户数%>
<%if rs6.fields("chongfu")<>0 then%>
<td align="center" width="38"><%=round(rs10.fields("chongfu")/rs6.fields("chongfu"),2)*100%></td> <%'占百分比%>
<%else%>
<td align="center" width="31"> </td>
<%end if%>
<%zzb5=zzb5&rs9.fields("latent")&","%>
<td align="center" width="5"><%=rs9.fields("Latent")%></td> <%'忠诚客户数%>
<%if rs5.fields("ZhongCheng")<>0 then%>
<td align="center" width="18"><%=round(rs9.fields("Latent")/rs5.fields("ZhongCheng"),2)*100%></td> <%'占百分比%>
<%else%>
<td align="center" width="11"> </td>
<%end if%>
<%zzb6=zzb6&rs11.fields("refuse")&","%>
<td align="center" width="21"><%=rs11.fields("refuse")%></td> <%'拒绝客户数%>
<%if rs7.fields("refuse")<>0 then%>
<td align="center" width="19"><%=round(rs11.fields("refuse")/rs7.fields("refuse"),2)*100%></td> <%'占百分比%>
<%else%>
<td align="center" width="25"> </td>
<%end if%>
</tr>
<%rs.movenext%>
<%wend%>
<%if line mod 2 =0 then%>
<%backcolor="#EDEBEC"%>
<%else%>
<%backcolor="#f7f7f7"%>
<%end if%>
<tr bgcolor=<%=backcolor%>>
<td align="center" width="67">合计</td>
<td align="center" width="38"><%=rs2.fields("Latent")%></td>
<%if rs2.fields("Latent")<>0 then%>
<td align="center" width="31">100</td>
<%else%>
<td align="center" width="36">0</td>
<%end if%>
<td align="center" width="30"><%=rs3.fields("Prev")%></td>
<%if rs3.fields("Prev")<>0 then%>
<td align="center" width="39">100</td>
<%else%>
<td align="center" width="32">0</td>
<%end if%>
<td align="center" width="37"><%=rs4.fields("FirstBuy")%></td>
<%if rs4.fields("FirstBuy")<>0 then%>
<td align="center" width="30">100</td>
<%else%>
<td align="center" width="36">0</td>
<%end if%>
<td align="center" width="30"><%=rs6.fields("chongfu")%></td>
<%if rs6.fields("chongfu")<>0 then%>
<td align="center" width="38">100</td>
<%else%>
<td align="center" width="31">0</td>
<%end if%>
<td align="center" width="5"><%=rs5.fields("ZhongCheng")%></td>
<%if rs5.fields("ZhongCheng")<>0 then%>
<td align="center" width="18">100</td>
<%else%>
<td align="center" width="11">0</td>
<%end if%>
<td align="center" width="21"><%=rs7.fields("refuse")%></td>
<%if rs7.fields("refuse")<>0 then%>
<td align="center" width="19">100</td>
<%else%>
<td align="center" width="25">0</td>
<%end if%>
</tr>
</table></center><br>
<%temp1="潜在客户"%>
<%temp2="预期客户"%>
<%temp3="首次购买客户"%>
<%temp4="忠诚客户"%>
<%temp5="重复购买客户"%>
<%temp6="拒绝客户"%>
<center><table border=0 cellspacing=0 width="90%">
<tr>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">
<a href="khtx.asp?type=<%=temp1%>&hzb=<%=hzb%>&zzb=<%=zzb1%>&bz=1&unit=个&tablename=潜在客户"><font size="2">潜在客户图</font></a></td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">
<a href="khtx.asp?type=<%=temp2%>&hzb=<%=hzb%>&zzb=<%=zzb2%>&bz=1&unit=个&tablename=预期客户"><font size="2">预期客户图</font></a></td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">
<a href="khtx.asp?type=<%=temp3%>&hzb=<%=hzb%>&zzb=<%=zzb3%>&bz=1&unit=个&tablename=首次购买客户"><font size="2">首次购买客户图</font></a></td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">
<a href="khtx.asp?type=<%=temp5%>&hzb=<%=hzb%>&zzb=<%=zzb4%>&bz=1&unit=个&tablename=重复购买客户"><font size="2">重复购买客户图</font></a></td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">
<a href="khtx.asp?type=<%=temp4%>&hzb=<%=hzb%>&zzb=<%=zzb5%>&bz=1&unit=个&tablename=忠诚客户"><font size="2">忠诚客户图</font></a></td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">
<a href="khtx.asp?type=<%=temp6%>&hzb=<%=hzb%>&zzb=<%=zzb6%>&bz=1&unit=个&tablename=拒绝客户"><font size="2">拒绝客户图</font></a></td>
</tr>
</table> </center> <br>
<center><a href="D_FenXiMainFrm.asp"><font size="2">返回</font></a></center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -