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> </head> <body style="text-align:center"> <% Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("Server_Port") & Request.ServerVariables("URL") if session("asc365allpassword")<>"8879365" then response.end '----------------------------------------------------------------------- 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 '----------------------------------------------------------------------- function Adddot(NUM) if isnumeric(NUM)=0 then NUM=0 if instr(NUM,".")=0 then NUM=NUM & ".00" else tem=split(NUM,".") if len(tem(1))<2 then tem(1)=tem(1) &"0" if len(tem(1))>2 then tem(1)=left(tem(1),2) NUM=tem(0) &"."& tem(1) end if if len(NUM)<4 then NUM="0" & NUM end if Adddot=NUM end function '----------------------------------------------------------------------- '===============��֤����============== set fs=Server.CreateObject("Scripting.FileSystemObject") YWY_Name17=request.Cookies("YWY_Name17") if YWY_Name17<>"��ѯ" then YWY_Mm=trim(request.form("LIN")) 'Temp=Server.MapPath("YWYinf.inc") Temp=Server.MapPath("..\..\..\ASC365_CWZ\Web\WebAdmin\XSDDLRRY_Inf") If fs.FileExists(Temp)=True then Set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if len(YY)<>0 AND left(YY,2)<>"//" then str=Split(YY,"|") if str(1)=YWY_Mm then YWY_Name17=Str(0) exit do end if end if loop f.Close: Set f=Nothing end if response.Cookies("YWY_Name17")=YWY_Name17 'response.write YWY_Name3 end if '============================================= YWY_Name17=request.Cookies("YWY_Name17") if YWY_Name17<>"��ѯ" then %> <form method="POST" action=""><input type="password" name="LIN" size="12"><input type="submit" value="Log in" name="Login"></form> <% response.end end if %> <font color="#FF0000" face="Verdana" size="5"><B>���ô�ASC���ʹ�˾�й������������˾�����ô�����</B></font> <br><br><br> <font color="#0000FF" face="Verdana" size="4"><B>017--���ô������Ŀ��ˮ�˲�ѯ</B></font><br> <br> <br> <table width="900" align="center"> <tr> <td width="300" align="center"><a href="<%=Thispage%>?typeid=01"><font size="4">�ֽ�</font></a></td> <td width="300"><a href="<%=Thispage%>?typeid=02"><font size="4">�����˻�</font></a></td> <td width="300"><a href="<%=Thispage%>?typeid=03"><font size="4">���ÿ�</font></a></td> <td width="300"><a href="<%=Thispage%>?typeid=04"><font size="4">Paypal</font></a></td> </tr> </table> <% Dim ZHYE '�˻���� TypeID=Request.Querystring("TypeID") if len(TypeId)=2 then %> <br> <br> <div align="center"><b><font color="#FF00FF" face="Verdana" size="4"> <% if typeid=01 then %> �ֽ������ϸ��ѯ <% elseif typeid=02 then %> ���н�����ϸ��ѯ <% elseif typeid=03 then %> ���ÿ�������ϸ��ѯ <% elseif typeid=04 then %> Paypal��ϸ��ѯ <% end if %> </font></b> </div> <br> <br> <% '----------------------------------------------------------------------- Temp=Server.MapPath("..\..\Admin\CWZ_LOS") & TypeID & "\" & "ZHYE.TXT" '��̨��˾�����˹��������� If (fs.FileExists(Temp))=true then Set f=fs.OpenTextFile(Temp, 1) ZHYE=trim(f.ReadLine) f.Close Set f=Nothing else ZHYE=0.00 Set f=fs.CreateTextFile(Temp,true) f.WriteLine (ZHYE) f.Close Set f=Nothing end if ZHYE=Adddot(ZHYE) '----------------------------------------------------------------------- RQ= DateAdd("h",2,now()) 'DateAdd("h",12,now) '�������� MLYMD=YYMMDD(RQ) FMLYEAR=left(MLYMD,4) FMLMON=Mid(MLYMD,5,2) FMLDAY="01" TMLYEAR=left(MLYMD,4) TMLMON=Mid(MLYMD,5,2) TMLDAY=Mid(MLYMD,7,2) If request.form("T7")="20" then FMLYEAR= trim(request.form("T1")) FMLMON= trim(request.form("T2")) FMLDAY= trim(request.form("T3")) TMLYEAR= trim(request.form("T4")) TMLMON= trim(request.form("T5")) TMLDAY= trim(request.form("T6")) end if %> <form method="post" action=""> <p align="center"> �� <input type="text" name="T1" size="4" value="<%=FMLYEAR%>"> �� <input type="text" name="T2" size="2" value="<%=FMLMON%>"> �� <input type="text" name="T3" size="2" value="<%=FMLDAY%>"> �� �� <input type="text" name="T4" size="4" value="<%=TMLYEAR%>"> �� <input type="text" name="T5" size="2" value="<%=TMLMON%>"> �� <input type="text" name="T6" size="2" value="<%=TMLDAY%>"> �� <input type="hidden" name="T7" value="20"> <input type="submit" value="�ύ" name="B1"> </form> <% If request.form("T7")="20" then FY= int(trim(request.form("T1"))) FM= int(trim(request.form("T2"))) FD= int(trim(request.form("T3"))) TY= int(trim(request.form("T4"))) TM= int(trim(request.form("T5"))) TD= int(trim(request.form("T6"))) if len(FY)<>4 or len(TY)<>4 or FY>TY then Response.Redirect (thispage & "?typeid=" & typeid) if FM<1 or FM>12 or TM<1 or TM>12 then Response.Redirect (thispage & "?typeid=" & typeid) if int(TY)=int(left(MLYMD,4)) and int(TM)>int(Mid(MLYMD,5,2)) then Response.Redirect (thispage & "?typeid=" & typeid) if FY=TY and FM>TM then Response.Redirect (thispage & "?typeid=" & typeid) if len(FM)<2 then FM="0" & FM if len(FD)<2 then FD="0" & FD if len(TM)<2 then TM="0" & TM if len(TD)<2 then TD="0" & TD FOF=FY & FM & FD TOT=TY & TM & TD %> <table border="1" width="1400" height="20" bordercolor="#f0f0f0" style="border-collapse: collapse" align="center"> <tr> <td height="20" width="40" bgcolor='#DDDDDD' align="center">���</td> <td height="20" width="100" bgcolor='#DDDDDD' align="center">¼������</td> <td height="20" width="100" bgcolor='#DDDDDD' align="center">��������</td> <td height="20" width="140" bgcolor='#DDDDDD' align="center">ҵ�����</td> <td height="20" width="100" bgcolor='#DDDDDD' align="center">�� ��</td> <td height="20" width="200" bgcolor='#DDDDDD' align="center">ժ Ҫ</td> <td height="20" width="100" bgcolor='#DDDDDD' align="center">֧ ��</td> <td height="20" width="100" bgcolor='#DDDDDD' align="center">�� ��</td> <td height="20" width="100" bgcolor='#DDDDDD' align="center">�� ��</td> <td height="20" width="200" bgcolor='#DDDDDD' align="center">�� ע1</td> <td height="20" width="200" bgcolor='#DDDDDD' align="center">�Ƿ�Ϊʵ��</td> </tr> <% JS=1 ZCHJ=0 '֧���ϼ� SRHJ=0 '����ϼ� for i=FY to TY if i<>TY then if i=FY then for j=FM to 12 if len(j)<2 then WJYEARMON=i & "0" & j else WJYEARMON=trim(i) & trim(j) end if '--------------------------------------- Temp=Server.MapPath("..\..\Admin\CWZ_LOS") & TypeID & "\" & i & "\" & WJYEARMON & ".sss" 'WJYEARMON .sss---������ϸ�ļ� If (fs.FileExists(Temp))=true then Set f=fs.OpenTextFile(Temp, 1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if len(YY)<>0 then str=split(YY,"|") if (str(0)>=FOF) and (TOT>=str(0)) then %> <tr> <td height="20" width="40" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="center"><%=JS%></td> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="center"><%=str(0)%></td> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="center"><%=str(1)%></td> <td height="20" width="140" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=str(2)%></td> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=str(9)%></td> <td height="20" width="200" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=str(3)%></td> <% if str(4)=0 then %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"> </td> <% else %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"><%=str(4)%></td> <% end if %> <% if str(5)=0 then %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"> </td> <% else %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"><%=str(5)%></td> <% end if %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"><%=str(6)%></td> <td height="20" width="200" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%if len(str(7))>10 then%><%if Isnumeric(right(str(7),10))=true then%><a href="01_05DeliveryYTdetail.asp?LL=<%=left(right(str(7),10),4)%>&LN=<%=left(right(str(7),10),6)%>&LM=<%=right(str(7),10)&".sss"%>" target="_blank"><%=str(7)%></a><% end if%><% end if%></td> <td height="20" width="200" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=str(8)%></td> </tr> <% ZCHJ=ZCHJ*1+str(4)*1 SRHJ=SRHJ*1+str(5)*1 JS=JS+1 end if end if loop f.close set f=nothing end if '--------------------------------------- next else for j=1 to 12 if len(j)<2 then WJYEARMON=i & "0" & j else WJYEARMON=trim(i) & trim(j) end if '--------------------------------------- Temp=Server.MapPath("..\..\Admin\CWZ_LOS") & TypeID & "\" & i & "\" & WJYEARMON & ".sss" 'WJYEARMON .sss---������ϸ�ļ� If (fs.FileExists(Temp))=true then Set f=fs.OpenTextFile(Temp, 1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if len(YY)<>0 then str=split(YY,"|") if (str(0)>=FOF) and (TOT>=str(0)) then %> <tr> <td height="20" width="40" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="center"><%=JS%></td> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="center"><%=str(0)%></td> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="center"><%=str(1)%></td> <td height="20" width="140" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=str(2)%></td> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=str(9)%></td> <td height="20" width="200" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=str(3)%></td> <% if str(4)=0 then %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"> </td> <% else %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"><%=str(4)%></td> <% end if %> <% if str(5)=0 then %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"> </td> <% else %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"><%=str(5)%></td> <% end if %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"><%=str(6)%></td> <td height="20" width="200" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%if len(str(7))>10 then%><%if Isnumeric(right(str(7),10))=true then%><a href="01_05DeliveryYTdetail.asp?LL=<%=left(right(str(7),10),4)%>&LN=<%=left(right(str(7),10),6)%>&LM=<%=right(str(7),10)&".sss"%>" target="_blank"><%=str(7)%></a><% end if%><% end if%></td> <td height="20" width="200" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=str(8)%></td> </tr> <% ZCHJ=ZCHJ*1+str(4)*1 SRHJ=SRHJ*1+str(5)*1 JS=JS+1 end if end if loop f.close set f=nothing end if '--------------------------------------- next end if else if i=FY then for j=FM to TM if len(j)<2 then WJYEARMON=i & "0" & j else WJYEARMON=trim(i) & trim(j) end if '--------------------------------------- Temp=Server.MapPath("..\..\Admin\CWZ_LOS") & TypeID & "\" & i & "\" & WJYEARMON & ".sss" 'WJYEARMON .sss---������ϸ�ļ� If (fs.FileExists(Temp))=true then Set f=fs.OpenTextFile(Temp, 1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if len(YY)<>0 then str=split(YY,"|") if (str(0)>=FOF) and (TOT>=str(0)) then %> <tr> <td height="20" width="40" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="center"><%=JS%></td> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="center"><%=str(0)%></td> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="center"><%=str(1)%></td> <td height="20" width="140" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=str(2)%></td> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=str(9)%></td> <td height="20" width="200" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=str(3)%></td> <% if str(4)=0 then %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"> </td> <% else %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"><%=str(4)%></td> <% end if %> <% if str(5)=0 then %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"> </td> <% else %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"><%=str(5)%></td> <% end if %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"><%=str(6)%></td> <td height="20" width="200" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%if len(str(7))>10 then%><%if Isnumeric(right(str(7),10))=true then%><a href="01_05DeliveryYTdetail.asp?LL=<%=left(right(str(7),10),4)%>&LN=<%=left(right(str(7),10),6)%>&LM=<%=right(str(7),10)&".sss"%>" target="_blank"><%=str(7)%></a><% end if%><% end if%></td> <td height="20" width="200" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=str(8)%></td> </tr> <% ZCHJ=ZCHJ*1+str(4)*1 SRHJ=SRHJ*1+str(5)*1 JS=JS+1 end if end if loop f.close set f=nothing end if '--------------------------------------- next else for j=1 to TM if len(j)<2 then WJYEARMON=i & "0" & j else WJYEARMON=trim(i) & trim(j) end if '--------------------------------------- Temp=Server.MapPath("..\..\Admin\CWZ_LOS") & TypeID & "\" & i & "\" & WJYEARMON & ".sss" 'WJYEARMON .sss---������ϸ�ļ� If (fs.FileExists(Temp))=true then Set f=fs.OpenTextFile(Temp, 1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if len(YY)<>0 then str=split(YY,"|") if (str(0)>=FOF) and (TOT>=str(0)) then %> <tr> <td height="20" width="40" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="center"><%=JS%></td> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="center"><%=str(0)%></td> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="center"><%=str(1)%></td> <td height="20" width="140" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=str(2)%></td> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=str(9)%></td> <td height="20" width="200" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=str(3)%></td> <% if str(4)=0 then %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"> </td> <% else %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"><%=str(4)%></td> <% end if %> <% if str(5)=0 then %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"> </td> <% else %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"><%=str(5)%></td> <% end if %> <td height="20" width="100" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"><%=str(6)%></td> <td height="20" width="200" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%if len(str(7))>10 then%><%if Isnumeric(right(str(7),10))=true then%><a href="01_05DeliveryYTdetail.asp?LL=<%=left(right(str(7),10),4)%>&LN=<%=left(right(str(7),10),6)%>&LM=<%=right(str(7),10)&".sss"%>" target="_blank"><%=str(7)%></a><% end if%><% end if%></td> <td height="20" width="200" <%if (JS mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=str(8)%></td> </tr> <% ZCHJ=ZCHJ*1+str(4)*1 SRHJ=SRHJ*1+str(5)*1 JS=JS+1 end if end if loop f.close set f=nothing end if '--------------------------------------- next end if end if next '----------------------------------------- %> <tr> <td height="20" width="40" bgcolor='#DDDDDD' align="center">���</td> <td height="20" width="100" bgcolor='#DDDDDD' align="center">¼������</td> <td height="20" width="100" bgcolor='#DDDDDD' align="center">��������</td> <td height="20" width="140" bgcolor='#DDDDDD' align="center">ҵ�����</td> <td height="20" width="100" bgcolor='#DDDDDD' align="center">�� ��</td> <td height="20" width="200" bgcolor='#DDDDDD' align="center">ժ Ҫ</td> <td height="20" width="100" bgcolor='#DDDDDD' align="center">֧ ��</td> <td height="20" width="100" bgcolor='#DDDDDD' align="center">�� ��</td> <td height="20" width="100" bgcolor='#DDDDDD' align="center">�� ��</td> <td height="20" width="200" bgcolor='#DDDDDD' align="center">�� ע1</td> <td height="20" width="200" bgcolor='#DDDDDD' align="center">�Ƿ�Ϊʵ��</td> </tr> <tr> <td height="20" width="40" align="center"> </td> <td height="20" width="100" align="center"> </td> <td height="20" width="100" align="center"> </td> <td height="20" width="140" align="center"> </td> <td height="20" width="100" align="center"> </td> <td height="20" width="200" bgcolor='#DDDDDD' align="center">�� ��</td> <td height="20" width="100" align="right"><%=Round(Adddot(ZCHJ),2)%></td> <td height="20" width="100" align="right"><%=Round(Adddot(SRHJ),2)%></td> <td height="20" width="100" align="right"><%=Round(Adddot(SRHJ)-Adddot(ZCHJ),2)%></td> <td height="20" width="200" align="center"> </td> <td height="20" width="200" align="center"> </td> </tr> </table> <% end if end if Set fs=Nothing %> </body> </html>