📄 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>
<%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%>
<%set rs2=server.CreateObject("adodb.recordset")
if rs2.state=1 then rs2.close
rs2.open "select count(*) as Latent from D_clientinfo where tag='kh' and type='潜在客户' and occupation<>'' and delflag='0'",pubconn,1,3%>
<%TotalLatent=rs2.fields("Latent") '潜在客户总数%>
<%set rs3=server.CreateObject("adodb.recordset")
if rs3.state=1 then rs3.close
rs3.open "select count(*) as Prev from D_clientinfo where tag='kh' and type='预期客户' and occupation<>'' and delflag='0'",pubconn,1,3%>
<%TotalPrev=rs3.fields("Prev") '预期客户总数%>
<%set rs4=server.CreateObject("adodb.recordset")
if rs4.state=1 then rs4.close
rs4.open "select count(*) as FirstBuy from D_clientinfo where tag='kh' and type='首次购买客户' and occupation<>'' and delflag='0'",pubconn,1,3%>
<%TotalFirstBuy=rs4.fields("FirstBuy") '首次购买客户总数%>
<%set rs5=server.CreateObject("adodb.recordset")
if rs5.state=1 then rs5.close
rs5.open "select count(*) as ZhongCheng from D_clientinfo where tag='kh' and type='忠诚客户' and occupation<>'' and delflag='0'",pubconn,1,3%>
<%TotalZhongCheng=rs5.fields("ZhongCheng") '忠诚客户总数%>
<%set rs6=server.CreateObject("adodb.recordset")
if rs6.state=1 then rs6.close
rs6.open "select count(*) as chongfu from D_clientinfo where tag='kh' and type='重复购买客户' and occupation<>'' and delflag='0'",pubconn,1,3%>
<%Totalchongfu=rs6.fields("chongfu") '重复购买客户总数%>
<%set rs7=server.CreateObject("adodb.recordset")
if rs7.state=1 then rs7.close
rs7.open "select count(*) as refuse from D_clientinfo where tag='kh' and type='拒绝客户' and occupation<>'' and delflag='0'",pubconn,1,3%>
<%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%>
<%set rs16=server.CreateObject("adodb.recordset")
if rs16.state=1 then rs16.close
rs16.open " select count(*) as Latent from D_clientinfo where tag='kh' and type='潜在客户' and delflag='0' and occupation='"& trim(rs.fields("occupation")) &"'",pubconn,1,3 ''''潜在客户数%>
<%set rs17=server.CreateObject("adodb.recordset")
if rs17.state=1 then rs17.close
rs17.open "select count(*) as Latent from D_clientinfo where tag='kh' and type='预期客户' and delflag='0' and occupation='"& trim(rs.fields("occupation")) &"'",pubconn,1,3 ''''预期客户数%>
<%set rs8=server.CreateObject("adodb.recordset")
if rs8.state=1 then rs8.close
rs8.open "select count(*) as Latent from D_clientinfo where tag='kh' and type='首次购买客户' and delflag='0' and occupation='"& trim(rs.fields("occupation")) &"'",pubconn,1,3 ''''首次购买客户数%>
<%set rs9=server.CreateObject("adodb.recordset")
if rs9.state=1 then rs9.close
rs9.open "select count(*) as Latent from D_clientinfo where tag='kh' and type='忠诚客户' and delflag='0' and occupation='"& trim(rs.fields("occupation")) &"'",pubconn,1,3 ''''忠诚客户数%>
<%set rs10=server.CreateObject("adodb.recordset")
if rs10.state=1 then rs10.close
rs10.open "select count(*) as chongfu from D_clientinfo where tag='kh' and type='重复购买客户' and delflag='0' and occupation='"& trim(rs.fields("occupation")) &"'",pubconn,1,3 ''''重复购买客户数%>
<%set rs11=server.CreateObject("adodb.recordset")
if rs11.state=1 then rs11.close
rs11.open "select count(*) as refuse from D_clientinfo where tag='kh' and type='拒绝客户' and delflag='0' and occupation='"& trim(rs.fields("occupation")) &"'",pubconn,1,3 ''''拒绝客户数%>
<tr bgcolor=<%=backcolor%>>
<td align="center" width="67"><%=rs.fields("occupation")%></td> <%'行业%>
<%'response.write rs.fields("occupation")%>
<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%>
<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%>
<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%>
<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%>
<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%>
<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="D_GraphicHanYe.asp?type=<%=temp1%>&area=0"><font size="2">潜在客户图</font></a></td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><a href="D_GraphicHanYe.asp?type=<%=temp2%>&area=0"><font size="2">预期客户图</font></a></td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><a href="D_GraphicHanYe.asp?type=<%=temp3%>&area=0"><font size="2">首次购买客户图</font></a></td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><a href="D_GraphicHanYe.asp?type=<%=temp5%>&area=0"><font size="2">重复购买客户图</font></a></td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><a href="D_GraphicHanYe.asp?type=<%=temp4%>&area=0"><font size="2">忠诚客户图</font></a></td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><a href="D_GraphicHanYe.asp?type=<%=temp6%>&area=0"><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 + -