<!--#include file="../Include/Const.Asp" -->
<!--#include file="../Include/ConnSiteData.Asp" -->
<!--#include file="../Include/Version.Asp" -->
<!--#include file="../CheckAdmin.Asp"-->
<%
If Request("Act") = "ClsCache" Then
    Call ClsCache()
End If

Dim Result,MemName,MemName_Pre,st,et,t,total_C,total_B,total_A,total_O,total_all
Result = request.QueryString("Result")
st=trim(request("st")) '开始时间
et=trim(request("et")) '结束时间

Action = request.QueryString("Action")
    If Action = "seach" Then
	st=trim(request.Form("st"))
	et=trim(request.Form("et"))
	  if st="" and et="" then
	     st=trim(request("st"))
         et=trim(request("et"))
	  end if
	end if
t=trim(request("t"))
if st="" and et="" then
   st=year(date())&"-"&month(date())&"-1"
   et=date()
   t="month"
end if


%>
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<!--[if !mso]> 
<style> 
v\:* { behavior: url(#default#VML) } 
o\:* { behavior: url(#default#VML) } 
.shape { behavior: url(#default#VML) } 
</style> 
<![endif]-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="stylesheet" href="../Images/Admin_style.css">
<script language="javascript" type="text/javascript" src="../My97DatePicker/WdatePicker.js"></script>
<script type="text/javascript">
<!--
function Checkstet()
{
   if (seach1.st.value.replace(/[ ]/g,"")=="")
   {
	  alert("请选择开始日期！");
	  return false;
   }
  if (seach1.et.value.replace(/[ ]/g,"")=="")
   {
	  alert("请选择结束日期！");
	  return false;
   }
}
-->
</script>
<br />
<table class="tableBorder" width="95%" border="0" align="center" cellpadding="5" cellspacing="1">
  <tr>
    <td class="forumRow">
	<div class="datelist"><form action="?Action=seach" method="post" id="seach1" onSubmit="return Checkstet()">
    <a href="?st=<%=GetNow(0)%>&et=<%=GetNow(0)%>">今日</a> 
    <a href="?st=<%=GetNow(1)%>&et=<%=GetNow(1)%>">昨日</a> 
    <a href="?st=<%=GetNow(7)%>&et=<%=GetNow(0)%>&t=7">最近7天</a>
    <a href="?st=<%=GetNow(30)%>&et=<%=GetNow(0)%>&t=30">最近30天</a>
    <a href="?st=<%=year(date())&"-"&month(date())&"-1"%>&et=<%=GetNow(0)%>&t=month">本月</a>
    &nbsp;&nbsp;
    选择日期 <input name="st" id="st" class="Wdate" type="text" onFocus="WdatePicker({skin:'blueFresh',maxDate:'#F{$dp.$D(\'et\')||\'2020-10-01\'}'})" value="<%=st%>"/>
   
   至 
   <input name="et" id="et" class="Wdate" type="text" onFocus="WdatePicker({skin:'blueFresh',minDate:'#F{$dp.$D(\'st\')}',maxDate:'2020-10-01'})" value="<%=et%>"/>
    
    <input name="submit" type="submit" id="submit" value="查询" /></form></div>
  
	</td>
  </tr>
  <tr>
    <td class="forumRow">&nbsp;
    <% My_Ability()%>
	 <img src="../Images/question.gif" width="18" height="18" />
     您
   <font color="#FF0000">
    <%
	select case t
	     case "7"
		     response.Write "最近7天"
		 case "30"
		     response.Write "最近30天"
		 case "month"
		      response.Write "本月" 	 
		 case else
		      if datediff("d",st,date())=0 then
			     response.Write "今日"
			  elseif datediff("d",st,date())=1 then
			     response.Write "昨日"
			  else
			     response.Write st&"<font color=""#0033FF""> 至 </font>"&et
			  end if
    end select		 
	%></font>
    
    共有业务机会 <%=total_all%> 个,其中
    C <font style="color:gray; font-style:italic; text-decoration:underline"><%=total_C%></font> 个,
    B <font style="color:#354C80; font-style:italic; text-decoration:underline"><%=total_B%></font> 个,
    A <font style="color:#C87701; font-style:italic; text-decoration:underline"><%=total_A%></font> 个,
    O <font style="color:#FF0000; font-style:italic; text-decoration:underline"><%=total_O%></font> 个。
    <br /><br />
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#cedced">
      <tr bgcolor="#ffffff">
        <td height="300">
        

        
<%
dim total(4,1) 
total(1,0)="C" 
total(2,0)="B" 
total(3,0)="A" 
total(4,0)="O"
total(1,1)=total_C
total(2,1)=total_B
total(3,1)=total_A
total(4,1)=total_O
	if total_all=0 then
		response.Write "<table width=""300"" border=""0"">"
		response.Write "<tr>"
	    response.Write "<td align=""center""><font color='#999999'>无数据</font></td>"
		response.Write "</tr>"
		response.Write "</table>"
	else
		call table3(total,80,200,200,180,"A")
	end if
%>
        </td>
      </tr>
</table>
    </td>
  </tr>
  </form>
</table>
<br />
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center">&nbsp;</td>
  </tr>
</table>
<br />
<%
function table3(total,table_x,table_y,all_width,all_height,table_type) 
'参数含义(传递的数组，横坐标，纵坐标，图表的宽度，图表的高度,图表的类型) 
'纯ASP代码生成图表函数3——饼图 
tb_height=30 

dim tb_color(4,2) 
tb_color(1,1)="gray" 
tb_color(2,1)="#354C80" 
tb_color(3,1)="#C87701" 
tb_color(4,1)="#FF0000" 
'tb_color(5,1)="#d9d9e5" 
'tb_color(6,1)="#ffc7ab" 
'tb_color(7,1)="#ecffb7" 

tb_color(1,2)="gray" 
tb_color(2,2)="#354C80" 
tb_color(3,2)="#C87701" 
tb_color(4,2)="#FF0000" 
'tb_color(5,2)="#666699" 
'tb_color(6,2)="#993300" 
'tb_color(7,2)="#99cc00" 

total_no=ubound(total,1) 
totalpie=0 
for i=1 to total_no
totalpie=totalpie+total(i,1) 
next 

PreAngle=0 
for i=1 to total_no 
response.write "<v:shape id='_x0000_s1025' alt='' style='position:absolute;left:"&table_x&"px;top:"&table_y&"px;width:"&all_width&"px;height:"&all_height&"px;z-index:1' coordsize='1500,1400' o:spt='100' adj='0,,0' path='m750,700ae750,700,750,700,"&int(23592960*PreAngle)&","&int(23592960*total(i,1)/totalpie)&"xe' fillcolor='"&tb_color(i,1)&"' strokecolor='#FFFFFF'><v:fill color2='"&tb_color(i,2)&"' rotate='t' focus='100%' type='gradient'/><v:stroke joinstyle='round'/><v:formulas/><v:path o:connecttype='segments'/></v:shape>"&CHr(13) 
PreAngle=PreAngle+total(i,1)/totalpie 
next 

if table_type="A" then
response.write "<v:rect id='_x0000_s1025' style='position:absolute;left:"&table_x+all_width+20&"px;top:"&table_y+20&"px;width:100px;height:"&total_no*tb_height+20&"px;z-index:1'/>" 
for i=1 to total_no 
response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x+all_width+25&"px;top:"&table_y+30+(i-1)*tb_height&"px;width:60px;height:"&tb_height&"px;z-index:1'>" 
response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='left'>"&total(i,0)&"</td></tr></table></v:textbox></v:shape>" 
response.write "<v:rect id='_x0000_s1040' alt='' style='position:absolute;left:"&table_x+all_width+80&"px;top:"&table_y+30+(i-1)*tb_height+3&"px;width:30px;height:20px;z-index:1' fillcolor='"&tb_color(i,1)&"'><v:fill color2='"&tb_color(i,2)&"' rotate='t' focus='100%' type='gradient'/></v:rect>" 
'显示比例数 
 response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&table_x+all_width+130&"px;top:"&table_y+30+(i-1)*tb_height&"px;width:60px;height:"&tb_height&"px;z-index:1'>" 
 response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='left'>"&formatnumber(total(i,1)*100/totalpie,2,-1)&"%</td></tr></table></v:textbox></v:shape>" 
next 
end if 

if table_type="B" then 
pie=3.14159265358979 
TempPie=0 
for i=1 to total_no 
TempAngle=pie*2*(total(i,1)/(TotalPie*2)+TempPie) 
x1=table_x+all_width/2+cos(TempAngle)*all_width*3/8 
y1=table_y+all_height/2-sin(TempAngle)*all_height*3/8 
x2=table_x+all_width/2+cos(TempAngle)*all_width*3/4 
y2=table_y+all_height/2-sin(TempAngle)*all_height*3/4 
if x2>table_x+all_width/2 then 
x3=x2+20 
x4=x3 
else 
x3=x2-20 
x4=x3-100 
end if 
response.write "<v:oval id='_x0000_s1027' style='position:absolute;left:"&x1-2&"px;top:"&y1-2&"px;width:4px;height:4px; z-index:2' fillcolor='#111111' strokecolor='#111111'/>"&CHR(13) 
response.write "<v:line id='_x0000_s1025' alt='' style='position:absolute;left:0;text-align:left;top:0;z-index:1' from='"&x1&"px,"&y1&"px' to='"&x2&"px,"&y2&"px' coordsize='21600,21600' strokecolor='#111111' strokeweight='1px'></v:line>" 
response.write "<v:line id='_x0000_s1025' alt='' style='position:absolute;left:0;text-align:left;top:0;z-index:1' from='"&x2&"px,"&y2&"px' to='"&x3&"px,"&y2&"px' coordsize='21600,21600' strokecolor='#111111' strokeweight='1px'></v:line>" 
response.write "<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:"&x4&"px;top:"&y2-10&"px;width:100px;height:20px;z-index:1'>" 
response.write "<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='left'>"&total(i,0)&" "&formatnumber(total(i,1)*100/totalpie,2,-1)&"%</td></tr></table></v:textbox></v:shape>" 
TempPie=TempPie+total(i,1)/TotalPie 
next 
end if 

end function

Function My_Ability() '统计时间段内业务机会C\B、A、O的数量
    Dim rs,sql
    Set rs = server.CreateObject("adodb.recordset")
	sql = "select * from Zqj_chances where ch_MemName='"&session("UserName")&"' and ch_addtime between #"&st&"# and #"&dateadd("d",+1,et)&"#"
    rs.Open sql,conn,1,1
		total_C=0
		total_B=0
		total_A=0
		total_O=0	
	if rs.bof and rs.eof then
	   total_all=0
	else
	    total_all=rs.recordcount
		While Not rs.EOF
		   chstate=rs("ch_status")
		   select case chstate
		          case "C"
				        total_C=total_C+1
				  case "B"
				        total_B=total_B+1
				  case "A"
				        total_A=total_A+1
				  case "O"
				        total_O=total_O+1
				  case else
			end select
        rs.movenext
        Wend
	end if
    
    rs.Close
    Set rs = Nothing
End Function
%>