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

<html>

<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
    set conn = server.createObject("adodb.connection")
    conn.open "driver={SQL Server};server=173.248.132.52,1533;uid=sa;pwd=77a%sc77;database=CBECDB1"
Server.ScriptTimeOut = 500

fromdate = "2019/09/01"
    todate = DateAdd("d",-1,date())
    t1 = now()

'获取组别和仓库
    dim cangku(50,2)
    dim zu(100,2)
    zuname = "" '用于在图表中显示    
    '两个都用sqlall
    cangku(0,0) = ""
    cangku(0,1) = "All"
    id_cangku = 1
    zu(0,0) = ""
    zu(0,1) = "All"
    id_zu = 1    
    set rscangku=server.CreateObject("adodb.recordset")
    'sqlcangku = "select storcode,storname from (select storcode,storname from ba_stordf union select 'YT' as storcode ,'烟台仓库' as storname union select 'HW' as storcode ,'海外仓库' as storname) a order by len(storcode)"
    sqlcangku = "select storcode,storname from (select storcode,storname from ba_stordf union select 'LS2' ,'洛杉矶ALL' union select 'YTCK' ,'烟台仓库' union select 'HWCK','海外仓库' union select 'DLDFGS', '多伦多分公司' union select 'JJSFGS', '旧金山分公司' union select 'TPPFGS', '坦帕分公司' union select 'LSJFGS', '洛杉矶分公司' union select 'YTTFGS','烟台分公司') a order by len(storcode) desc,storcode"
    rscangku.open sqlcangku,conn,1,1
    do while not rscangku.eof
        cangku(id_cangku,0) = rscangku(0)
        cangku(id_cangku,1) = rscangku(1)
        id_cangku = id_cangku + 1
        rscangku.movenext
    loop
    rscangku.close
    set rszu = server.CreateObject("adodb.recordset")
    sqlzu = "select zu,zu+ '组' as zuname  from (select distinct(right(orgcode,2)) as zu from AA_STORERIJIE where opdt = dateadd(d,-2, cast(getdate() as date))) a union select TREECODE,TREENAME from om_orgtree where TREECODE in ('0004','0005','0006','0007')"
    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
    zubie = ""

storcode = ""
    typ = "1"
    sql = "select opdt, allprice, sumpricefeizaitu, sumpricezaitu, sumzhengpin, sumfeizhengpin, 正品可用, 正品占用, 正品在途, 二手可用, 二手占用, 二手在途, OpenBoxKY, OpenBoxZY, OpenBox在途, 待修库, 待修在途库, 报废库, 在修库, 待核查库 from (select opdt,sum(总库存*foractprice) as allprice,sum((正品可用+正品占用+二手可用+二手占用+待修库+报废库+在修库+待核查库+OpenBoxKY+OpenBoxZY)* foractprice) as sumpricefeizaitu, sum((正品在途+二手在途+OpenBox在途+待修在途库)*foractprice) as sumpricezaitu, sum((正品可用+正品占用+正品在途)*foractprice) as sumzhengpin, sum((二手可用+二手占用+待修库+报废库+在修库+待核查库+OpenBoxKY+OpenBoxZY+二手在途+OpenBox在途+待修在途库)*foractprice) as sumfeizhengpin, sum(正品可用*foractprice) as 正品可用, sum(正品占用*foractprice) as 正品占用, sum(正品在途*foractprice) as 正品在途, sum(二手可用*foractprice) as 二手可用, sum(二手占用*foractprice) as 二手占用, sum(二手在途*foractprice) as 二手在途, sum(OpenBoxKY*foractprice) as OpenBoxKY, sum(OpenBoxZY*foractprice) as OpenBoxZY, sum(OpenBox在途*foractprice) as OpenBox在途, sum(待修库*foractprice) as 待修库, sum(待修在途库*foractprice) as 待修在途库, sum(报废库*foractprice) as 报废库, sum(在修库*foractprice) as 在修库, sum(待核查库*foractprice) as 待核查库 from vaa_storerijiepreall "
    sql = "select opdt, allprice, sumpricefeizaitu, sumpricezaitu, sumzhengpin, sumfeizhengpin, 正品可用, 正品占用, 正品在途, 二手可用, 二手占用, 二手在途, OpenBoxKY, OpenBoxZY, OpenBox在途, 待修库, 待修在途库, 报废库, 在修库, 待核查库 from (select opdt,sum(ZPKY_FORACTPRICE+ZPZY_FORACTPRICE+ZPZT_FORACTPRICE+ESKY_FORACTPRICE+ESZY_FORACTPRICE+ESZT_FORACTPRICE+DXKC_FORACTPRICE+DXZT_FORACTPRICE+BFKC_FORACTPRICE+ZXKC_FORACTPRICE+DHCK_FORACTPRICE+OPKY_FORACTPRICE+OPZY_FORACTPRICE+OPZT_FORACTPRICE) as allprice,sum(ZPKY_FORACTPRICE+ZPZY_FORACTPRICE+ESKY_FORACTPRICE+ESZY_FORACTPRICE+DXKC_FORACTPRICE+BFKC_FORACTPRICE+ZXKC_FORACTPRICE+DHCK_FORACTPRICE+OPKY_FORACTPRICE+OPZY_FORACTPRICE) as sumpricefeizaitu, sum(ZPZT_FORACTPRICE+ESZT_FORACTPRICE+OPZT_FORACTPRICE+DXZT_FORACTPRICE) as sumpricezaitu, sum(ZPKY_FORACTPRICE+ZPZY_FORACTPRICE+ZPZT_FORACTPRICE) as sumzhengpin, sum(ESKY_FORACTPRICE+ESZY_FORACTPRICE+ESZT_FORACTPRICE+DXKC_FORACTPRICE+DXZT_FORACTPRICE+BFKC_FORACTPRICE+ZXKC_FORACTPRICE+DHCK_FORACTPRICE+OPKY_FORACTPRICE+OPZY_FORACTPRICE+OPZT_FORACTPRICE) as sumfeizhengpin, sum(ZPKY_FORACTPRICE) as 正品可用, sum(ZPZY_FORACTPRICE) as 正品占用, sum(ZPZT_FORACTPRICE) as 正品在途, sum(ESKY_FORACTPRICE) as 二手可用, sum(ESZY_FORACTPRICE) as 二手占用, sum(ESZT_FORACTPRICE) as 二手在途, sum(OPKY_FORACTPRICE) as OpenBoxKY, sum(OPZY_FORACTPRICE) as OpenBoxZY, sum(OPZT_FORACTPRICE) as OpenBox在途, sum(DXKC_FORACTPRICE) as 待修库, sum(DXZT_FORACTPRICE) as 待修在途库, sum(BFKC_FORACTPRICE) as 报废库, sum(ZXKC_FORACTPRICE) as 在修库, sum(DHCK_FORACTPRICE) as 待核查库 from BU_PRDZHIXIAORIJIE "
    zhixiaoid = "365"
    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())
        zhixiaoid = request.Form("zhixiaolabl")
        storcode = request.Form("storcode")
        typ = request.Form("typ")
        if typ = "2" then
            sql = replace(sql,"FORACTPRICE","BULK")
        elseif typ = "3" then
            sql = replace(sql,"FORACTPRICE","AVGPRICE")
        elseif typ = "4" then
            sql = replace(sql,"FORACTPRICE","KC")
        end if
        zubie = request.Form("zubie")
    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 = "'件'"    
  
    '拼接sql
    'sql = sql & " where opdt between cast('" & fromdate & "' as date) and cast('" & todate & "' as date) and prdcode in (select prdcode from bu_prdzhixiaomanage where days" & zhixiaoid & " = '1') "
    sql = sql & " where opdt between cast('" & fromdate & "' as date) and cast('" & todate & "' as date) and days=" & zhixiaoid 
    if len(zubie) = 2 then sql = sql & " and org = '" & zubie & "' "
    if len(zubie) = 4 then sql = sql & " and org in (select  right(value,2) as value from dbo.SplitString((Select  strorgcode from om_orgtree where TREECODE = '" & zubie &  "') ,',',1) where len(Value) = 8) "
    if LEN(storcode) = 3 then
		if storcode = "LS2" then
            sql = sql & " and storcode in (''lsj'',''tp2'',''js2'')"
		else
            sql = sql & " and storcode = ' + storcode +'"
        end if
    end if
    if LEN(storcode) = 4 then '--YTCK-烟台 HWCK-海外
		if storcode = "YTCK" then
			sql = sql & " and (storcode like 'Y%' or storcode = 'F04')"
		else
			sql = sql & " and storcode not like 'Y%' and storcode <> 'F04'" '-- 日本亚马逊F05属于海外仓库
        end if
    end if
    if LEN(storcode) = 6 then '--'DLDFGS' --'多伦多分公司', 'JJSFGS'--'旧金山分公司' 'TPPFGS' --'坦帕分公司' 'LSJFGS'--'洛杉矶分公司' 'YTTFGS'
		if storcode = "DLDFGS" then sql = sql & " and storcode in('DLD','F01')" '--DLD	多伦多仓库 F01	FBA多伦多
		if storcode = "JJSFGS" then sql = sql & " and storcode in('JJS','F02','JS2')" ' --F02	FBA旧金山 JJS	旧金山仓库 JS2	旧金山(洛杉矶仓库)
		if storcode = "TPPFGS" then sql = sql & " and storcode in('TPP','F03','TP2')" '--F03	FBA坦帕 TPP	坦帕仓库 TP2	坦帕(洛杉矶仓库）
		if storcode = "LSJFGS" then sql = sql & " and storcode in('LSJ','FBA')" '--FBA	FBA洛杉矶 LSJ	洛杉矶仓库
		if storcode = "YTTFGS" then sql = sql & " and storcode in('EFB','JSH','YTT','YXX','YSM','F04','F05')" ' --日本FBA F05属于烟台分公司(亚逊公司) '--  EFB	英国FBA仓库JSH	第三方海外仓（及束）
    end if
    sql = sql & " group by opdt) mm order by opdt"

dim mydata(10000,20)
    dim line_max
    line_max = 0
    'sql = "exec ProcTest"
    'response.write sql
   ' t1 = now()
   ' response.write "Start Sql 1:" &t1 & "</br>"

Set command = server.CreateObject("ADODB.Command") 
    command.ActiveConnection = conn 
    command.CommandTimeout = 120   '修改此处的延时试试 
    command.CommandType = 1 
    command.CommandText = sql
    set rs=command.Execute()

'  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
    't2 = now()
    'response.write "End Sql 1:" &t2 & "</br>"
'日期,总库存,非在途总库存,在途总库存,正品库,非正品库,正品可用,正品占用,正品在途,二手可用,二手占用,二手在途,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) & "]"

'获取滞销数据
    'response.write sql
    dim zhixiao(20000,17)
    id_zhixiao = 0
    sql = "select (Select dispvalue from om_commparm where fldname = 'planorg' and parmvalue = right(orgcode,2)) as fgs ,right(orgcode,2) + '组' as org,a.PRDCODE,prdname, cast(ALLKC as decimal(15,2)) as ALLKC, cast(ALLHUOZHIAVG  as decimal(15,2)) as ALLHUOZHIAVG , cast(ZPKC as decimal(15,2)) as ZPKC, cast(ZPHUOZHIAVG as decimal(15,2)) as ZPHUOZHIAVG, DAYSHAS ,cast(CNTSOLD as decimal(15,2)) as CNTSOLD,cast((case DAYSHAS when 365 then CNTSOLD else CNTSOLD/DAYSHAS*365 end) as decimal(15,2)) as CNTSOLDYG,cast(TOTALAMT as decimal(15,2)) as TOTALAMT,cast(CNTZHOUZHUAN as decimal(15,2)) as CNTZHOUZHUAN,( Select sum(总库存) from aa_store where prdcode10 = a.prdcode) as curkcall,(Select sum(正品可用+正品在途) from aa_store where prdcode10 = a.prdcode) as curkczp , cast(foractprice*(Select sum(总库存) from aa_store where prdcode10 = a.prdcode) as decimal(15,2)) as foractprice ,DAYSZHIXIAO from bu_prdzhouzhuan a,bu_prdprd b where a.prdcode = b.prdcode and a.prdcode  in (select prdcode from bu_prdzhixiaomanage where days" & zhixiaoid & " = '1') and exists(select * from  aa_inoutprd where datadate >'2019-09-01' AND STORCODE not like 'Y%' and tabname = 'sa_orderlist' and prdcode10 = a.prdcode)"
    if len(zubie) = 2 then sql = sql & " and b.orgcode like '%" & zubie & "'"
    if len(zubie) = 4 then sql = sql & " and right(b.orgcode,2) in (select  right(value,2) as value from dbo.SplitString((Select  strorgcode from om_orgtree where TREECODE = '" & zubie &  "') ,',',1) where len(Value) = 8)"
    
    sql = sql & " order by foractprice*(Select sum(总库存) from aa_store where prdcode10 = a.prdcode) desc"
    'set rszhixiao=server.CreateObject("adodb.recordset")
    'rszhixiao.open sql,conn,1,1
    't3 = now()
    'response.write "Start Sql 2:" &t3 & "</br>"
    Set   command2   =   server.CreateObject("ADODB.Command") 
    command2.ActiveConnection   =   conn 
    command2.CommandTimeout   =   120   '修改此处的延时试试 
    command2.CommandType   =   1 
    command2.CommandText   =   sql
    set rszhixiao=command2.Execute()
    do while not rszhixiao.eof
        for i=0 to 16
            zhixiao(id_zhixiao,i) = rszhixiao(i)
        next
        id_zhixiao = id_zhixiao*1+1
        rszhixiao.movenext
    loop
    rszhixiao.close
    't4 = now()
   ' response.write "End Sql 2:" &t4 & "</br>"
    '获取当前组织在各个仓库货值 起始时间和结束时间的
    dtcangku1 = "["
    dtcangku2 = "["
    'sql = "select (select storname from ba_stordf where storcode = a.storcode) as storname, 总库存  from vaa_storerijiepreall a where opdt = cast('" & fromdate & "' as date) and prdcode = '000000'"
    sql = " select (select storname from ba_stordf where storcode = a.storcode) as storname,sum(总库存*foractprice) as allprice  from vaa_storerijiepreall a where opdt  = cast('" & fromdate & "' as date)  and datediff(dd,opdt, getdate()) >0 and  prdcode in (select prdcode from bu_prdzhixiaomanage where days" & zhixiaoid & " = '1')"
    if typ = "2" then
        sql = replace(sql,"foractprice","sumbulk")
    elseif typ = "3" then
        sql = replace(sql,"foractprice","avgprice")
    elseif typ = "4" then
        sql = replace(sql,"foractprice","1")
    end if
    if len(zubie) = 2 then sql = sql & " and orgcode like '%" & zubie & "'"
    if len(zubie) = 4 then sql = sql & " and right(orgcode,2) in (select  right(value,2) as value from dbo.SplitString((Select  strorgcode from om_orgtree where TREECODE = '" & zubie &  "') ,',',1) where len(Value) = 8)"
    sql = sql & " group by storcode "
    'response.write sql
   ' set rs1=server.CreateObject("adodb.recordset")
   ' rs1.open sql,conn,1,1
    't5 = now()
    'response.write "Start Sql 3:" &t5 & "</br>"
    Set   command3   =   server.CreateObject("ADODB.Command") 
    command3.ActiveConnection   =   conn 
    command3.CommandTimeout   =   120   '修改此处的延时试试 
    command3.CommandType   =   1 
    command3.CommandText   =   sql
    set rs1=command3.Execute()
    do while not rs1.eof
        if Cdbl(rs1(1)) <> 0 then dtcangku1 = dtcangku1 &"{value:" & rs1(1) & ",name:'" & rs1(0) & "'},"
        rs1.movenext
    loop
    rs1.close
    't6 = now()
    'response.write "End Sql 3:" &t6 & "</br>"
    if len(dtcangku1)>1 then 
        dtcangku1 = left(dtcangku1,len(dtcangku1) -1) & "]"
    else
        dtcangku1 = "[]"
    end if
    'sql = "select (select storname from ba_stordf where storcode = a.storcode) as storname, 总库存  from vaa_storerijiepreall a where opdt = cast( '" & todate & "' as date) and prdcode = '000000'"
    sql = " select (select storname from ba_stordf where storcode = a.storcode) as storname,sum(总库存*foractprice) as allprice  from vaa_storerijiepreall a where opdt  = cast('" & todate & "' as date)  and datediff(dd,opdt, getdate()) >0 and  prdcode in (select prdcode from bu_prdzhixiaomanage where days" & zhixiaoid & " = '1')"
    if typ = "2" then
        sql = replace(sql,"foractprice","sumbulk")
    elseif typ = "3" then
        sql = replace(sql,"foractprice","avgprice")
    elseif typ = "4" then
        sql = replace(sql,"foractprice","1")
    end if
    if len(zubie) = 2 then sql = sql & " and orgcode like '%" & zubie & "'"
    if len(zubie) = 4 then sql = sql & " and right(orgcode,2) in (select  right(value,2) as value from dbo.SplitString((Select  strorgcode from om_orgtree where TREECODE = '" & zubie &  "') ,',',1) where len(Value) = 8)"
    sql = sql & " group by storcode "
    cangkustring = "["
    'set rs2=server.CreateObject("adodb.recordset")
    'rs2.open sql,conn,1,1
    'response.write sql
    't7 = now()
    'response.write "Start Sql 4:" &t7 & "</br>"
    Set   command4   =   server.CreateObject("ADODB.Command") 
    command4.ActiveConnection   =   conn 
    command4.CommandTimeout   =   120   '修改此处的延时试试 
    command4.CommandType   =   1 
    command4.CommandText   =   sql
    set rs2=command4.Execute()
    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
    't8 = now()
    'response.write "End Sql 4:" &t8 & "</br>"
    if len(dtcangku2) >1 then
        dtcangku2 = left(dtcangku2,len(dtcangku2) -1) & "]"
    else
        dtcangku2 = "[]"
    end if
    cangkustring = left(cangkustring,len(cangkustring) - 1) & "]"

conn.close
    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 zuname = "All" then zuname = "全公司"
    'zuname = "'" & zuname & "'"

%>
    <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>从：<input type="text" name="fromdate" value="<%=fromdate%>"></td>
                <td nowrap>至：<input type="text" name="todate" value="<%=todate%>"></td>
                <td nowrap>产品滞销天数标记：
                    <select name="zhixiaolabl">
                        <option value="60" <%if zhixiaoid="60" then%>selected="selected"<%end if%>>60天</option>
                        <option value="90" <%if zhixiaoid="90" then%>selected="selected"<%end if%>>90天</option>
                        <option value="180" <%if zhixiaoid="180" then%>selected="selected"<%end if%>>180天</option>
                        <option value="365" <%if zhixiaoid="365" then%>selected="selected"<%end if%>>365天</option>
                    </select>
                </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="storcode">
                        <%for i = 0 to id_cangku-1%>
                            <option value="<%=cangku(i,0)%>"<%if cangku(i,0) = storcode then%>selected="selected" <%end if%>><%=cangku(i,1)%></option>
                        <%next%>
                    </select>
                </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>
                </td>
                <td nowrap><input type="submit" name="submit" value="submit"></td>
            </tr>
            <tr>
                <td colspan="5">注：当前功能数据最大时间范围是：2019-08-01 至 昨天。“烟台分公司”包含烟台三个仓库和英国FBA仓库、第三方海外仓（及束）、FBA亚逊,日本FBA，“烟台仓库”包含烟台三个仓库和FBA亚逊。洛杉矶ALL包含：洛杉矶仓库、旧金山（洛杉矶仓库）和坦帕（洛杉矶仓库）</br>
                <font color="red">产品滞销天数标记</font>：是从2019-09-01开始标记的，达到一定滞销日期数则会添加上标记。</td>
            </tr>
        </table>
    </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>
    <%if len(zhixiao(0,0)) = 0 then%>
        
    <%else%>
        <%=zuname%>滞销且<%=zhixiaoid%>天2019-09-01后销售过的产品
        <table width="1500" border="1" style="border-collapse: collapse" align="center">
        <tr>
            <td>分公司</td>
            <td>组别</td>
            <td>产品编码</td>
            <td>产品名称</td>
            <td title="到上月底近一年有过库存的日期每天总库存数量加和">总库存数量积数</td>
            <td title="到上月底近一年每天总库存实际成本加和 * 有产品日期数 / 365">总库存平均实际成本</td>
            <td title="到上月底近一年有过库存的日期每天正品库存数量加和">正品库存数量积数</td>
            <td title="到上月底近一年每天正品库实际成本加和 * 有产品日期数 / 365">正品库平均实际成本</td>
            <td title="从上月底后推一年有产品日期数（若不足365，说明当前日期数前采购付款）">有产品日期数</td>
            <td>前一年销售数量</td>
            <td>预估年销量</td>
            <td title="来自上个月财务数据后推一年">销售金额</td>
            <td>周转次数</td>
            <td>当前总库存数量</td>
            <td>当前正品可用加在途库存数量</td>
            <td>当前海外总库存实际成本加和（$）</td>
            <td title="最近一次销售距离昨天的天数">滞销日期</td>
        </tr>
        <%for j = 0 to id_zhixiao-1 %>
        <tr align="right">
                <td align="left"><%=zhixiao(j,0)%></td>
                <td align="left"><%=zhixiao(j,1)%></td>
                <td align="left"><a target="_self" href="echarts_FORACTPRICE_prd.asp?arg=Asc365NewSys&prdcode=<%=zhixiao(j,2)%>"><%=zhixiao(j,2)%></a></td>
                <td align="left"><%=zhixiao(j,3)%></td>
            <%for i = 4 to 16%>
                <td><%=formatnumber(zhixiao(j,i),2,-1,0,-1)%></td>
            <%next%>
        </tr>
        <%next%>
        </table>
    <%end if%>
    </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%>

</script>