📄 d_jxsfenxiareafrm.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">
<p align="center">
<br><br><br><br><font size=3><b>经销商区域分布分析</b></font><br>
<%set rs=server.CreateObject("adodb.recordset")
if rs.state=1 then rs.close
rs.open "select distinct area from D_clientinfo where tag='hbdealer' and area<>'' and delflag='0'",pubconn,1,3%>
<%if rs.recordcount<=0 then%>
<br><br><% response.write "提示:没记录!"%><br><br>
<a href="../Customer/D_JXSFenXiMainFrm.asp"><font size="2">返回</font></a>
<%response.end()
end if%>
<%set rs2=server.CreateObject("adodb.recordset")
if rs2.state=1 then rs2.close
rs2.open "select count(*) as area from D_clientinfo where tag='hbdealer' and area <>'' and delflag='0'",pubconn,1,3%>
<%Total=rs2.fields("area") '区域总数%>
<form name="form1" method="post" action="#">
<center><table border=1 cellspacing=0 width="456">
<tr>
<td align="center" bgcolor="#DDD2C4" width="199">经销商名称</td>
<td align="center" bgcolor="#DDD2C4" width="141">经销商数量</td>
<td align="center" bgcolor="#DDD2C4" width="95">占百分比(%)</td>
</tr>
<%rs.movefirst%>
<%line=0%>
<%while not rs.eof%>
<%line=cint(line)+1%>
<%if line mod 2 =0 then%>
<%backcolor="#f7f7f7"%>
<%else%>
<%backcolor="#EDEBEC"%>
<%end if%>
<%set rs3=server.CreateObject("adodb.recordset")
if rs3.state=1 then rs3.close
rs3.open "select count(*) as area from D_clientinfo where tag='hbdealer' and area='"& rs.fields("area") &"' and delflag='0'",pubconn,1,3%>
<tr bgcolor=<%=backcolor%>>
<td align="center" width="199"><%=rs.fields("area")%></td>
<td align="center" width="141"><%=rs3.fields("area")%></td>
<%if Total<>0 then%>
<td align="center" width="95"><%=round(rs3.fields("area")/Total,2)*100%></td>
<%else%>
<td width="3"> </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="199">合计</td>
<td align="center" width="141"><%=Total%></td>
<td align="center" width="95">100</td>
</tr>
</table></center>
</form>
<center>
<center>
<%jxs="经销商区域分析"%>
</center>
</center>
<p>
<center>
<a href="D_JXSFenXiGraphic.asp?jxs=<%=jxs%>&area=99"><font size="2">图形</font></a>
<font size="2">
<a href="../Customer/D_JXSFenXiMainFrm.asp">返回</a></font>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -