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-Type" content="text/html; charset=gb2312"> <title>���ô�ASC���ʹ�˾</title> <style type="text/css"> <!-- .STYLE1 { font-family: "������"; font-weight: bold; font-size: 24px; } .STYLE2 { color: #FF0000; font-family: "������"; font-size: 14px; } .STYLE3 { color: #3366CC; font-weight: bold; } .STYLE5 {color: #660033} --> </style> </head> <body> <div align="center"> <% 'if session("asc365allpassword_cwz")<>"8879365_cwz" then response.end set fs=Server.CreateObject("Scripting.FileSystemObject") Function YYMMDD(YMD) Y_Y = DatePart("yyyy",YMD) M_M = DatePart("m",YMD) : If Len(M_M) < 2 Then M_M = "0" & M_M D_D = DatePart("d",YMD) : If Len(D_D) < 2 Then D_D = "0" & D_D H_H = DatePart("h",YMD) : If Len(H_H) < 2 Then H_H = "0" & H_H N_N = DatePart("n",YMD) : If Len(N_N) < 2 Then N_N = "0" & N_N S_S = DatePart("s",YMD) : If Len(S_S) < 2 Then S_S = "0" & S_S YYMMDD = Y_Y & M_M & D_D & H_H & N_N & S_S end function '----------------------------------------------------- d=date() 'str=Split(date,"/") From_Y= year(d) From_M= month(d) 'if IsNumeric(From_M) then if len(From_M)=1 then From_M="0" & From_M From_D=day(d) if len(From_D)=1 then From_D="0"&From_D To_Y=year(d) To_M=month(d) if len(To_M)=1 then To_M="0"&To_M To_D=day(d) if len(To_D)=1 then To_D="0"&To_D %> <% JS=0 if request.form("B1")="Submit" then Dim SearchData(50,100) sd=0 Dim Kucun(100,30) k_i=0 Dim Zubie(100,30) z_i=0 Temp=server.MapPath("../../../ASC365_CWZ/Web/Webadmin/BUMENInf_YT") if fs.FileExists(Temp)=true then set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream=false str=f.ReadLine if len(str)>0 and left(str,1)="A" then str11=split(str,"|") Zubie(z_i,0)="0"&right(str11(0),2) Zubie(z_i,1)=str11(2) z_i=z_i+1 end if loop end if Dim kezu(30,2) k_i=0 Temp=server.MapPath("../../../ASC365_CWZ/Web/Webadmin/kezu") if fs.FileExists(Temp)=true then set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream=false str=f.ReadLine if len(str)>0 then str11=split(str,"|") kezu(k_i,0)=str11(0) kezu(k_i,1)=str11(1) k_i=k_i+1 end if loop end if yike=0 erke=0 for i=0 to k_i-1 if kezu(i,1)=1 then yike=yike+1 else erke=erke+1 end if for j=0 to z_i-1 if kezu(i,0)=zubie(j,0) then zubie(j,29)=kezu(i,1) end if next next Dim yuefen(24) yue_i=0 From_Y=request.Form("T1") From_M=right("00"&request.Form("T2"),2) Fdate=From_Y&"/"&From_M&"/"&"01" To_Y=request.Form("T3") To_M=right("0"&request.Form("T4"),2) Tdate=To_Y&"/"&To_M&"/"&"01" for i=0 to 23 date1=DateAdd("m",i,Fdate) if datediff("m",date1,Tdate)>=0 then yuefen(yue_i)=date1 SearchData(0,yue_i)=0 yue_i=yue_i+1 end if next '-------------------------��ȡ������������ for i=0 to yue_i-1 newyear=year(yuefen(i)) newmonth=right("0"&month(yuefen(i)),2) Temp=server.MapPath("../../../ASC365_CANADA/Admin/KJ_KCXS/"&newyear&"/"&newyear&newmonth&"/"&newyear&newmonth&".sss") if fs.FileExists(Temp)=true then set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream=false str=f.ReadLine if left(str,2)="@@" then str11=split(str,"|") for ss=0 to z_i-1 if Zubie(ss,0)=str11(2) then Zubie(ss,i+2)=str11(4) Zubie(z_i,i+2)=Zubie(z_i,i+2)+str11(4)*1 end if next end if loop else for ss=0 to z_i-1 Zubie(ss,i+2)=0 next end if next Dim AllHuilv(120,2) i_huilv = 0 huilv=6 Temp=server.MapPath("../../../ASC365_cwz/Web/Webadmin/huilv.txt") if fs.FileExists(Temp)=true then set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream=false YY=f.ReadLine if len(YY)<>0 then str = split(YY,"|") AllHuilv(i_huilv,0) = str(0) AllHuilv(i_huilv,1) = str(2) i_huilv = i_huilv*1 + 1 end if loop end if '-------------------------��ȡ���п������ for i=0 to yue_i-1 newyear=year(yuefen(i)) newmonth=right("0"&month(yuefen(i)),2) huilv = 6 for ii = 0 to i_huilv - 1 if AllHuilv(ii,0) = newyear&newmonth then huilv = AllHuilv(ii,1) exit for end if next Temp="" for s=0 to day(dateserial(newyear,newmonth+1,1)-1)-1 newday=right("0"&(31-s),2) Temp=server.MapPath("../../../ASC365_CANADA/Admin/KJ_KCXS/"&newyear&"/"&newyear&newmonth&"/"&newyear&newmonth&newday&"HZ.txt") if fs.FileExists(Temp)=true then exit for end if next if fs.FileExists(Temp)=true then set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream=false str=f.ReadLine if left(str,2)="##" then str11=split(str,"|") for ss=0 to z_i-1 if Zubie(ss,0)=right(str11(0),3) then Kucun(ss,i+2)=Round(str11(14)/huilv,2) Kucun(z_i,i+2)= Kucun(z_i,i+2)+str11(14)/huilv end if next end if loop else Kucun(ss,i+2)=0 end if next end if %> <table border="0" width="1000" height="25" style="border-collapse: collapse"> <tr> <td align="center"><span class="STYLE1">ҵ�����������ռ�Ȳ�ѯ</span></td> </tr> </table> <table border="1" width="1200" height="25" style="border-collapse: collapse"> <form method="POST" action=""> <tr> <td height="40" colspan="2"><div align="center"> �� ��</td> <td width="462"> <div align="center">From: <input type="text" name="T1" size="6" value="<%=From_Y%>"> �� <input type="text" name="T2" size="4" value="<%=From_M%>"> �� </div></td> <td width="452"> To: <input type="text" name="T3" size="6" value="<%=To_Y%>"> �� <input type="text" name="T4" size="4" value="<%=To_M%>"> �� </td> <td width="124"><input type="submit" value="Submit" name="B1"></td> </tr> <tr> <td colspan="6" height="30"><div align="center" class="STYLE2">��ע�⣺���²�ѯ���ɲ�ѯ24����</div></td> </tr> </form> </table> </br> </br> <table width="<%=1000+yue_i*70%>" border="1" cellpadding="0" cellspacing="0" style="border-collapse:collapse"> <tr bgcolor="#999999" height="30"> <th rowspan="2">����</th> <th rowspan="2">���</th> <th rowspan="2">��Ա</th> <% for i=0 to yue_i-1 %> <th colspan="5"><%=year(yuefen(i))&"/"&month(yuefen(i))%></th> <% next %> </tr> <tr> <% for ss=0 to yue_i-1 %> <td bgcolor="#99FFFF">���۶�</td> <td>����ռ��</td> <td bgcolor="#FFFF99">���</td> <td>���ռ��</td> <td bgcolor="#6699FF">������۱�</td> <% next %> </tr> <% dd=0 for i=0 to z_i-1 if zubie(i,29)=1 then if dd=0 then dd=1 %> <tr height="30"> <td rowspan="<%=yike%>" ><a href="01_07heji.asp?ke=1&fdate=<%=Fdate%>&tdate=<%=Tdate%>" target="_blank">ҵ��һ��</a></td> <td><a href="01_07RateKucunXiaoshou.asp?fenzu=<%=Zubie(i,0)%>&fdate=<%=Fdate%>&tdate=<%=Tdate%>" target="_blank"><%=Zubie(i,0)%></a></td> <td><%=Zubie(i,1)%></td> <% for ss=0 to yue_i-1 %> <td align="right" bgcolor="#99FFFF"><%if Round(Zubie(i,ss+2),2)<>0 then%><%=Round(Zubie(i,ss+2),2)%><%end if%></td> <td align="right"><%if Zubie(z_i,ss+2)>0 then %><%=Round(Zubie(i,ss+2)/Zubie(z_i,ss+2),4)*100%>%<%end if%></td> <td align="right" bgcolor="#FFFF99"><%if Round(Kucun(i,ss+2),2)<>0 then%><%=Round(Kucun(i,ss+2),2)%><%end if%></td> <td align="right"><%if Kucun(z_i,ss+2)>0 then %><%=Round(Kucun(i,ss+2)/Kucun(z_i,ss+2),4)*100%>%<%end if%></td> <td align="center" bgcolor="#6699FF"><%if Zubie(i,ss+2)>0 then%><%=Round(Kucun(i,ss+2)/Zubie(i,ss+2),2)%><%end if%></td> <% next %> </tr> <% else %> <tr height="30"> <td><a href="01_07RateKucunXiaoshou.asp?fenzu=<%=Zubie(i,0)%>&fdate=<%=Fdate%>&tdate=<%=Tdate%>" target="_blank"><%=Zubie(i,0)%></a></td> <td><%=Zubie(i,1)%></td> <% for ss=0 to yue_i-1 %> <td align="right" bgcolor="#99FFFF"><%if Round(Zubie(i,ss+2),2)<>0 then%><%=Round(Zubie(i,ss+2),2)%><%end if%></td> <td align="right"><%if Zubie(z_i,ss+2)>0 then %><%=Round(Zubie(i,ss+2)/Zubie(z_i,ss+2),4)*100%>%<%end if%></td> <td align="right" bgcolor="#FFFF99"><%if Round(Kucun(i,ss+2),2)<>0 then%><%=Round(Kucun(i,ss+2),2)%><%end if%></td> <td align="right"><%if Kucun(z_i,ss+2)>0 then %><%=Round(Kucun(i,ss+2)/Kucun(z_i,ss+2),4)*100%>%<%end if%></td> <td align="center" bgcolor="#6699FF"><%if Zubie(i,ss+2)>0 then%><%=Round(Kucun(i,ss+2)/Zubie(i,ss+2),2)%><%end if%></td> <% next %> </tr> <% end if end if %> <% next %> <% dd=0 for i=0 to z_i-1 if zubie(i,29)=2 then if dd=0 then dd=1 %> <tr height="30"> <td rowspan="<%=erke%>" ><a href="01_07heji.asp?ke=2&fdate=<%=Fdate%>&tdate=<%=Tdate%>" target="_blank">ҵ�����</a></td> <td><a href="01_07company.asp?fenzu=<%=Zubie(i,0)%>&fdate=<%=Fdate%>&tdate=<%=Tdate%>" target="_blank"><%=Zubie(i,0)%></a></td> <td><%=Zubie(i,1)%></td> <% for ss=0 to yue_i-1 %> <td align="right" bgcolor="#99FFFF"><%if Round(Zubie(i,ss+2),2)<>0 then%><%=Round(Zubie(i,ss+2),2)%><%end if%></td> <td align="right"><%if Zubie(z_i,ss+2)>0 then %><%=Round(Zubie(i,ss+2)/Zubie(z_i,ss+2),4)*100%>%<%end if%></td> <td align="right" bgcolor="#FFFF99"><%if Round(Kucun(i,ss+2),2)<>0 then%><%=Round(Kucun(i,ss+2),2)%><%end if%></td> <td align="right"><%if Kucun(z_i,ss+2)>0 then %><%=Round(Kucun(i,ss+2)/Kucun(z_i,ss+2),4)*100%>%<%end if%></td> <td align="center" bgcolor="#6699FF"><%if Zubie(i,ss+2)>0 then%><%=Round(Kucun(i,ss+2)/Zubie(i,ss+2),2)%><%end if%></td> <% next %> </tr> <% else %> <tr height="26"> <td ><a href="01_07company.asp?fenzu=<%=Zubie(i,0)%>&fdate=<%=Fdate%>&tdate=<%=Tdate%>" target="_blank"><%=Zubie(i,0)%></a></td> <td><%=Zubie(i,1)%></td> <% for ss=0 to yue_i-1 %> <td align="right" bgcolor="#99FFFF"><%if Round(Zubie(i,ss+2),2)<>0 then%><%=Round(Zubie(i,ss+2),2)%><%end if%></td> <td align="right"><%if Zubie(z_i,ss+2)>0 then %><%=Round(Zubie(i,ss+2)/Zubie(z_i,ss+2),4)*100%>%<%end if%></td> <td align="right" bgcolor="#FFFF99" ><%if Round(Kucun(i,ss+2),2)<>0 then%><%=Round(Kucun(i,ss+2),2)%><%end if%></td> <td align="right"><%if Kucun(z_i,ss+2)>0 then %><%=Round(Kucun(i,ss+2)/Kucun(z_i,ss+2),4)*100%>%<%end if%></td> <td align="center" bgcolor="#6699FF"><%if Zubie(i,ss+2)>0 then%><%=Round(Kucun(i,ss+2)/Zubie(i,ss+2),2)%><%end if%></td> <% next %> </tr> <% end if end if %> <% next %> <tr height="35"> <td colspan="3" align="center">�ϼ�</td> <% for ss=0 to yue_i-1 %> <td align="right" bgcolor="#99FFFF"><%=Round(Zubie(z_i,ss+2),2)%></td> <td></td> <td align="right" bgcolor="#FFFF99"><%=Round(Kucun(z_i,ss+2),2)%></td> <td></td> <td align="center" bgcolor="#6699FF"><%if Zubie(z_i,ss+2)>0 then%><%=Round(Kucun(z_i,ss+2)/Zubie(z_i,ss+2),2)%><%end if%></td> <% next %> </tr> </table> <%Set fs=Nothing%> </html>