📄 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">
<table border="0" cellpadding="0" cellspacing="0" width="93%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif">
</font><font size="2">经销商区域分布分析</font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<br><br><br><br>
<%hzb=""
zzb=""
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="D_FenXiMainFrm.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%>">
<%hzb=hzb&rs("area")&","%>
<td align="center" width="199"><%=rs.fields("area")%></td>
<%zzb=zzb&rs3("area")&","%>
<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="khtx.asp?hzb=<%=hzb%>&zzb=<%=zzb%>&bz=1&unit=&tablename=经销商区域分布分析"><font size="2">图形</font></a>
<font size="2">
<a href="D_FenXiMainFrm.asp">返回</a></font>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -