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 Zu(100,3)
for i = 0 to 99
    Zu(i,1) = 0
next
Date_fro = "2016-01-01"
Date_to = "2016-10-31"
strcode=""
jine = 0
fahuo = 0
Dim Shuliang(20,5,5) '�������� �·ݣ���̨�����
for i = 0 to 19 
    for j = 0 to 4
        for k = 0 to 4
            Shuliang(i,j,k) = 0
        next
    next
next
    Dim Path_CPDGGL(5)
    Path_CPDGGL(0) = "../../../ASC365_CANADA/Admin/CPDGGL_CA/2016/2016"
    Path_CPDGGL(1) = "../../../ASC365_LOS/Admin/CPDGGL_YT/2016/2016"
    Path_CPDGGL(2) = "../../../ASC365_SFF/Admin/CPDGGL_YT/2016/2016"
    Path_CPDGGL(3) = "../../../ASC365_TPA/Admin/CPDGGL_YT/2016/2016"
    'Path_CPDGGL(4) = "../../../ASC365_VAN/Admin/CPDGGL_YT/"
    id_cpdggl = 0 
for id_cpdggl = 0 to 3
    for i = 1 to 10
        Temp = server.MapPath(Path_CPDGGL(id_cpdggl) & right("0" & i,2))
        if fs.FolderExists(Temp) then
            set fo = fs.GetFolder(Temp)
            for each x in fo.files
                jine = -1
                fahuo = 0
                if lcase(right(x.Name,4)) = ".sss" then
                    Temp1 = server.MapPath(Path_CPDGGL(id_cpdggl) & right("0" & i,2) & "/" & x.Name)
                    set f = fs.OpenTextFile(Temp1,1) 
                    do while  f.AtEndOfStream = false
                        YY = trim(f.Readline)
                        if left(YY,5) = "*-*-*" then
                            str = split(YY,"|")
                            if lcase(str(3)) = "y" then
                                fahuo = 1
                            end if
                        end if
                        if left(YY,5) = "$1$1$" then
                            str = split(YY,"|")
                            jine = str(4)
                        end if
                        if left(YY,6) = "******" then '�Ѿ�����
                            jine = -1
                        end if
                    loop
                    f.close
                end if
                if jine*1 <> -1 and fahuo*1=1 then '��������۵�����
                    if jine*1 < 100 then
                        Shuliang(i,id_cpdggl,1) = Shuliang(i,id_cpdggl,1) *1 + 1
                    elseif jine*1 < 200 then
                        Shuliang(i,id_cpdggl,2) = Shuliang(i,id_cpdggl,2) *1 + 1
                    elseif jine*1 < 400 then
                        Shuliang(i,id_cpdggl,3) = Shuliang(i,id_cpdggl,3) *1 + 1
                    else
                        Shuliang(i,id_cpdggl,4) = Shuliang(i,id_cpdggl,4) *1 + 1
                    end if
                end if
            next
        end if
    next
next
set f = nothing

for i = 1 to 10
        response.write("���׶�" & chr(9) & Shuliang(i,0,1) & chr(9) & Shuliang(i,0,2) & chr(9) & Shuliang(i,0,3) & chr(9) & Shuliang(i,0,4)& "</br>")
        response.write("��ɼ�" & chr(9) & Shuliang(i,1,1) & chr(9) & Shuliang(i,1,2) & chr(9) & Shuliang(i,1,3) & chr(9) & Shuliang(i,1,4)& "</br>")
        response.write("�ɽ�ɽ" & chr(9) & Shuliang(i,2,1) & chr(9) & Shuliang(i,2,2) & chr(9) & Shuliang(i,2,3) & chr(9) & Shuliang(i,2,4)& "</br>")
        response.write("̹��" & chr(9) & Shuliang(i,3,1) & chr(9) & Shuliang(i,3,2) & chr(9) & Shuliang(i,3,3) & chr(9) & Shuliang(i,3,4)& "</br>")
        response.write("�ϼ�" & chr(9) & Shuliang(i,0,1)*1 + Shuliang(i,1,1)*1 + Shuliang(i,2,1)*1 + Shuliang(i,3,1)*1 & chr(9) & Shuliang(i,0,2)*1 + Shuliang(i,1,2)*1 + Shuliang(i,2,2)*1 + Shuliang(i,3,2) & chr(9) & Shuliang(i,0,3)*1 + Shuliang(i,1,3)*1 + Shuliang(i,2,3)*1 +  Shuliang(i,3,3) & chr(9) & Shuliang(i,0,4)*1 + Shuliang(i,1,4)*1 + Shuliang(i,2,4)*1 +  Shuliang(i,3,4)& "</br></br>")
next

'Dim Pro(50)
'set f_check = fs.CreateTextFile(Server.MapPath("../../../ASC365_CANADA/Admin/Product_tongji.inc"))
'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
'                    set f = fs.OpenTextFile(Temp3, 1)
'                    k = 0
'                    do while false = f.AtEndOfStream
'                        Pro(k) = trim(f.Readline)
'                        k = k + 1
'                        if k > 30 then exit do
'                    loop
'                    f.close :set f = nothing
'                    if Lcase(Pro(27)) = "y" and  Lcase(Pro(28)) = "y" then 'ȷ���� ���� ������ �ܿ��Ĳ�Ʒ
'                        Temp4 = server.MapPath("../../Admin/"& danhao1 &"/"& danhao2 & "/Store.inc")
'                        mm="000"
'                        if fs.FileExists(Temp4) = true then
'                            set f_store = fs.OpenTextFile(Temp4,1)
'                            if f_store.AtEndOfStream = false then f_store.skipline
'                            if f_store.AtEndOfStream = false then f_store.skipline
'                            if f_store.AtEndOfStream = false then f_store.skipline
'                            if f_store.AtEndOfStream = false then f_store.skipline
'                            if f_store.AtEndOfStream = false then f_store.skipline
'                            if f_store.AtEndOfStream = false then f_store.skipline
'                            if f_store.AtEndOfStream = false then f_store.skipline
'                            if f_store.AtEndOfStream = false then f_store.skipline
'                            if f_store.AtEndOfStream = false then f_store.skipline
'                            if f_store.AtEndOfStream = false then mm = trim(f_store.readline)
'                            f_store.close
'                            set f_store = nothing
'                        else
'                            mm = "000"
'                        end if
'                        f_check.Writeline(danhao1&danhao2&"|"& Pro(1) &"|" & Pro(4)& "|"& mm)
'                    end if
'                end if
'            end if
'        next
'    end if
'next
'f_check.close
'set f_check = nothing
%>
</div>

</body>
</html>