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"%>
<%Server.Scripttimeout = 5000%>
<%Response.Charset="gb2312"%>

<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

'��ȡ������Ϣ��������ͼ
    dim haiyunmsg(100000,3) '100000�У�3�У��ɴ洢100000��������������ϣ����ڡ���𡢵�ǰ��Ҫ��ֵ���������ɹ��������������
    id_haiyunmsg = 0
    set dthaiyunmsg=server.CreateObject("adodb.recordset")
    typtime = "out"
    typ = "BOXCNT"
    cntfenge = 12
    echartsName = "����"
    sql = "select TRANSDATE,org,sum(BOXCOUNT) as boxcount from (select cast(B.TRANSDATE as date) as TRANSDATE,A.BOXCOUNT,coalesce((select right(orgcode,2) from bu_prdprd where prdcode = A.prdcode10),right(A.orgcode,2)) as org from  tr_seatranslist A,TR_SEATRANSLOG B WHERE A.BILLNO = B.BILLNO AND B.status in (4,5) AND B.TRANSDATE <> '2015-01-01' ) a group by TRANSDATE,org" 
    if request.Form("submit")="submit" then
        typtime = request.Form("typtime")
        typ = request.Form("typ")
        cntfenge = request.Form("cntfenge")
        if typtime = "out" then
            if typ = "BOXCNT" then
                echartsName = "����"
                sql = "Select TRANSDATE,org,sum(BOXCOUNT) as boxcount from (select cast(B.TRANSDATE as date) as TRANSDATE,A.BOXCOUNT,coalesce((select right(orgcode,2) from bu_prdprd where prdcode = A.prdcode10),right(A.orgcode,2)) as org from  tr_seatranslist A,TR_SEATRANSLOG B WHERE A.BILLNO = B.BILLNO AND B.status in (4,5) AND B.TRANSDATE <> '2015-01-01' ) a group by TRANSDATE,org"
            elseif typ = "MONEY" then
                echartsName = "�ɹ���"
                sql = "Select TRANSDATE,org,sum(AVGPRICE) as AVGPRICE from (select cast(B.TRANSDATE as date) as TRANSDATE,A.ACTAMT*coalesce((SELECT AVGPRICE FROM BU_PRDPRD WHERE PRDCODE = A.PRDCODE10),0) AS AVGPRICE,coalesce((select right(orgcode,2) from bu_prdprd where prdcode = A.prdcode10),right(A.orgcode,2)) as org from  tr_seatranslist A,TR_SEATRANSLOG B WHERE A.BILLNO = B.BILLNO AND B.status in (4,5) AND B.TRANSDATE <> '2015-01-01' ) a group by TRANSDATE,org"
            elseif typ = "M3" then
                echartsName = "���M3"
                sql = "Select TRANSDATE,org,sum(BULKBYM) as BULKBYM from (select cast(B.TRANSDATE as date) as TRANSDATE,A.ACTAMT*coalesce((SELECT sum_bulkbym FROM vbu_prdprd2 WHERE PRDCODE10 = A.PRDCODE10),0) AS BULKBYM,coalesce((select right(orgcode,2) from bu_prdprd where prdcode = A.prdcode10),right(A.orgcode,2)) as org from  tr_seatranslist A,TR_SEATRANSLOG B WHERE A.BILLNO = B.BILLNO AND B.status in (4,5) AND B.TRANSDATE <> '2015-01-01' ) a group by TRANSDATE,org"
            elseif typ = "KG" then 
                echartsName = "����KG"
                sql = "Select TRANSDATE,org,sum(WEIGHTKG) as BULKBYM from (select cast(B.TRANSDATE as date) as TRANSDATE,A.ACTAMT*coalesce((SELECT sum_grosswetkg FROM vbu_prdprd2 WHERE PRDCODE10 = A.PRDCODE10),0) AS WEIGHTKG,coalesce((select right(orgcode,2) from bu_prdprd where prdcode = A.prdcode10),right(A.orgcode,2)) as org from  tr_seatranslist A,TR_SEATRANSLOG B WHERE A.BILLNO = B.BILLNO AND B.status in (4,5) AND B.TRANSDATE <> '2015-01-01' ) a group by TRANSDATE,org"
            end if
        else 'in
            if typ = "BOXCNT" then
                echartsName = "����"
                sql = "Select LOADENDDT,org,sum(BOXCOUNT) as boxcount from (select cast(B.LOADENDDT as date) as LOADENDDT,A.BOXCOUNT,coalesce((select right(orgcode,2) from bu_prdprd where prdcode = A.prdcode10),right(A.orgcode,2)) as org from  tr_seatranslist A,TR_SEATRANSLOG B WHERE A.BILLNO = B.BILLNO AND B.status =5 AND B.TRANSDATE <> '2015-01-01'  ) a group by LOADENDDT,org"
            elseif typ = "MONEY" then
                echartsName = "�ɹ���"
                sql = "Select LOADENDDT,org,sum(AVGPRICE) as AVGPRICE from (select cast(B.LOADENDDT as date) as LOADENDDT,A.ACTAMT*coalesce((SELECT  AVGPRICE  FROM BU_PRDPRD WHERE PRDCODE = A.PRDCODE10),0) AS AVGPRICE,coalesce((select right(orgcode,2) from bu_prdprd where prdcode = A.prdcode10),right(A.orgcode,2)) as org from  tr_seatranslist A,TR_SEATRANSLOG B WHERE A.BILLNO = B.BILLNO AND B.status =5 AND B.TRANSDATE <> '2015-01-01' ) a group by LOADENDDT,org"
            elseif typ = "M3" then
                echartsName = "���M3"
                sql = "Select LOADENDDT,org,sum(BULKBYM) as BULKBYM from (select cast(B.LOADENDDT as date) as LOADENDDT,A.ACTAMT*coalesce((SELECT sum_bulkbym FROM vbu_prdprd2 WHERE PRDCODE10 = A.PRDCODE10),0) AS BULKBYM,coalesce((select right(orgcode,2) from bu_prdprd where prdcode = A.prdcode10),right(A.orgcode,2)) as org from  tr_seatranslist A,TR_SEATRANSLOG B WHERE A.BILLNO = B.BILLNO AND B.status =5 AND B.TRANSDATE <> '2015-01-01' ) a group by LOADENDDT,org"
            elseif typ = "KG" then 
                echartsName = "����KG"
                sql = "Select LOADENDDT,org,sum(WEIGHTKG) as BULKBYM from (select cast(B.LOADENDDT as date) as LOADENDDT,A.ACTAMT*coalesce((SELECT  sum_grosswetkg  FROM vbu_prdprd2 WHERE PRDCODE10 = A.PRDCODE10),0) AS WEIGHTKG,coalesce((select right(orgcode,2) from bu_prdprd where prdcode = A.prdcode10),right(A.orgcode,2)) as org from  tr_seatranslist A,TR_SEATRANSLOG B WHERE A.BILLNO = B.BILLNO AND B.status =5 AND B.TRANSDATE <> '2015-01-01' ) a group by LOADENDDT,org"
            end if
        end if
    end if
    dthaiyunmsg.open sql,conn,1,1
    opdtmax= "2019-01-01"
    opdtmin = "2019-01-01"
    do while not dthaiyunmsg.eof
        haiyunmsg(id_haiyunmsg,0) = dthaiyunmsg(0)
        haiyunmsg(id_haiyunmsg,1) = dthaiyunmsg(1)
        haiyunmsg(id_haiyunmsg,2) = dthaiyunmsg(2)
        if opdtmax < dthaiyunmsg(0) then opdtmax = dthaiyunmsg(0)
        if opdtmin > dthaiyunmsg(0) then opdtmin = dthaiyunmsg(0)
        id_haiyunmsg = id_haiyunmsg + 1
        dthaiyunmsg.movenext
    loop
    dthaiyunmsg.close
    set dthaiyunmsg = nothing
    needdata = ""
    dim OrgMsg(100,3) '���������,id (id ��Ϊ��֮�󷽱����飩
    id_org = 0
    dim OrgFGS(10) '�ֹ�˾����
    id_fgs = 0
    flg_findfgs = 0
    set dtorg=server.CreateObject("adodb.recordset")
    sqlorg = "select cast(DISPVALUE as nvarchar),cast(PARMVALUE as nvarchar) from OM_COMMPARM where fldname = 'PLANORG' order by sortid" '����ָ��˳������
    dtorg.open sqlorg,conn,1,1
    do while not dtorg.eof
        OrgMsg(id_org,0) = dtorg(0)
        OrgMsg(id_org,1) = dtorg(1)
        'OrgMsg(id_org,2) = id_org
        id_org = id_org + 1
        flg_findfgs = 0
        for i = 0 to id_fgs
            if OrgFGS(i) = dtorg(0) then
                flg_findfgs = 1
                exit for
            end if
        next
        if flg_findfgs = 0 then 
            OrgFGS(id_fgs) = dtorg(0)
            id_fgs = id_fgs + 1
        end if
        dtorg.movenext
    loop
    dtorg.close
    set dtorg = nothing
    conn.close
    set conn = nothing
    for i = 0 to id_org - 1
        OrgMsg(i,2) = i + 2 + id_fgs '�� HaiyunMsgHuizon���е�����
    next

'���ݲ�ѯ���ͽ����ٴλ��ܣ�����˴λ�������Ϊ�·�
    Dim HaiyunMsgHuizon(2401,100) '��0�б�����𣨵�ǰ�ƻ�������45���飬4������+1���ܹ�˾������0�б���ʱ�䣬����ѡ�����;���ʱ����ʾ����ౣ��100��*24�����ݣ��԰����Ϊ�ָλ��
    HaiyunMsgHuizon(0,1) = "�ܹ�˾"
    for i = 0 to id_fgs-1
        HaiyunMsgHuizon(0,i+2) = OrgFGS(i)
    next
    for i = 0 to id_org-1
        HaiyunMsgHuizon(0,id_fgs+2+i) = OrgMsg(i,1)
    next
    id_lie = 1 + 1 + id_fgs + id_org ' ��һ�� + ȫ��˾ + �ֹ�˾ + ���

'��������������������ȫ��
    yymax = year(opdtmax)
    yymin = year(opdtmin)
    'id_huizong ��ʾ����������-1��X����Ҫ��ʾ������
    id_huizong = 1
    'id_cur ��ʾд���������ʱ�������Ҫд�����
    id_cur = 0
    if cntfenge = 1 then
        for i = yymin to yymax
            HaiyunMsgHuizon(id_huizong,0) = i & "��":id_huizong = id_huizong + 1
        next
        '��ʼ������
        for i = 1 to id_huizong - 1
            for j = 1 to id_lie - 1
                HaiyunMsgHuizon(i,j) = 0
            next
        next
        '�����ʵ����
        for i = 0 to id_haiyunmsg - 1
            '���ҵ�ǰ��Ӧ�к�
            for j = 2+id_fgs to id_lie - 1
                if HaiyunMsgHuizon(0,j) = haiyunmsg(i,1) then
                    exit for
                end if
            next
            id_cur = (year(haiyunmsg(i,0)) - yymin) + 1
            HaiyunMsgHuizon(id_cur,j) = CDbl(HaiyunMsgHuizon(id_cur,j)) + CDbl(haiyunmsg(i,2))
        next
    end if
    if cntfenge = 2 then
        for i = yymin to yymax
            HaiyunMsgHuizon(id_huizong,0) = i & "���ϰ���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "���°���":id_huizong = id_huizong + 1
        next
        '��ʼ������
        for i = 1 to id_huizong - 1
            for j = 1 to id_lie - 1
                HaiyunMsgHuizon(i,j) = 0
            next
        next
        '�����ʵ����
        for i = 0 to id_haiyunmsg - 1
            '���ҵ�ǰ��Ӧ�к�
            for j = 2+id_fgs to id_lie - 1
                if HaiyunMsgHuizon(0,j) = haiyunmsg(i,1) then
                    exit for
                end if
            next
            if month(haiyunmsg(i,0)) <7 then
                id_cur = (year(haiyunmsg(i,0)) - yymin)*cntfenge + 1
            else
                id_cur = (year(haiyunmsg(i,0)) - yymin)*cntfenge + 2
            end if
            HaiyunMsgHuizon(id_cur,j) = CDbl(HaiyunMsgHuizon(id_cur,j)) + CDbl(haiyunmsg(i,2))
        next
    end if
    if cntfenge = 3 then
        for i = yymin to yymax
            HaiyunMsgHuizon(id_huizong,0) = i & "��ǰ�ĸ���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "���м��ĸ���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "����ĸ���":id_huizong = id_huizong + 1
        next
        '��ʼ������
        for i = 1 to id_huizong - 1
            for j = 1 to id_lie - 1
                HaiyunMsgHuizon(i,j) = 0
            next
        next
        '�����ʵ����
        for i = 0 to id_haiyunmsg - 1
            '���ҵ�ǰ��Ӧ�к�
            for j = 2+id_fgs to id_lie - 1
                if HaiyunMsgHuizon(0,j) = haiyunmsg(i,1) then
                    exit for
                end if
            next
            if month(haiyunmsg(i,0)) <5 then
                id_cur = (year(haiyunmsg(i,0)) - yymin)*cntfenge + 1
            elseif month(haiyunmsg(i,0)) >=5 and month(haiyunmsg(i,0)) <9 then
                id_cur = (year(haiyunmsg(i,0)) - yymin)*cntfenge + 2
            else
                id_cur = (year(haiyunmsg(i,0)) - yymin)*cntfenge + 3
            end if
            HaiyunMsgHuizon(id_cur,j) = CDbl(HaiyunMsgHuizon(id_cur,j)) + CDbl(haiyunmsg(i,2))
        next
    end if
    if cntfenge = 4 then
        for i = yymin to yymax
            HaiyunMsgHuizon(id_huizong,0) = i & "��ǰ��һ����":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��ǰ�ڶ�����":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��ǰ��������":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��ǰ���ļ���":id_huizong = id_huizong + 1
        next
        '��ʼ������
        for i = 1 to id_huizong - 1
            for j = 1 to id_lie - 1
                HaiyunMsgHuizon(i,j) = 0
            next
        next
        '�����ʵ����
        for i = 0 to id_haiyunmsg - 1
            '���ҵ�ǰ��Ӧ�к�
            for j = 2+id_fgs to id_lie - 1
                if HaiyunMsgHuizon(0,j) = haiyunmsg(i,1) then
                    exit for
                end if
            next
            if month(haiyunmsg(i,0)) <4 then
                id_cur = (year(haiyunmsg(i,0)) - yymin)*cntfenge + 1
            elseif month(haiyunmsg(i,0)) >=4 and month(haiyunmsg(i,0)) <7 then
                id_cur = (year(haiyunmsg(i,0)) - yymin)*cntfenge + 2
            elseif month(haiyunmsg(i,0)) >=8 and month(haiyunmsg(i,0)) <10 then
                id_cur = (year(haiyunmsg(i,0)) - yymin)*cntfenge + 3
            else
                id_cur = (year(haiyunmsg(i,0)) - yymin)*cntfenge + 4
            end if
            HaiyunMsgHuizon(id_cur,j) = CDbl(HaiyunMsgHuizon(id_cur,j)) + CDbl(haiyunmsg(i,2))
        next
    end if
    if cntfenge = 12 then
        for i = yymin to yymax
            HaiyunMsgHuizon(id_huizong,0) = i & "��1��":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��2��":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��3��":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��4��":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��5��":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��6��":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��7��":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��8��":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��9��":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��10��":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��11��":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��12��":id_huizong = id_huizong + 1
        next
        '��ʼ������
        for i = 1 to id_huizong - 1
            for j = 1 to id_lie - 1
                HaiyunMsgHuizon(i,j) = 0
            next
        next
        '�����ʵ����
        for i = 0 to id_haiyunmsg - 1
            '���ҵ�ǰ��Ӧ�к�
            for j = 2+id_fgs to id_lie - 1
                if HaiyunMsgHuizon(0,j) = haiyunmsg(i,1) then
                    exit for
                end if
            next
            id_cur = (year(haiyunmsg(i,0)) - yymin)*cntfenge + month(haiyunmsg(i,0))
            HaiyunMsgHuizon(id_cur,j) = CDbl(HaiyunMsgHuizon(id_cur,j)) + CDbl(haiyunmsg(i,2))
        next
    end if
    if cntfenge = 24 then
        for i = yymin to yymax
            HaiyunMsgHuizon(id_huizong,0) = i & "��1���ϰ���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��1���°���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��2���ϰ���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��2���°���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��3���ϰ���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��3���°���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��4���ϰ���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��4���°���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��5���ϰ���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��5���°���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��6���ϰ���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��6���°���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��7���ϰ���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��7���°���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��8���ϰ���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��8���°���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��9���ϰ���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��9���°���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��10���ϰ���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��10���°���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��11���ϰ���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��11���°���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��12���ϰ���":id_huizong = id_huizong + 1
            HaiyunMsgHuizon(id_huizong,0) = i & "��12���°���":id_huizong = id_huizong + 1
        next
        '��ʼ������
        for i = 1 to id_huizong - 1
            for j = 1 to id_lie - 1
                HaiyunMsgHuizon(i,j) = 0
            next
        next
        '�����ʵ����
        for i = 0 to id_haiyunmsg - 1
            '���ҵ�ǰ��Ӧ�к�
            for j = 2+id_fgs to id_lie - 1
                if HaiyunMsgHuizon(0,j) = haiyunmsg(i,1) then
                    exit for
                end if
            next
            if day(haiyunmsg(i,0)) <= 15 then
                id_cur = (year(haiyunmsg(i,0)) - yymin)*cntfenge + month(haiyunmsg(i,0))*2-1
            else
                id_cur = (year(haiyunmsg(i,0)) - yymin)*cntfenge + month(haiyunmsg(i,0))*2
            end if
            HaiyunMsgHuizon(id_cur,j) = CDbl(HaiyunMsgHuizon(id_cur,j)) + CDbl(haiyunmsg(i,2))
        next
    end if
    '�������ݻ���
    for i = 2 to 1 + id_fgs
        '��ȡ����к�
        for j=0 to id_org-1
            if OrgMsg(j,0) = HaiyunMsgHuizon(0,i) then
                for k = 1 to id_huizong - 1
                    HaiyunMsgHuizon(k,i) = CDbl(HaiyunMsgHuizon(k,i)) + CDbl(HaiyunMsgHuizon(k,OrgMsg(j,2)))
                next
            end if
        next
    next
    'ȫ��˾����
    for i = 1 to id_huizong - 1
        for j = 2 to id_fgs + 1
            HaiyunMsgHuizon(i,1) = CDbl(HaiyunMsgHuizon(i,1)) + CDbl(HaiyunMsgHuizon(i,j))
        next
    next
    'ͼ����ʾ��ʽ���ܹ�˾���ֹ�˾ һ����ÿ���ֹ�˾һ��
    cnt_dom = 1 + id_fgs 'ͼ������
    dataX = "["
    for i = 1 to id_huizong-1
        dataX = dataX & "'" & HaiyunMsgHuizon(i,0) & "',"
    next
    dataX = left(dataX,len(dataX) -1) & "]"
    '���JSON����
    needdata = "{'��˾':{"
    for i = 1 to id_fgs + 1
        needdata = needdata & "'" & HaiyunMsgHuizon(0,i) & "':["
        for j = 1 to id_huizong-1
            needdata = needdata & HaiyunMsgHuizon(j,i) & ","
        next
        needdata = left(needdata,len(needdata) - 1) & "],"
    next
    needdata = left(needdata,len(needdata)-1) & "},"
    '�ֹ�˾��Ϣ
    for i = 0 to id_fgs-1
        needdata = needdata & "'" & OrgFGS(i) & "':{"
        for j = 0 to id_org
            if OrgMsg(j,0) = OrgFGS(i) then 
                needdata = needdata & "'" & OrgMsg(j,1) & "��':["
                for k = 1 to id_huizong -1
                    needdata = needdata& HaiyunMsgHuizon(k,OrgMsg(j,2)) & ","
                next
                needdata = left(needdata,len(needdata)-1) & "],"
            end if
        next
        needdata = left(needdata,len(needdata)-1) & "},"
    next
    needdata = left(needdata,len(needdata)-1) & "}"

%>
    <div style="margin:0 auto; text-align:center">
    <form method="post" action="" align="center">

<table width="800" border="1" style="border-collapse: collapse" align="center">
            <tr>
                <td nowrap>ʱ�����ͣ�
                    <select name="typtime">
                        <option value="out" <%if typtime = "out" then%>selected="selected"<%end if%>>����װ������</option>
                        <option value="in" <%if typtime = "in" then%>selected="selected"<%end if%>>�����������</option>
                    </select>
                </td>
                <td nowrap>�鿴�������ͣ�
                    <select name="typ">
                        <option value="BOXCNT" <%if typ = "BOXCNT" then%>selected="selected"<%end if%>>����</option>
                        <option value="MONEY" <%if typ = "MONEY" then%>selected="selected"<%end if%>>�ɹ���</option>
                        <option value="M3" <%if typ = "M3" then%>selected="selected"<%end if%>>���M3</option>
                        <option value="KG" <%if typ = "KG" then%>selected="selected"<%end if%>>����KG</option>
                    </select>
                </td>
                <td nowrap>һ��ȷָ�������
                    <select name="cntfenge">
                        <option value="1" <%if cntfenge = "1" then%>selected="selected"<%end if%>>1��</option>
                        <option value="2" <%if cntfenge = "2" then%>selected="selected"<%end if%>>2��</option>
                        <option value="3" <%if cntfenge = "3" then%>selected="selected"<%end if%>>3��</option>
                        <option value="4" <%if cntfenge = "4" then%>selected="selected"<%end if%>>4��</option>
                        <option value="12" <%if cntfenge = "12" then%>selected="selected"<%end if%>>12��</option>
                        <option value="24" <%if cntfenge = "24" then%>selected="selected"<%end if%>>24��</option>
                    </select>
                </td>
                <td nowrap><input type="submit" name="submit" value="submit"></td>
            </tr>
            <tr>
                <td colspan="3">������Դ������װ�䵥��ѡ�������ǡ�����װ�����ڡ���ֻ��ʾ�Ѿ�װ���������Ѿ������������ݣ���ѡ�񡰺������ʱ�䡱��ֻ��ʾ���⵽���Ķ�����Ϣ��</br>���Ϊ��Ʒ��ǰ������������Ѿ�ɾ����Ʒ����������������(�����������ݾ���ȡ��ǰ��Ʒ��Ϣ)���������֮ǰ���</br>�������ֹ�˾���ݵ�ǰ�ƻ����֡�</br>ȫ���24��ʱ�ϰ���ͳһ����1�ŵ�15�Ž��м��㣬û��ƽ�����ڡ�</td>
            </tr>
        </table>
    </form>
    </div>
    <%
    Leibie = "['��˾',"
    %>
    <div id="container��˾" style="text-align:center; height:93%" >Loading...</div>
    <%for i = 0 to id_fgs-1%>
        <div id="container<%=OrgFGS(i)%>" style="text-align:center; height:93%" >Loading...</div>
        <%
        Leibie = Leibie & "'" & OrgFGS(i) & "',"
    next
    Leibie = left(Leibie,len(Leibie)-1) & "]"
    %>

</div>
</body>
</html>
<script type="text/javascript">
    needdata =<%=needdata%>;
var dataX = <%=dataX%>;
var leibie = <%=Leibie%>;
var legenddata= [];
var legendselect = {};
function getseriex(obj)
{
    var sumcnt = 0;
    var objrtn = [];
    legenddata = [];
    legendselect = {};
    for(var x in obj)
    {
        objrtn.push({
            name:x,
            type:'line',
            data:obj[x]
        });
        sumcnt = 0;
        for(var id = 0;id < obj[x].length; id++)
        {
            sumcnt = sumcnt +  obj[x][id];
        }
        legenddata.push(x);
        if(0 == sumcnt)
        {
            legendselect[x] = false;
        }
        else
        {
            legendselect[x] = true;
        }
    }
    return objrtn;
}
for (var i = 0; i < leibie.length;i++)
{
curseries = getseriex(needdata[leibie[i]]);
option = null;
option = {
    title: {
        text: leibie[i] + '<%=echartsName%>�仯���'
    },
    tooltip: {
            trigger: 'axis'
    },
    legend: {
        data:legenddata,
        selected:legendselect,
        left:'center',
    },
    grid: {
        top: '10%',
        left: '3%',
        right: '4%',
        bottom: '5%',
        containLabel: true
    },
    toolbox: {
        feature: {
            dataView : {show: true, readOnly: false,title:'�鿴����'},
            saveAsImage: {
                title: '����ΪͼƬ'
            }
        }
    },
    xAxis: {
        name: '����',
        type: 'category',
        boundaryGap: false,
        data: dataX 
    },
    yAxis: {
        name: '<%=echartsName%>',
        type: 'value',
        scale:'true',
        nameTextStyle:{
            fontSize:'15'
        }
        },
        dataZoom:[{
                startValue: dataX[0]
             },{
                type: 'inside'
         }],
    series: curseries
};
;
if (option && typeof option === "object") {
    echarts.init(document.getElementById("container" + leibie[i])).setOption(option, true);
}
}

</script>