📄 d_clientareamainfrm.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 Area from D_clientinfo where tag='kh' and Area<>''",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 area<>'' 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 area<>'' 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 area<>'' 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 area<>'' 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 area<>'' and delflag='0'"
set rs10=pubconn.execute(sql5)%>
<%Totalchongfu=rs10.fields("chongfu") '重复购买客户总数%>
<%sql6="select count(clientnum) as refuse from D_clientinfo where tag='kh' and type='拒绝客户' and area<>'' and delflag='0'"
set rs11=pubconn.execute(sql6)%>
<%Totalrefuse=rs11.fields("refuse") '拒绝客户总数%>
<%'''''''''''''''''Total=TotalLatent+TotalPrev+TotalFirstBuy+TotalZhongCheng%>
<%rs.movefirst%>
<center><table border=1 cellspacing=0 width="636">
<tr>
<td width="36" bgcolor="#DDD2C4">
<p align="center">
区域</p>
</td>
<td width="42" bgcolor="#DDD2C4">
<p align="center">
潜在客户数</p>
</td>
<td width="35" bgcolor="#DDD2C4">
<p align="center">
百分比(%)</p>
</td>
<td width="43" bgcolor="#DDD2C4">
<p align="center">
预期客户数</p>
</td>
<td width="35" bgcolor="#DDD2C4">
<p align="center">
百分比(%)</p>
</td>
<td width="43" bgcolor="#DDD2C4">
<p align="center">
首次购买客户数</p>
</td>
<td width="35" bgcolor="#DDD2C4">
<p align="center">
百分比(%)</p>
</td>
<td width="44" bgcolor="#DDD2C4">
<p align="center">
重复购买客户数</p>
</td>
<td width="38" bgcolor="#DDD2C4">
<p align="center">
百分比(%)</p>
</td>
<td width="42" bgcolor="#DDD2C4">
<p align="center">
忠诚客户数</p>
</td>
<td width="37" bgcolor="#DDD2C4">
<p align="center">
百分比(%)</p>
</td>
<td width="42" bgcolor="#DDD2C4">
<p align="center">
拒绝客户数</p>
</td>
<td width="37" bgcolor="#DDD2C4">
<p align="center">
百分比(%)</p>
</td>
</tr>
<%line=0%>
<%while not rs.eof %>
<%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 area='"& trim(rs.fields("area")) &"'"
set rs6=pubconn.execute(sql7) ''''潜在客户数%>
<%sql8="select count(clientnum) as Latent from D_clientinfo where tag='kh' and type='预期客户' and delflag='0' and area='"& trim(rs.fields("area")) &"'"
set rs7=pubconn.execute(sql8) ''''预期客户数%>
<%sql9="select count(clientnum) as Latent from D_clientinfo where tag='kh' and type='首次购买客户' and delflag='0' and area='"& trim(rs.fields("area")) &"'"
set rs8=pubconn.execute(sql9) ''''首次购买客户数%>
<%sql10="select count(clientnum) as Latent from D_clientinfo where tag='kh' and type='忠诚客户' and delflag='0' and area='"& trim(rs.fields("area")) &"'"
set rs9=pubconn.execute(sql10) ''''忠诚客户数%>
<%sql11="select count(clientnum) as chongfu from D_clientinfo where tag='kh' and type='重复购买客户' and delflag='0' and area='"& trim(rs.fields("area")) &"'"
set rs18=pubconn.execute(sql11) ''''重复购买客户数%>
<%sql12="select count(clientnum) as refuse from D_clientinfo where tag='kh' and type='拒绝客户' and delflag='0' and area='"& trim(rs.fields("area")) &"'"
set rs19=pubconn.execute(sql12) ''''拒绝客户数%>
<tr bgcolor=<%=backcolor%>>
<td width="36">
<p align="center">
<%=rs.fields("Area")%></td> <%'行业%>
<%hzb=hzb&rs("area")&","%>
<td width="42">
<p align="center">
<%zzb1=zzb1&rs6.fields("Latent")&","%>
<%=rs6.fields("Latent")%></td> <%'潜在客户数%>
<%if rs2.fields("Latent")<>0 then%>
<td width="35">
<p align="center">
<%=round(rs6.fields("Latent")/rs2.fields("Latent"),2)*100%></td> <%'占百分比%>
<%else%>
<td width="43">
<p align="center">
</p>
</td>
<%end if%>
<td width="35">
<p align="center">
<%zzb2=zzb2&rs7.fields("latent")&","%>
<%=rs7.fields("Latent")%></td> <%'预期客户数%>
<%if rs3.fields("Prev")<>0 then%>
<td width="43">
<p align="center">
<%=round(rs7.fields("Latent")/rs3.fields("Prev"),2)*100%></td> <%'占百分比%>
<%else%>
<td width="35">
<p align="center">
</p>
</td>
<%end if%>
<td width="44">
<p align="center">
<%zzb3=zzb3&rs8.fields("latent")&","%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -