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">
  <%
Dim PP(13)
db_path = "../../Asc365/data/Test.mdb"
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db_path)
conn.Open connstr

set fs=Server.CreateObject("Scripting.FileSystemObject")
set rs = Server.CreateObject("adodb.recordset")
'-------------------------------------------------------------------------
'Temp_GGprice = Server.MapPath("GGPrice")
'if fs.FileExists(Temp_GGprice) = false then
'    fs.CreateTextFile(Temp_GGprice)
'end if
'set f_price = fs.OpenTextFile(Temp_GGprice,8)
huilv = 1.3
Temp_huilv = Server.MapPath("../../../ASC365_CWZ/WEB/WebAdmin/huilv.txt")
if fs.FileExists(Temp_huilv) = true then
    set f = fs.OpenTextFile(Temp_huilv,1)
    do while f.AtEndOfStream  = false
        YY = trim(f.ReadLine)
        if len(YY) <> 0 then
            str = split(YY,"|")
            huilv = trim(str(1))
        end if
    loop
    f.close
    set f = nothing
end if
'-------------------------------------------------------------------------
id_detail = 0
for i=0 to 999
    bianhao1 = right("00"&i, 3)
    Temp1 = server.MapPath("../../../ASC365_CANADA/Admin/"& bianhao1)
    if true = fs.FolderExists(Temp1) then
        for j=0 to 999
            bianhao2 = right("00"&j, 3)
            Temp2 = server.MapPath("../../../ASC365_CANADA/Admin/"& bianhao1 & "/" & bianhao2)
            if true = fs.FolderExists(Temp2) then
               id = 0
               YY = ""
               Temp3 = server.MapPath("../../../ASC365_CANADA/Admin/"& bianhao1 &"/"& bianhao2 & "/Tech.inc")
               if true = fs.FileExists(Temp3) then
                   set f = fs.OpenTextFile(Temp3, 1)
                   for id_i = 1 to 28
                       if f.AtEndOfStream = false then
                           YY = f.ReadLine
                           id = id*1 + 1
                       end if
                   next
                   f.close :set f = nothing
               end if
               if id*1 = 28 and lcase(YY) = "y" then
                   for id_line = 0 to 13
                       PP(id_line) = ""
                   next
                   id_line = 0
                   Temp_GG = server.MapPath("../../../ASC365_CANADA/Admin/"& bianhao1 &"/"& bianhao2 & "/GGPrice.inc")
                   if fs.FileExists(Temp_GG) = true then
                       set f_ggprice = fs.OpenTextFile(Temp_GG,1)
                       do while f_ggprice.AtEndOfStream = false
                           PP(id_line) = trim(f_ggprice.Readline)
                           id_line = id_line*1 + 1
                       loop
                       f_ggprice.close
                       set f_ggprice = nothing
                   end if
                   productid = bianhao1&bianhao2
                    sql="select * from newproductlist where productid='"&productid&"'"
                    rs.open sql,conn,1,1
                    price = 0
                    if not rs.eof then
                        price = rs("caprice1")
                    else '���ݻ��ʼ���
                        'response.write(productid&"</br>")
                        if IsNumeric(PP(6)) then
                            price = round(PP(6)*huilv,1)
                        end if
                    end if
                    rs.close
					if (Isnumeric(PP(12))=false or PP(12)="0") and len(PP(0))=6 then
                      'set f_ggprice = fs.CreateTextFile(Temp_GG,true)
                      'for id_line = 0 to 11
                      '  f_ggprice.writeline(PP(id_line))
                      'next
                      '  f_ggprice.writeline(price)
                      '  f_ggprice.close
                      'set f_ggprice = nothing
				      response.Write(PP(0))
					  response.Write("|")
					  response.Write(price)
					  response.Write("</br>")
					end if
					
                end if
            end if
        next
    end if
next
set rs = nothing
%>
    <strong>��Ʒ��Ԫ���������</strong>

</div>

</body>
</html>