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

<%set fs=Server.CreateObject("Scripting.FileSystemObject") %>
<%Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")%>

<table border="0" width="402" height="352" style="border-collapse: collapse">
<tr>
	<td height="199" width="400">
		<b><font size="2" face="Verdana"><a target="_blank" href="../help.asp">Help</a></font></b>��
			<% '-----------------------------��Ʒ��Ϣ���� 
			Dim KK(1100)
			If request.form ("B3")="Submit" then        '---------�ύ�󣬲�ƷĿ¼���� Productlist.inc �ļ�
				pass=request.Form("pass")
				 if pass="asc5365" then
				    set f=fs.CreateTextFile(Server.MapPath("Productlist.inc"),true)
				    DD=request.form("S20"): f.write(DD)
				    f.close :set f=nothing
				 end if
			end if
			
			If (fs.FileExists(Server.MapPath("Productlist.inc")))=true then  '---------------- ������ƷĿ¼�������� KK 
				i=0
				Set f=fs.OpenTextFile(Server.MapPath("Productlist.inc"), 1)
				do while f.AtEndOfStream = false
					WW=trim(f.ReadLine)
					if left(WW,1)="*" or left(WW,1)="@" then 
						KK(i)=replace(ww,chr(34),"'"):i=i+1                 '�滻������
					end if 	
					WW20 =ww20& WW &chr(13)&chr(10)
				loop
			else
				set f=fs.CreateTextFile(Server.MapPath("Productlist.inc"),true)
				f.write("")
			end if
			f.Close
			Set f=Nothing
			%>
		<font size="2" face="Verdana">Products Information Input:</font>
		<font color="#FF0000"><span style="font-size: 9pt"><%=inf1%></span></font></b><br>
		<font color="#808080" face="Verdana" style="font-size: 8pt">Sample:
		<br>
		* 00 | heat press<br>
		@00 | 000000 |15&quot;X 15&quot; heat press</font>
		<form method="post" action="<%=Thispage%>">
			<p>
			  <textarea rows="19" name="S20" cols="59" style="font-size: 11px; font-family: Verdana"><%=ww20%></textarea>
			  <br>
			password:
			<input type="password" name="pass" value="<%=pass%>" />
			<input type="submit" value="Submit" name="B3">
		</p>
			<p><font color="#FF0000" size="3">��ע�⣺����²�Ʒ��������ϵ����  </font></p>
		</form>
		 <%'----------------------------------------------%>
	</td>
</tr>
	
<tr>
	<td height="23" width="400">
		<%'------------------------------------- prodct display area
		 for i= 0 to 1100
		 	if left(KK(i),1)="*" then %>
				<table border="0" width="400" height="20" style="border-collapse: collapse">
				<tr>
				<td height="20" width="278"><font size="2" face="Verdana"><a href="<%= thispage & "?LL=" & KK(i) %>"><%= replace(KK(i),"'",chr(34))%></a></td>
				</tr>
				</table>
			<% end if %>
				
			<% if left(KK(i),1)="@" then
				temp=split(kk(i),"|")
		        yy=trim(temp(1)): xx= left(yy,3)          '-----------����Ǳ���Ĳ�Ʒ��������༭
				if len(yy)=6 and isnumeric(yy)=true then
					if xx=Request.Cookies("ItemNo") then %>     
						<table border="0" width="400" height="20" style="border-collapse: collapse">
						<tr>
							<td height="20" width="278"><font size="2" face="Verdana"><a href="<%= thispage & "?LL=" & KK(i) %>"><%= replace(KK(i),"'",chr(34))%></a></td>
						</tr>
						</table>
					<% else %>
						<table border="0" width="400" height="20" style="border-collapse: collapse">
						<tr>
							<td height="20" width="278"><font size="2" face="Verdana"><%= replace(KK(i),"'",chr(34))%></td>
						</tr>
						</table>
					<% end if %>
				<% else %>
					<%= "<font color='#FF0000'><b>Please check product code</font></b> " & KK(i) %>    
				<% end if %>  
                              
				<% end if %>
		<% next %>	
	</td>
</tr>
</table>

<%Set fs=Nothing%>