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,2) '10000�У�2�У��ɴ洢10000���·�
    id_haiyunmsg = 0
    set dthaiyunmsg=server.CreateObject("adodb.recordset")
    fromyear = 2018
    toyear = year(date())
    valshow = "TOTALAMT1"
    echartsName = "'��'"
    if request.Form("submit")="submit" then
        fromyear = request.Form("fromyear")
        toyear = request.Form("toyear")
        valshow = request.Form("valshow")
    end if
    if valshow = "TOTALAMT1" then echartsName = "'��'"
    if valshow = "TOTALAMT5" then echartsName = "'��$'"
    if valshow = "TOTALAMT6" then echartsName = "'��$'"
    if valshow = "BULKBYM" then echartsName = "'������'"
    if valshow = "BOXAMT" then echartsName = "'��'"
    if valshow = "TOTALAMT9" then echartsName = "'��$'"
    if valshow = "TOTALAMT7" then echartsName = "'��$'"
    if valshow = "TOTALAMT8" then echartsName = "'��$'"
    sql = "Select convert(char(7),OPDTOUT2,120) as yf,SUM(" & valshow & ") as TOT1  from TR_SEAINTRANSITMSG2  where  OPDTOUT2 between '" & fromyear-1 &"-01-01' and cast(DATEADD(D,-1,DATEADD(M,1,'" & toyear & "-12-01' )) as date)   group by convert(char(7),OPDTOUT2,120) order by convert(char(7),OPDTOUT2,120)"
    dthaiyunmsg.open sql,conn,1,1
    opdtmax = "1900-01-01"
    opdtmin = "2200-01-01"
    dtcur = "2019-01-01"
    do while not dthaiyunmsg.eof
        haiyunmsg(id_haiyunmsg,0) = dthaiyunmsg(0)
        if valshow = "BULKBYM" or valshow = "BOXAMT" then
            haiyunmsg(id_haiyunmsg,1) = round(dthaiyunmsg(1),2)
        else
            haiyunmsg(id_haiyunmsg,1) = round(round(dthaiyunmsg(1),2)/10000,2)
        end if
        'response.write id_haiyunmsg & "|" & dthaiyunmsg(0) & "|" & dthaiyunmsg(1) & "|"& haiyunmsg(id_haiyunmsg,1) & "|" &  "</br>"
        dtcur = dthaiyunmsg(0) & "-01"
        if opdtmax < dtcur then opdtmax = dtcur
        if opdtmin > dtcur then opdtmin = dtcur
        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��*1�����ݣ����24�У��԰����Ϊ�ָλ��
    yymax = year(opdtmax)
    yymin = year(opdtmin)

presumyy = 0
    if yymin = fromyear -1 then
        for i = 0  to id_haiyunmsg -1
            if left(haiyunmsg(i,0),4)*1 = yymin then
                presumyy = presumyy + haiyunmsg(i,1)
            end if
        next
        yymin = fromyear
    end if
    legenddata = ""
    dataX = "['1��', '2��', '3��', '4��', '5��', '6��', '7��', '8��', '9��', '10��', '11��', '12��']"

Dim dtshow(100,13) '��һ�б������
    cntyear = yymax - yymin + 1
    for i = 0 to cntyear - 1
        dtshow(i,0) = i+yymin & "��"
        for j = 1 to 12
            dtshow(i,j) = 0
        next
    next
    for i = 0  to id_haiyunmsg -1
        if left(haiyunmsg(i,0),4)*1 >= yymin*1 then
            dtshow(left(haiyunmsg(i,0),4) - yymin,right(haiyunmsg(i,0),2)) = haiyunmsg(i,1)
        end if
    next
    '���JSON����

legenddata = "["
    needdata = "["
    for i = 0 to cntyear - 1
        legenddata = legenddata & "'" & dtshow(i,0) & "',"
        needdata = needdata & "{name:'" & dtshow(i,0) & "',type:'line',data:["
        for j = 1 to 12
            needdata = needdata & dtshow(i,j) & ","
        next
        needdata = left(needdata,len(needdata)-1) & "]},"
    next
    needdata = left(needdata,len(needdata)-1) & "]"
    legenddata = left(legenddata,len(legenddata)-1) & "]"

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

<table width="900" border="1" style="border-collapse: collapse" align="center">
            <tr>
            <td nowrap>���ڳ������ �ӣ�<input type="text" name="fromyear" value="<%=fromyear%>">��
            </td>
            <td>����<input type="text" name="toyear" value="<%=toyear%>"> ��
            </td>
            <td nowrap>��ʾ���ݣ�
                    <select name="valshow">
                        <option value="TOTALAMT1" <%if valshow = "TOTALAMT1" then%>selected="selected"<%end if%>>���ڲɹ����(��)</option>
                        <option value="TOTALAMT5" <%if valshow = "TOTALAMT5" then%>selected="selected"<%end if%>>���ڱ��ؽ��(��$)</option>
                        <option value="TOTALAMT6" <%if valshow = "TOTALAMT6" then%>selected="selected"<%end if%>>���ڱ��ؽ��(��$)</option>
                        <option value="BULKBYM" <%if valshow = "BULKBYM" then%>selected="selected"<%end if%>>�����m3��</option>
                        <option value="BOXAMT" <%if valshow = "BOXAMT" then%>selected="selected"<%end if%>>����</option>
                        <option value="TOTALAMT9" <%if valshow = "TOTALAMT9" then%>selected="selected"<%end if%>>���˷Ѻϼ�(��$)</option>
                        <option value="TOTALAMT7" <%if valshow = "TOTALAMT7" then%>selected="selected"<%end if%>>���˸ۺ��˷�(��$)</option>
                        <option value="TOTALAMT8" <%if valshow = "TOTALAMT8" then%>selected="selected"<%end if%>>Ŀ�ĸۺ��˷�(��$)</option>
                    </select>
                </td>
                <td nowrap><input type="submit" name="submit" value="submit"></td>
            </tr>
            <tr>
                <td colspan="3">������Դ��������Ϣ�����2023-01-31 Frank��</td>
            </tr>
        </table>
    </form>
    </div>
        <table width="1300" border="1" style="border-collapse: collapse" align="center">
        <tr bgcolor="#EAEAEA">
            <td>���</td>
            <%for j = 1 to 12%>
                <td><%=j%>��</td>
            <%next%>
            <td>��ϼ�</td>
            <td>��������</td>
            <td>��ƽ��</td>
        </tr>
        <%for i = 0 to cntyear - 1%>
            <tr>
            <td><%=dtshow(i,0)%></td>
            <%cursumyy = 0
            for j = 1 to 12
            cursumyy = cursumyy + dtshow(i,j)
            %>
                <td><%if dtshow(i,j)<>0 then%> <%=FormatNumber(dtshow(i,j),2,0,0,-1)%> <%end if%></td>
            <%next%>
            <td><%=FormatNumber(cursumyy,2,0,0,-1)%></td>
            <td><%if presumyy <>0 then%><%=FormatNumber((cursumyy-presumyy)/presumyy*100,2,0,0,-1)%>%<%else if cursumyy <>0 then%>100.00%<% end if end if%></td>
            <td><%=FormatNumber(cursumyy/12,2,0,0,-1)%></td>
            <% presumyy = cursumyy%>
            </tr>
        <%next%>
        <tr bgcolor="#C0C0C0">
            <td>����������</td>
            <td><%if cntyear-2 >=0 then %><%if dtshow(cntyear-2,12)<>0 and  dtshow(cntyear-1,1) >0 then%><%=FormatNumber((dtshow(cntyear-1,1) - dtshow(cntyear-2,12))/dtshow(cntyear-2,12)*100,2,0,0,-1)%><%else if dtshow(cntyear-1,1) >0 then%>100.00%<%end if end if%><%end if%></td>
            <%for i = 2 to 12
            %>
               <td><%if dtshow(cntyear-1,i-1) <> 0 and dtshow(cntyear-1,i) >0 then %><%=FormatNumber((dtshow(cntyear-1,i) - dtshow(cntyear-1,i-1))/dtshow(cntyear-1,i-1)*100,2,0,0,-1)%>%<%else if dtshow(cntyear-1,i) >0 then %>100.00%<% end if end if%></td> 
            <%next%>
            <td></td>
            <td></td>
            <td></td>
        </tr>
        <tr bgcolor="#C0C0C0">
            <td>ͬ��������</td>
            <%for i = 1 to 12
            %>
               <td><%if cntyear-2 >=0 then %><%if dtshow(cntyear-2,i) <> 0 and dtshow(cntyear-1,i)>0 then %><%=FormatNumber((dtshow(cntyear-1,i) - dtshow(cntyear-2,i))/dtshow(cntyear-2,i)*100,2,0,0,-1)%>%<%else if dtshow(cntyear-1,i)>0 then%>100.00%<%end if end if%><%end if%></td> 
            <%next%>
            <td></td>
            <td></td>
            <td></td>
        </tr>
        </table>
    <div id="jizhuangxiang" style="text-align:center; height:60%" >Loading...</div>

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

</script>