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"> <% if session("asc365allpassword")<>"8879365" then response.end Set fs=Server.CreateObject("Scripting.FileSystemObject") Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") Page=Request.Querystring("Page") '------------------------------------------------------------- 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 NUM=Round(NUM,2) if instr(NUM,".")=0 then NUM=NUM & ".00" 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) if NUM<0 and NUM>-1 and len(NUM)=4 then NUM="-0." & right(NUM,2) if NUM>0 and len(NUM)<4 then NUM="0" & NUM Adddot=NUM end function '------------------------------------------------------------- %> <title>������</title> </head> <body> <div align="center"><font color="#FF0000"><b><span style="font-size: 18pt">����Ʒ�����ѯ������ϸ</span></b></font> <br> <br> <% Dim Shuju(99999) Dim Shuju_js Dim TJNYS(100) 'ͳ�Ƶ����·��ڴ����飬0-���һ�£�1-�����ڶ��£�2-���������£�4-...... Dim TJNYS_JS Dim Fro5 Dim Too5 Dim maxperpage 'ÿҳ���� maxperpage=30 Dim maxpage '��ҳ�� '----------------------------------------------------- RQ=YYMMDD(now) '--------------------------------- Dim YUE(11) YUE(0)="01" YUE(1)="02" YUE(2)="03" YUE(3)="04" YUE(4)="05" YUE(5)="06" YUE(6)="07" YUE(7)="08" YUE(8)="09" YUE(9)="10" YUE(10)="11" YUE(11)="12" '--------------------------------- Dim NIAN(50) Dim NIAN_JS NIAN_JS=0 for i=2012 to left(RQ,4)*1 NIAN(NIAN_JS)=i NIAN_JS=NIAN_JS+1 next '--------------------------------- 'Dim JYZ(10) 'Dim JYZ_JS 'JYZ_JS=0 'FileNamee="YWBMDM" 'If (fs.FileExists(Server.MapPath(FileNamee)))=true then ' Set f=fs.OpenTextFile(Server.MapPath(FileNamee), 1) ' do while f.AtEndOfStream = false ' YY=trim(f.ReadLine) ' if left(YY,2)="##" then ' str=Split(YY,"|") ' JYZ(JYZ_JS)=str(1) & str(2) 'ҵ����������� ' JYZ_JS = JYZ_JS+1 ' end if ' loop 'end if 'f.Close 'Set f=Nothing '---------------------------------------------------------------- Fro5=request.Cookies("Fro5") Too5=request.Cookies("Too5") YWZ5=request.Cookies("YWZ5") if len(Fro5)=0 then From_Y=NIAN(NIAN_JS-1) From_M="01" else From_Y= left(Fro5,4) From_M= right(Fro5,2) end if if len(Too5)=0 then To_Y=NIAN(NIAN_JS-1) To_M=Mid(RQ,5,2) else To_Y= left(Too5,4) To_M= right(Too5,2) end if if request.form("B1")="Submit" then 'if IsNumeric(YWZ5) and len(YWZ5)=6 then From_Y= trim(request.form("T1")) From_M= trim(request.form("T2")) To_Y= trim(request.form("T3")) To_M= trim(request.form("T4")) YWZ5= trim(request.form("T5")) Fro5=From_Y & From_M Too5=To_Y & To_M response.Cookies("Fro5")=Fro5 response.Cookies("Too5")=Too5 response.Cookies("YWZ5")=YWZ5 end if %> <table border="0" width="780" height="25" style="border-collapse: collapse"> <tr><form method="POST" action="?Page=1"> <td height="25" width="40"><p align="right"><font size="2"><b>From:</b></font></td> <td height="25" width="100" align="center"> <Select name="T1" id="T1" ><option value="<%=From_Y%>"><%=From_Y%></option> <% for C_II=0 to NIAN_JS-1 %> <option value="<%=NIAN(C_II)%>"><%=NIAN(C_II)%></option> <% next %> </Select><font size="3"><b> ��</b></font> </td> <td height="25" width="100" align="center"> <Select name="T2" id="T2" ><option value="<%=From_M%>"><%=From_M%></option> <% for C_II=0 to 11 %> <option value="<%=YUE(C_II)%>"><%=YUE(C_II)%></option> <% next %> </Select><font size="3"><b> ��</b></font> </td> <td height="25" width="40"><p align="right"><font size="2"><b>To:</b></font></td> <td height="25" width="100" align="center"> <Select name="T3" id="T3" ><option value="<%=To_Y%>"><%=To_Y%></option> <% for C_II=0 to NIAN_JS-1 %> <option value="<%=NIAN(C_II)%>"><%=NIAN(C_II)%></option> <% next %> </Select><font size="3"><b> ��</b></font> </td> <td height="25" width="100" align="center"> <Select name="T4" id="T4" ><option value="<%=To_M%>"><%=To_M%></option> <% for C_II=0 to 11 %> <option value="<%=YUE(C_II)%>"><%=YUE(C_II)%></option> <% next %> </Select><font size="3"><b> ��</b></font> </td> <td height="25" width="100"><p align="right"><font size="3"><b>��Ʒ���룺</b></font></td> <td height="25" width="100" align="center"><input type="text" name="T5" size="10" value="<%=YWZ5%>"></td> <td height="25" width="100" align="center"><input type="submit" value="Submit" name="B1"></td> </form> </tr> </table> <br><br> <% if request.form("B2")="ѡ��" then Page=trim(request.form("T6")) end if if len(Fro5)=6 and len(Too5)=6 and len(YWZ5)<>0 then TJNYS_JS=0 Flag=Fro5 do while Flag*1 <= Too5*1 'ȡҪͳ�Ƶ����������浽TJNYS()������ TJNYS(TJNYS_JS)=Flag TJNYS_JS=TJNYS_JS*1+1 Flag=Flag*1+1 if right(Flag,2)=13 then Flag=(left(Flag,4)*1+1) & "01" loop '----------------------------------------ȡÿ�µ���������--------------------------- Shuju_js=0 HJ0=0 HJ1=0 HJ2=0 for i=0 to TJNYS_JS-1 Temp=Server.MapPath("..\..\..\Asc365_CANADA\Admin") & "\KJ_KCXS\" & left(TJNYS(i),4) & "\" & TJNYS(i) & "\" & TJNYS(i) & ".txt" 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 trim(str(4))=YWZ5 then Shuju(Shuju_js)=Shuju_js*1+1 & "|" & YY Shuju_js=Shuju_js*1+1 HJ0=HJ0*1+str(6)*1 HJ1=HJ1*1+str(8)*1 HJ2=HJ2*1+str(10)*1 end if end if loop f.Close Set f=Nothing end if next '------------------------------------------------------------------------------------ if ((Shuju_js*1) mod maxperpage)=0 then maxpage = (Shuju_js*1-1) \ maxperpage else maxpage= (Shuju_js*1-1) \ maxperpage+1 end if %> <table border="1" width="1160" height="20" bordercolor="#f0f0f0" style="border-collapse: collapse"> <tr> <td height="20" width="60" bgcolor="#DDDDDD" align="center">˳���</td> <td height="20" width="80" 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="40" bgcolor="#DDDDDD" align="center">���</td> <td height="20" width="80" bgcolor="#DDDDDD" align="center">��Ʒ����</td> <td height="20" width="240" bgcolor="#DDDDDD" align="center">��Ʒ����</td> <td height="20" width="80" bgcolor="#DDDDDD" align="center">��������</td> <td height="20" width="80" bgcolor="#DDDDDD" align="center">�ɽ��۸�</td> <td height="20" width="80" bgcolor="#DDDDDD" align="center">�ɽ����</td> <td height="20" width="80" bgcolor="#DDDDDD" align="center">��˾����</td> <td height="20" width="80" bgcolor="#DDDDDD" align="center">���۽��</td> <td height="20" width="80" bgcolor="#DDDDDD" align="center">�ɱ��۸�</td> <td height="20" width="80" bgcolor="#DDDDDD" align="center">���Ŵ���</td> </tr> <% '----------------------------------------ȡÿ�µ���������--------------------------- HJJ0=0 HJJ1=0 HJJ2=0 HH=Page*maxperpage-1 if HH*1>Shuju_js*1-1 then HH=Shuju_js*1-1 for i=(Page*1-1)*maxperpage to HH YY=Shuju(i) str=Split(YY,"|") if (str(0) mod 2)<>0 then %> <tr> <td height="20" width="60" align="center"><%=str(0)%></td> <td height="20" width="80" align="center"><%=str(1)%></td> <td height="20" width="100" align="left"><%=str(2)%></td> <td height="20" width="100" align="center"><a href="06_display_7.asp?year=<%=str(1)%>&xph=<%=str(3)%>" target="_blank"><%=str(3)%></a></td> <td height="20" width="40" align="center"><%=str(4)%></td> <td height="20" width="80" align="center"><%=str(5)%></td> <td height="20" width="240" align="left"><%=str(6)%></td> <td height="20" width="80" align="right"><%=str(7)%></td> <td height="20" width="80" align="right"><%=Adddot(str(8))%></td> <td height="20" width="80" align="right"><%=Adddot(str(9))%></td> <td height="20" width="80" align="right"><%=Adddot(str(10))%></td> <td height="20" width="80" align="right"><%=Adddot(str(11))%></td> <td height="20" width="80" align="right"><%=str(12)%></td> <td height="20" width="80" align="center"><%=str(13)%></td> </tr> <% else %> <tr> <td height="20" width="60" bgcolor="#99FFFF" align="center"><%=str(0)%></td> <td height="20" width="80" bgcolor="#99FFFF" align="center"><%=str(1)%></td> <td height="20" width="100" bgcolor="#99FFFF" align="left"><%=str(2)%></td> <td height="20" width="100" bgcolor="#99FFFF" align="center"><a href="06_display_7.asp?year=<%=str(1)%>&xph=<%=str(3)%>" target="_blank"><%=str(3)%></a></td> <td height="20" width="40" bgcolor="#99FFFF" align="center"><%=str(4)%></td> <td height="20" width="80" bgcolor="#99FFFF" align="center"><%=str(5)%></td> <td height="20" width="240" bgcolor="#99FFFF" align="left"><%=str(6)%></td> <td height="20" width="80" bgcolor="#99FFFF" align="right"><%=str(7)%></td> <td height="20" width="80" bgcolor="#99FFFF" align="right"><%=Adddot(str(8))%></td> <td height="20" width="80" bgcolor="#99FFFF" align="right"><%=Adddot(str(9))%></td> <td height="20" width="80" bgcolor="#99FFFF" align="right"><%=Adddot(str(10))%></td> <td height="20" width="80" bgcolor="#99FFFF" align="right"><%=Adddot(str(11))%></td> <td height="20" width="80" bgcolor="#99FFFF" align="right"><%=str(12)%></td> <td height="20" width="80" bgcolor="#99FFFF" align="center"><%=str(13)%></td> </tr> <% end if HJJ0=HJJ0*1+str(7)*1 HJJ1=HJJ1*1+str(9)*1 HJJ2=HJJ2*1+str(11)*1 next %> <tr> <td height="20" width="240" bgcolor="#DDDDDD" align="center" colspan="3">�� <font color="#FF0000"><%=Page%></font> ҳ �� ��</td> <td height="20" width="100" align="center"></td> <td height="20" width="40" align="center"></td> <td height="20" width="80" align="center"></td> <td height="20" width="240" align="left"></td> <td height="20" width="80" bgcolor="#DDDDDD" align="right"><%=HJJ0%></td> <td height="20" width="160" bgcolor="#DDDDDD" align="right" colspan="2"><%=Adddot(HJJ1)%></td> <td height="20" width="160" bgcolor="#DDDDDD" align="right" colspan="2"><%=Adddot(HJJ2)%></td> <td height="20" width="80" align="right"></td> <td height="20" width="80" align="center"></td> </tr> <tr> <td height="20" width="240" bgcolor="#DDDDDD" align="center" colspan="3">�� ��</td> <td height="20" width="100" align="center"></td> <td height="20" width="40" align="center"></td> <td height="20" width="80" align="center"></td> <td height="20" width="240" align="left"></td> <td height="20" width="80" bgcolor="#DDDDDD" align="right"><%=HJ0%></td> <td height="20" width="160" bgcolor="#DDDDDD" align="right" colspan="2"><%=Adddot(HJ1)%></td> <td height="20" width="160" bgcolor="#DDDDDD" align="right" colspan="2"><%=Adddot(HJ2)%></td> <td height="20" width="80" align="right"></td> <td height="20" width="80" align="center"></td> </tr> </table> <form method="POST" action="?Page=<%=Page%>"> <table border="0" width="1160" height="20" bordercolor="#f0f0f0" style="border-collapse: collapse"> <tr> <td height="20" width="60" align="center"></td> <td height="20" width="80" align="center"></td> <td height="20" width="100" align="left"></td> <td height="20" width="100" align="center"></td> <td height="20" width="40" align="center"></td> <td height="20" width="80" align="center"></td> <td height="20" width="240" align="left"></td> <% if Page*1>1 then %> <td height="20" width="80" align="center"><a target="_self" href="06_Display_5.asp?Page=1"><font size="2">��ҳ</font></a></td> <td height="20" width="80" align="center"><a target="_self" href="06_Display_5.asp?Page=<%=Page*1-1%>"><font size="2">��һҳ</font></a></td> <% else %> <td height="20" width="80" align="center"><font size="2">��ҳ</font></td> <td height="20" width="80" align="center"><font size="2">��һҳ</font></td> <% end if %> <% if Page*1<maxpage*1 then %> <td height="20" width="80" align="center"><a target="_self" href="06_Display_5.asp?Page=<%=Page*1+1%>"><font size="2">��һҳ</font></a></td> <td height="20" width="80" align="center"><a target="_self" href="06_Display_5.asp?Page=<%=maxpage%>"><font size="2">ĩҳ</font></a></td> <% else %> <td height="20" width="80" align="center"><font size="2">��һҳ</font></td> <td height="20" width="80" align="center"><font size="2">ĩҳ</font></td> <% end if %> <td height="20" width="80" align="center"> <Select name="T6" id="T6" ><option value="<%=Page%>"><%=Page%></option> <% for II=1 to maxpage %> <option value="<%=II%>"><%=II%></option> <% next %> </Select><font size="2"> ҳ</font> </td> <td height="20" width="80" align="center"><input type="submit" value="ѡ��" name="B2"></td> <td height="20" width="80" align="center"></td> </tr> </table> </form> <% end if %> </div> <%Set fs=Nothing%> </html>