?? d_jxsleixingfrm.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">
<%''''''''''取出所有經(jīng)銷商'''''''''''''%>
<%set rs=server.CreateObject("adodb.recordset")
if rs.state=1 then rs.close
rs.open "select * from D_clientinfo where tag='hbdealer'",pubconn,1,3 '取出所有的經(jīng)銷商
if rs.recordcount<=0 then%>
<center><font size="2">提示:沒有記錄!</font></center>
<font size="2">
<a href="../Customer/D_JXSFenXiMainFrm.asp">返回</a>
<%response.end%>
<%else%>
<%rs.movefirst%>
<%end if %>
<%shangsheng=0
xiajiang=0
wenti=0%>
<%set rsdata=server.CreateObject("adodb.recordset") '取出時間跨度
rsdata.state=1 then rsdata.close
rsdata.open "select * from A_ClientSet where clientSet='價值上升客戶 '",pubconn,1,3
if rsdata.recordcount>0 then
data=rsdata.fields("LastData")
else
data=0
end if
rsdata.close%>
<%set rsshangshen=server.CreateObject("adodb.recordset") '取出價值上升客戶百分比
rsshangshen.state=1 then rsshangshen.close
rsshangshen.open "select * from A_ClientSet where clientSet='價值上升客戶 '",pubconn,1,3
if rsshangshen.recordcount>0 then
shangshenper=round(rsshangshen.fields("firstdata")/100,2)
else
shangshenper=0
end if
rsshangshen.close%>
<%set rsascend=server.CreateObject("adodb.recordset") '取出價值下降客戶百分比
rsascend.state=1 then rsascend.close
rsascend.open "select * from A_ClientSet where clientSet='價值下降客戶 '",pubconn,1,3
if rsascend.recordcount>0 then
rsascend=round(rsascend.fields("firstdata")/100,2)
else
rsascend=0
end if%>
<%set rsproblem=server.CreateObject("adodb.recordset") '取出價值問題客戶百分比
rsproblem.state=1 then rsproblem.close
rsproblem.open "select * from A_ClientSet where clientSet='問題客戶 '",pubconn,1,3
if rsproblem.recordcount>0 then
rsproblem=round(rsproblem.fields("firstdata")/100,2)
else
rsascend=0
end if%>
<%while not rs.eof%>
<%set currentMonthrs=server.CreateObject("adodb.recordset")
if currentMonthrs.state=1 then currentMonthrs.close
currentMonthrs.open "select"
set rs1=server.CreateObject("adodb.recordset")
if rs1.state=1 then rs1.close
rs1.open "select count(money) as money from viewtzd where clientnum='"& rs.fields("clientnum") &"' month(cDate(orddate))>=month(date()) and month(cDate(orddate))<=(month(date())+data)",pubconn,1,3
if rs1.recordcount>0 then
select case rs1.fields("money")
case
end select
end if
%>
<%wend%>
<br></font><br><br><br><h4><center><b>經(jīng)銷商類型分析</b></center></h4><br>
<table border=1 cellspacing=0 width="80%">
<tr>
<td>經(jīng)銷商類型</td>
<td>數(shù)量</td>
<td>占百分比(%)</td>
</tr>
<tr>
<td>價值上升伙伴</td>
<td align="center"></td>
<td align="center"></td>
</tr>
<tr>
<td>價值下降伙伴</td>
<td align="center"></td>
<td align="center"></td>
</tr>
<tr>
<td>問題伙伴</td>
<td align="center"></td>
<td align="center"></td>
</tr>
</table>
<a href="../Customer/D_JXSFenXiMainFrm.asp"><font size="2">返回</font></a>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -