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>
<%
Dim Detail_tech(100)
id_tech = 0
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)
Temp_bianma = Server.MapPath("��Ʒ����_����2.txt")
set f_bianma = fs.OpenTextFile(Temp_bianma,1)
do while f_bianma.AtEndOfStream = false
    BIANMA=trim(f_bianma.ReadLine)
    danhao1 = left(BIANMA,3)
    danhao2 = right(BIANMA,3)
    Temp1 = server.MapPath(HoutaiPath(id_houtai)& danhao1)
    if true = fs.FolderExists(Temp1) then
        Temp2 = server.MapPath(HoutaiPath(id_houtai)& danhao1 & "/" & danhao2)
        if true = fs.FolderExists(Temp2) then
            Temp_Tech = server.MapPath(HoutaiPath(0)& danhao1 &"/"& danhao2 & "/Tech.inc")
            if true = fs.FileExists(Temp_Tech) then
                set f = fs.OpenTextFile(Temp_Tech,1)
                'response.write(danhao1&danhao2&"</br>")
                for id_temp = 0 to id_tech-1
                    Detail_tech(id_temp) = ""
                next
                id_tech = 0
                do while f.AtEndOfStream = false
                    Detail_tech(id_tech) = trim(f.readline)
                    id_tech = id_tech*1 + 1
                    if id_tech*1 > 28 then
                        exit do
                    end if
                loop
                f.close
                set f = nothing
                if lcase(Detail_tech(27)) = "y" and lcase(Detail_tech(28)) = "y" then
                    Temp3 = server.MapPath(HoutaiPath(id_houtai)& danhao1 &"/"& danhao2 & "/Store.inc")
                    if true = fs.FileExists(Temp3) then
                        Bianma = danhao1&danhao2
                        Zong = 0
                        daixiu = 0
                        ershou = 0
                        set f = fs.OpenTextFile(Temp3, 1)
                        if f.AtEndOfStream = false then
                            f.skipline
                        else
                            response.write(Temp3&"</br>")
                        end if
                        if f.AtEndOfStream = false then f.skipline
                        if f.AtEndOfStream = false then daixiu = trim(f.ReadLine)
                        if f.AtEndOfStream = false then Zong = trim(f.ReadLine)
                        if f.AtEndOfStream = false then f.skipline
                        if f.AtEndOfStream = false then f.skipline
                        if f.AtEndOfStream = false then f.skipline
                        if f.AtEndOfStream = false then f.skipline
                        if f.AtEndOfStream = false then f.skipline
                        if f.AtEndOfStream = false then f.skipline
                        if f.AtEndOfStream = false then 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
            end if
        end if
    end if
loop
f_bianma.close
set f_bianma = nothing
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)
    if id_houtai*1 = 0 then 'dld
        'WW = "CSH|"& Detail(i,0)& "|DLD|10|1|"&Detail(i,1) & "|2016/6/30|2016/6/30 7:30:00||0|00"
        'f.WriteLine(WW)
        'WW = "CSH|"& Detail(i,0)& "|DLD|20|1|"&Detail(i,4) & "|2016/6/30|2016/6/30 7:30:00||0|00"
        'f.WriteLine(WW)
        WW = "CSH|"& Detail(i,0)& "|DLD|30|1|"&Detail(i,7) & "|2016/6/30|2016/6/30 7:30:00||0|00"
        f.WriteLine(WW)
    elseif id_houtai*1 = 1 then 'LSJ
        'WW = "CSH|"& Detail(i,0)& "|LSJ|10|1|"&Detail(i,1) & "|2016/6/30|2016/6/30 7:30:00||0|00"
        'f.WriteLine(WW)
        'WW = "CSH|"& Detail(i,0)& "|LSJ|20|1|"&Detail(i,4) & "|2016/6/30|2016/6/30 7:30:00||0|00"
        'f.WriteLine(WW)
        WW = "CSH|"& Detail(i,0)& "|LSJ|30|1|"&Detail(i,7) & "|2016/6/30|2016/6/30 7:30:00||0|00"
        f.WriteLine(WW)
    elseif id_houtai*1 = 2 then 'JJS
        'WW = "CSH|"& Detail(i,0)& "|JJS|10|1|"&Detail(i,1) & "|2016/6/30|2016/6/30 7:30:00||0|00"
        'f.WriteLine(WW)
        'WW = "CSH|"& Detail(i,0)& "|JJS|20|1|"&Detail(i,4) & "|2016/6/30|2016/6/30 7:30:00||0|00"
        'f.WriteLine(WW)
        WW = "CSH|"& Detail(i,0)& "|JJS|30|1|"&Detail(i,7) & "|2016/6/30|2016/6/30 7:30:00||0|00"
        f.WriteLine(WW)
    elseif id_houtai*1 = 3 then 'TPP
        'WW = "CSH|"& Detail(i,0)& "|TPP|10|1|"&Detail(i,1) & "|2016/6/30|2016/6/30 7:30:00||0|00"
        'f.WriteLine(WW)
        'WW = "CSH|"& Detail(i,0)& "|TPP|20|1|"&Detail(i,4) & "|2016/6/30|2016/6/30 7:30:00||0|00"
        'f.WriteLine(WW)
        WW = "CSH|"& Detail(i,0)& "|TPP|30|1|"&Detail(i,7) & "|2016/6/30|2016/6/30 7:30:00||0|00"
        f.WriteLine(WW)
    elseif id_houtai*1 = 4 then 'YTT
        'WW = "CSH|"& Detail(i,0)& "|YTT|10|1|"&Detail(i,1) & "|2016/6/30|2016/6/30 7:30:00||0|00"
        'f.WriteLine(WW)
        'WW = "CSH|"& Detail(i,0)& "|YTT|20|1|"&Detail(i,4) & "|2016/6/30|2016/6/30 7:30:00||0|00"
        'f.WriteLine(WW)
        WW = "CSH|"& Detail(i,0)& "|YTT|30|1|"&Detail(i,7) & "|2016/6/30|2016/6/30 7:30:00||0|00"
        f.WriteLine(WW)
    end if
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>