⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 d_jxsleixingfrm.asp

📁 一个很好的在线购物系统
💻 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">
<%''''''''''取出所有经销商'''''''''''''%>
<%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  '取出所有的经销商
  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>经销商类型分析</b></center></h4><br>

<table border=1 cellspacing=0 width="80%">
  <tr>
    <td>经销商类型</td>
    <td>数量</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>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -