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

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<style>
a{TEXT-DECORATION:none}.DDD {
	font-weight: bold;
	font-size: 18px;
}
.sss {
	color: #F00;
}
</style>
<%
if session("asc365allpassword")<>"8879365" then response.end
set fs=Server.CreateObject("Scripting.FileSystemObject")
Function YYMMDD(YMD)
Y_Y = DatePart("yyyy",YMD)
M_M = DatePart("m",YMD) : If Len(M_M) < 2 Then M_M = "0" & M_M
D_D = DatePart("d",YMD) : If Len(D_D) < 2 Then D_D = "0" & D_D
H_H = DatePart("h",YMD) : If Len(H_H) < 2 Then H_H = "0" & H_H
N_N = DatePart("n",YMD) : If Len(N_N) < 2 Then N_N = "0" & N_N
S_S = DatePart("s",YMD) : If Len(S_S) < 2 Then S_S = "0" & S_S
YYMMDD = Y_Y & M_M & D_D & H_H & N_N & S_S
end function
%>
</head>
<body>
<b><font color="#FFFF00" face="Verdana" size="3"><span style="background-color: #000000">10</span></font></b>
<br><br>

<div align="center"><font color="#FF0000" face="Verdana" size="5"><b>���׶๫˾�ֿ��Ʒ�ڷ���Ϣ</b></font></div>
<br><br>
<%
ProductNo=request.Form("Tbm")
cklocation=request.Form("cklocation")
%>
<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a target="_blank" href="10_cangkuinput.asp"><b><span style="font-size: 12pt">001 --- ����Ʒ����¼��ֿ���Ϣ</span></b></a><br>
<br>
<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a target="_blank" href="10_huoweiinput.asp"><b><span style="font-size: 12pt">002 --- ����λ¼��ֿ���Ϣ</span></b></a><br>
<br>
<br>
<span class="DDD">�ֿ���Ϣ��ѯ��</span>
<form method="post" action="?ID=B10">
    <p><font size="4" face="Verdana">�������Ʒ���룺</font>
		<font face="Verdana" size="3"> <input type="text" name="Tbm" size="6" value=<%=ProductNo%>>&nbsp;</font>
  <input type="submit" value="Search" name="It_B"></p>
</form>
<%
if request.Form("It_B")="Search" then
if Isnumeric(ProductNo) and len(ProductNo)=6 then
     Temp=server.MapPath("../../../ASC365_CANADA/Admin/cangku/asc365_canada.txt")

if fs.FileExists(Temp)=true then
	    set f=fs.OpenTextFile(Temp,1)
		do while f.AtEndOfStream=false
		   str=f.ReadLine
		   if len(str)>0 then
		      str11=split(str,"|")
			  if ProductNo=str11(0) then
			      cangku=str11(1)
				  mingcheng=str11(2)
				  shijian=str11(3)
				  exit do
			  end if
		   end if
		loop
	 end if
	 Temp=server.MapPath("../../../ASC365_CANADA/Admin/"&left(ProductNo,3)&"/"&right(ProductNo,3)&"/Tech.inc")
	 if fs.FileExists(Temp)=true then
	      set f=fs.openTextFile(Temp,1)
		  f.skipline
		  zhongwen=f.ReadLine
		  yingwen=f.Readline
		  f.close
		  set f=nothing
	 end if
	 if len(cangku)>0 then
%>
<table border="1" width="800" cellpadding="0" cellspacing="0" style="border-collapse:collapse">
       <tr>
         <td height="40">��Ʒ���ƣ�<%=zhongwen%></td>
         <td>�ֿ���Ϣ��<%=cangku%></td>
         <td>����ʱ�䣺<%=shijian%></td>
       </tr>
    </table>
  <%
  else
  %>
  <span class="sss">δ��ѯ���κμ�¼</span>
<%
   end if
end if
end if
%>
<form method="post" action="?ID=B10">
    <p><font size="4" face="Verdana">������ֿ�λ�ã�</font>
		<font face="Verdana" size="3"> <input type="text" name="cklocation" size="6" value=<%=cklocation%>>&nbsp;</font>
  <input type="submit" value="Search" name="It_C"></p>
</form>

<%
Dim prolist(100,4)
p_i=0
if request.Form("It_C")="Search" then
     Temp=server.MapPath("../../../ASC365_CANADA/Admin/cangku/asc365_canada.txt")
	 if fs.FileExists(Temp)=true then
	    set f1=fs.OpenTextFile(Temp,1)
		do while f1.AtEndOfStream=false
		   str=f1.ReadLine
		   if len(str)>0 then
		      str11=split(str,"|")
			  if instr(Lcase(str11(1)),Lcase(cklocation))>0 then
			      prolist(p_i,0)=str11(0)
				  prolist(p_i,1)=str11(1)
				  prolist(p_i,2)=str11(3)
				   Temp=server.MapPath("../../../ASC365_CANADA/Admin/"&left(str11(0),3)&"/"&right(str11(0),3)&"/Tech.inc")
	                  if fs.FileExists(Temp)=true then
	                  set f=fs.openTextFile(Temp,1)
		                f.skipline
		                prolist(p_i,3)=f.ReadLine
		              f.close
		              set f=nothing
	                 end if
				    p_i=p_i+1
			  end if
		   end if
		loop
	 end if
	
	 if p_i>0 then
%>
<table border="1" width="800" cellpadding="0" cellspacing="0" style="border-collapse:collapse">
       <tr>
         <th height="40">��Ʒ����</td>
         <th height="40">��Ʒ����</td>
         <th>�ֿ���Ϣ</td>
         <th>����ʱ��</td>
       </tr>
       <%for i=0 to p_i-1%>
       <tr>
            <td height="35"><%=prolist(i,0)%></td>
           <td height="35"><%=prolist(i,3)%></td>
           <td height="35"><%=prolist(i,1)%></td>
           <td height="35"><%=prolist(i,2)%></td>
       </tr>
       <%next%>
    </table>
   <%
     else
   %>
  <span class="sss">δ��ѯ���κμ�¼</span>
<%
   end if
end if
%>
<%Set fs=Nothing%>
</body>