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> <head> <meta http-equiv="Content-Language" content="en-ca"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>Report</title> <style> a{TEXT-DECORATION:none}.STYLE2 {font-size: 12px} </style> <% if session("asc365allpassword")<>"8879365" then response.end Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") session("asc365allpassword")="8879365" Session.Timeout=500 ID=Request.Querystring("ID") set fs=Server.CreateObject("Scripting.FileSystemObject") Dim prodetail(10000,3) p_i=0 %> </head> <body> <% Fromm= request.form("T1"): if len(Fromm)=0 then Fromm=year(DateAdd("h",2,now()))&"-"&month(DateAdd("h",2,now()))&"-"&day(DateAdd("h",2,now())) '������ʼ�Լ��������� Too=request.form("T2"): if len(Too)=0 then Too=year(DateAdd("h",2,now()))&"-"&month(DateAdd("h",2,now()))&"-"&day(DateAdd("h",2,now())) temp=split(Fromm,"-") FD = trim(temp(0)) :FD= right(FD,4) '����������� FM = trim(temp(1)) : if len(FM)<2 then FM = "0" & FM FY = trim(temp(2)) : if len(FY)<2 then FY = "0" & FY ' Response.Write FY&FM &"<br>" '-------------- temp1=split(Too,"-") TD = trim(temp1(0)) : TD= right(TD,4) TM = trim(temp1(1)) : if len(TM)<2 then TM = "0" & TM TY = trim(temp1(2)) : if len(TY )<2 then TY = "0" & TY ' Response.Write TY&TM &"<br>" '-------------- qq=0 for i=0 to 100 if FD+i<TD then qq=qq+1 end if next '------------------------------------------------------------------------ Dim FolderName(1000,1) mm=0 a=TD-FD b=TM-FM if a=0 then 'ͬһ�� if b>=0 then for i=0 to b newFM=FM+i : if len(newFM)<2 then newFM = "0" & newFM FolderName(mm,0)=FD&"\"&FD&newFM mm=mm+1 next end if end if if a=1 then '��һ�� for i=FM to 12 newII=i: if len(newII)<2 then newII = "0" & newII FolderName(mm,0)=FD&"\"&FD& newII mm=mm+1 next for i=1 to TM newII=i: if len(newII)<2 then newII = "0" & newII FolderName(mm,0)=TD&"\" &TD& newII mm=mm+1 next end if if a>1 then '�����꼰���� for i=1 to a-1 newFd=FD+i for ii=1 to 12 newII=ii: if len(newII)<2 then newII = "0" & newII FolderName(mm,0)=newFd&"\"&newFd&newII mm=mm+1 next next for i=FM to 12 newII=i: if len(newII)<2 then newII = "0" & newII FolderName(mm,0)=FD&"\"&FD& newII mm=mm+1 next for i=1 to TM newII=i: if len(newII)<2 then newII = "0" & newII FolderName(mm,0)=TD&"\"&TD & newII mm=mm+1 next end if '------------------------------------------------------------------------ Dim Folderr(9000,1) for aa=0 to 1000 If Not fs.FolderExists(Server.MapPath("..\..\Admin\CPDGGL_CA\"&FolderName(aa,0))) Then if Not fs.FolderExists(Server.MapPath("..\..\Admin\CPDGGL_CA\"&left(FolderName(aa,0),4)&"\")) then fs.CreateFolder (Server.MapPath("..\..\Admin\CPDGGL_CA\"&left(FolderName(aa,0),4)&"\")) end if fs.CreateFolder (Server.MapPath("..\..\Admin\CPDGGL_CA\"&FolderName(aa,0)&"\")) end if set fo=fs.GetFolder(Server.MapPath("..\..\Admin\CPDGGL_CA\"&FolderName(aa,0))) '�����ļ��������������� Folderr() For Each i In fo.Files 'Response.Write i.Name & "<BR>" if left(i.name,6)=right(FolderName(aa,0),6) then if right(i.name,4)=".sss" then Folderr(q,0)="..\..\Admin\CPDGGL_CA\"&FolderName(aa,0)&"\"&i.Name q=q+1 end if end if Next set fo=nothing next Dim Folderr1(9000,1) startdate=FD&"-"&FM&"-"&FY enddate=TD&"-"&TM&"-"&TY&" 23:59:59" checkstate=request.Form("SelectPaypal") hh=0 mm=0 hh1=0 for aa=0 to q-1 flg_hasfahuo = 0 Set f=fs.OpenTextFile(Server.MapPath(Folderr(aa,0)), 1) do while f.AtEndOfStream = false WW=trim(f.ReadLine) if left(WW,5)="$1$1$" then paypaltemp=split(WW,"|") end if if left(WW,5)="*-*-*" then str=split(WW,"|") if lcase(str(3)) = "y" then flg_hasfahuo = 1 end if end if if left(WW,5)="$3$3$" and hh=0 and flg_hasfahuo*1 = 1 then temp=split(WW,"|") hh=1 hh1=1 if Isdate(temp(4))=true and Isdate(startdate)=true and Isdate(enddate) then if cdate(temp(4))>=cdate(startdate) then if cdate(temp(4)) =<cdate(enddate) then if checkstate="on" then if paypaltemp(5)<>"Paypal" and left(paypaltemp(5),6)<>"Amazon" and left(paypaltemp(5),10)<>"Aliexpress" then Folderr1(mm,0)=Folderr(aa,0) mm=mm+1 end if else Folderr1(mm,0)=Folderr(aa,0) mm=mm+1 end if end if end if end if hh=1 end if if left(WW,5)="$6$6$" and hh1=0 and hh=0 then temp=split(WW,"|") if Isdate(temp(5))=true and Isdate(startdate)=true and Isdate(enddate) then if cdate(temp(5))>=cdate(startdate) then if cdate(temp(5)) =<cdate(enddate) then if checkstate="on" then if paypaltemp(5)<>"Paypal" and left(paypaltemp(5),6)<>"Amazon" and left(paypaltemp(5),10)<>"Aliexpress" then Folderr1(mm,0)=Folderr(aa,0) mm=mm+1 end if else Folderr1(mm,0)=Folderr(aa,0) mm=mm+1 end if end if end if end if hh1=1 end if loop hh=0 hh1=0 next %> <table border="0" width="700" height="35"> <form method="POST" action=""> <tr> <td height="31" width="306"> <p align="left"><b><i><font face="Verdana" size="4"> </font></i></b><font face="Verdana" size="2"><b>Tracking# Check</b><i> <br> *add a "," between tracking# and cost </i></font><i><b><font face="Verdana" size="4"> </font></b></i><textarea rows="6" name="S1" cols="41" ><%=Trackk%></textarea></p> </td> <td height="31" width="384"> <p align="center"><font face="Verdana"><b><font size="2"> </font></b></font><b><i><font face="Verdana" size="4">ASC365 Sell Report<br><br></font></i> <font face="Verdana" size="2">From</font><i><font face="Verdana" size="4"> </font></i></b><font face="Verdana"> <input name="T1" size="11" value="<%=Fromm%>"> <b><font size="2"> To</font></b></font> <input type="text" name="T2" size="11"value="<%=Too%>"> <p align="center"> <input type="checkbox" name="SelectPaypal"> <span class="STYLE2">�ų�paypal,Amazon,Aliexpress</span></span><br> <input type="submit" value="Submit" name="B1"> </td> </tr></form> </table> <% dim yamaxun yamaxun=0 dim zhifubao zhifubao=0 dim paypalmoney paypalmoney=0 dim cashmoney cashmoney=0 dim bankmoney bankmoney=0 dim othermoney othermoney=0 dim shipmoney dim taxmoney dim productlist(50,5) dim shiplist(5,1) dim moneylist(5,3) dim seller dim saledate dim payment For bb=0 to mm-1 Set f=fs.OpenTextFile(Server.MapPath(Folderr1(bb,0)), 1) Temp11=split(Folderr1(bb,0),"\") Temp22=split(Temp11(6),".") a=0 b=0 c=0 for i=0 to 50 productlist(i,0)=null productlist(i,1)=null productlist(i,2)=null productlist(i,3)=null productlist(i,4)=null next for i=0 to 5 shiplist(i,0)=null moneylist(i,0)=null moneylist(i,1)=null moneylist(i,2)=null next payment="" paycount="" jiaoyihao="" do while f.AtEndOfStream = false WW=trim(f.ReadLine) if left(WW,5)="$3$3$" then '�˷� temp1=split(WW,"|") shiplist(a,0)=temp1(3) a=a+1 saledate=temp1(4) end if if left(WW,5)="#-#-#" then temp=split(WW,"|") seller=temp(2) end if if left(WW,5)="$1$1$" then temp3=split(WW,"|") payment=temp3(5) paycount=temp3(8) jiaoyihao=temp3(9) moneylist(b,0)=temp3(2) moneylist(b,1)=temp3(3) moneylist(b,2)=temp3(10) b=b+1 end if %> <% if left(WW,5)="@-@-@" then temp2=split(WW,"|") productlist(c,0)=temp2(2) productlist(c,1)=temp2(3) productlist(c,2)=temp2(6) productlist(c,3)=temp2(5) productlist(c,4)=temp2(7) c=c+1 end if loop %> <table border="0" width="700" height="26" style="border-collapse: collapse"> <tr> <td height="20" width="140"><font size="2" face="Verdana"><%=saledate%></font></td> <td height="20" width="140"><font size="2" face="Verdana">order: <% response.write"<a href='01_05DeliveryYT.asp?LL=" response.write Temp11(4) & "&LN=" & Temp11(5) & "&LM=" & Temp11(6) & "' target='_blank'>" response.write Temp22(0) &"</a>" %> </font></td> <td height="20" width="140"><font size="2" face="Verdana">Seller:<%=Seller%></font></td> <td height="20" width="140"><font size="2" face="Verdana"><%=payment%>:<%=paycount%></font></td> <td height="20" width="140"><font size="2" face="Verdana">���ţ�<%=paycount%></font></td> </tr> </table> <table border="0" width="700" height="20" style="border-collapse: collapse" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0"> <% sum=0 for i=0 to c-1 Prodetail(p_i,0)=productlist(i,0) Prodetail(p_i,1)=productlist(i,2) Prodetail(p_i,2)=payment p_i=p_i+1 if isnumeric(productlist(i,4))=false then productlist(i,4)=0 sum=sum+productlist(i,4) %> <tr> <td height="20" width="37"><font size="2" face="Verdana"><%=productlist(i,0)%></font></td> <td height="20" width="402"><font size="2" face="Verdana"><%=productlist(i,1)%></font></td> <td height="20" width="80"><font size="2" face="Verdana"><%=productlist(i,2)%></font></td> <td height="20" width="73"><font size="2" face="Verdana"><%="$"&productlist(i,3)%> </font> </td> <td height="20" width="82"><font size="2" face="Verdana"><%="$"&productlist(i,4)%></font></td> </tr> <% next money1=0 money2=0 money3=0 for i=0 to b-1 if Isnumeric(moneylist(i,0))=false then moneylist(i,0)=0 if Isnumeric(moneylist(i,1))=false then moneylist(i,1)=0 if Isnumeric(moneylist(i,2))=false then moneylist(i,2)=0 money1=moneylist(i,0)+money1 money2=moneylist(i,1)+money2 money3=moneylist(i,2)+money3 next %> </table> <table border="0" width="700" height="18" style="border-collapse: collapse"> <tr> <td height="18" width="87" align="right"><font size="2" face="Verdana">Sum </td> <td height="18" width="88" align="left"><font size="2" face="Verdana"><%="$"&sum%></td> <td height="18" width="87" align="right"><font size="2" face="Verdana">Discount</td> <td height="18" width="88" align="left"><font size="2" face="Verdana"><%="$"&Round(sum-money1,2)%></td> <td height="18" width="87" align="right"><font size="2" face="Verdana">ship </td> <td height="18" width="88" align="left"><font size="2" face="Verdana"><%="$"&money2%></td> <td height="18" width="87" align="right"><font size="2" face="Verdana">hst </td> <td height="18" width="88" align="left"><font size="2" face="Verdana"><%="$"&money3%></td> <td height="18" width="87" align="right"><font size="2" face="Verdana"><b>Total </b></td> <td height="18" width="88" align="left"><font size="2" face="Verdana"><%=money1+money2+money3%></td> </tr> </table> <% response.Write("------------------------------------------------------------------------------------------------") if lcase(payment)="paypal" or Lcase(left(payment,6))="paypal"then paypalmoney=paypalmoney+money1+money2+money3 end if if lcase(payment)="credit" or lcase(payment)="credit cart" or lcase(payment)="credit card" or lcase(payment)="check" or lcase(payment)="debit card" or lcase(payment)="email tra" or lcase(payment)="wire transfer" or lcase(payment)="money order" or lcase(payment)="credit card" then bankmoney=bankmoney+money1+money2+money3 end if if lcase(payment)="cash" then cashmoney=cashmoney+money1+money2+money3 end if if lcase(payment)="others" or payment="" then othermoney=othermoney+money1+money2+money3 end if if lcase(payment)="amazon" then yamaxun=yamaxun+money1+money2+money3 end if if lcase(left(payment,10))="aliexpress" then zhifubao=zhifubao+money1+money2+money3 end if totalmoney=totalmoney+money1+money2+money3 next %> <table border="1" width="800" height="24" style="border-collapse: collapse"> <tr> <td bgcolor="#FF9933" width="116">���۶���ʵ���տ����</td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">Cash<br> <%="$" & round(cashmoney,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">paypal<br> <%="$" & Round(paypalmoney,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">bank account<br><%="$" & Round(bankmoney,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">Others<br><%="$" & Round(othermoney,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">Amazon<br><%="$" & Round(yamaxun,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">Aliexpress ֧����<br><%="$" & Round(zhifubao,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana"><b>TOTAL<br> <%=Round(totalmoney,2)%></b></td> </tr> </table> <% Dim Price(10) Dim Allmoney(20,3) a_i=0 ss=0 for i=0 to p_i-1 for j=0 to a_i-1 if Allmoney(j,0)=Prodetail(i,2) then ss=1 end if next if ss=0 then Allmoney(a_i,0)=Prodetail(i,2) Allmoney(a_i,1)=0 Allmoney(a_i,2)=0 a_i=a_i+1 else ss=0 end if Temp=server.MapPath("../../../ASC365_CANADA/Admin/"&left(Prodetail(i,0),3)&"/"&right(Prodetail(i,0),3)&"/GGPrice.inc") if fs.FileExists(Temp)=true then set f=fs.OpenTextFile(Temp,1) p_i=0 do while f.AtEndOfStream=false Price(p_i)=f.ReadLine p_i=p_i+1 if p_i>9 then exit do end if loop if Isnumeric(Price(4))=false then Price(4)=0 if Isnumeric(Price(6))=false then Price(6)=0 for j=0 to a_i-1 if Allmoney(j,0)=Prodetail(i,2) then Allmoney(j,1)=Allmoney(j,1)*1+Price(4)*Prodetail(i,1) Allmoney(j,2)=Allmoney(j,2)*1+Price(6)*Prodetail(i,1) end if next end if next %> <table border="1" width="800" height="24" style="border-collapse: collapse"> <% cashmoney=0 cashmoney1=0 paypalmoney=0 paypalmoney1=0 bankmoney=0 bankmoney1=0 othermoney=0 othermoney1=0 yamaxun=0 yamaxun1=0 zhifubao=0 zhifubao1=0 totalmoney=0 totalmoney1=0 for i=0 to a_i-1 if lcase(Allmoney(i,0))="cash" then cashmoney=cashmoney+Allmoney(i,1) cashmoney1=cashmoney1+Allmoney(i,2) elseif lcase(Allmoney(i,0))="paypal" or Lcase(left(Allmoney(i,0),6))="paypal"then paypalmoney=paypalmoney+Allmoney(i,1) paypalmoney1=paypalmoney1+Allmoney(i,2) elseif lcase(Allmoney(i,0))="credit" or lcase(Allmoney(i,0))="credit cart" or lcase(Allmoney(i,0))="credit card" or lcase(Allmoney(i,0))="check" or lcase(Allmoney(i,0))="debit card" or lcase(Allmoney(i,0))="email tra" or lcase(Allmoney(i,0))="wire transfer" or lcase(Allmoney(i,0))="money order" or lcase(Allmoney(i,0))="credit card" then bankmoney=bankmoney+Allmoney(i,1) bankmoney1=bankmoney1+Allmoney(i,2) elseif lcase(Allmoney(i,0))="others" or Allmoney(i,0)="" then othermoney=othermoney+Allmoney(i,1) othermoney1=othermoney1+Allmoney(i,2) elseif lcase(Allmoney(i,0))="amazon" then yamaxun=yamaxun+Allmoney(i,1) yamaxun1=yamaxun1+Allmoney(i,2) elseif lcase(left(Allmoney(i,0),10))="aliexpress" then zhifubao=zhifubao+Allmoney(i,1) zhifubao1=zhifubao1+Allmoney(i,2) end if totalmoney=totalmoney+Allmoney(i,1) totalmoney1=totalmoney1+Allmoney(i,2) next %> <tr> <td bgcolor="#FF9933" width="116">���������Ʒ�ɱ�����</td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">Cash<br> <%="$" & round(cashmoney,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">paypal<br> <%="$" & Round(paypalmoney,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">bank account<br><%="$" & Round(bankmoney,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">Others<br><%="$" & Round(othermoney,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">Amazon<br><%="$" & Round(yamaxun,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">Aliexpress ֧����<br><%="$" & Round(zhifubao,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana"><b>TOTAL<br> <%=Round(totalmoney,2)%></b></td> </tr> <tr> <td bgcolor="#FF9933" width="116">���������Ʒ����ԭ�ۻ��� </td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">Cash<br> <%="$" & round(cashmoney1,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">paypal<br> <%="$" & Round(paypalmoney1,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">bank account<br><%="$" & Round(bankmoney1,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">Others<br><%="$" & Round(othermoney1,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">Amazon<br><%="$" & Round(yamaxun1,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana">Aliexpress ֧����<br><%="$" & Round(zhifubao1,2) %></td> <td height="24" width="116" align="center" bgcolor="#FF9933"><font size="2" face="Verdana"><b>TOTAL<br> <%=Round(totalmoney1,2)%></b></td> </tr> <tr> <td colspan="8" bgcolor="#66CCCC">ͬһ���۶�������Ʒ�������Ʒ�������2���ģ���ȱ����ԭ��ί�ж���ֹ�˾�����ģ�ͳ�Ƽ���ġ����۶���ʵ���տ���ܡ�������ȷ�� </td> </tr> </table> </body> </html>