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>�ֿ��Ʒ�ڷ�λ����Ϣ¼��</title>
<script language="javascript" type="text/javascript">
  function uppic(model,frmname) {
   bianma=document.addjilu.bianma.value;
   window.open("40_upload.asp?bianma="+bianma+"&frmname="+frmname,"blank_","scrollbars=yes,resizable=no,width=650,height=450")
}
</script>
<style type="text/css">
.a {
	font-weight: bold;
	color:#60F
}
.b {
	text-align: center;
	font-weight: bold;
}
.db {
	font-size: 14px;
	color: #F00;
}
.dd {
	color: #F00;
}
</style>
</head>

<body style="width:1200px; text-align:center; margin:0 auto">
<%
set fs=server.CreateObject("Scripting.FileSystemObject")

Dim Detail(10000)
d_i=0 
username=session("username")
shijian=date

if request.Form("submit")="submit" then
    bianma=request.Form("bianma")
	pass=request.Form("pass")
    if Isnumeric(bianma)=true and len(bianma)=6 then
	   Temp=server.MapPath("../../../ASC365_CANADA/Admin/"&left(bianma,3)&"/"&right(bianma,3)&"/Tech.inc")
	   if fs.FileExists(Temp)=true then
	       set f=fs.OpenTextFile(Temp,1)
		   do while f.AtEndOfStream=false
		      f.skipline
			  zhongwen=f.ReadLine
			  yingwen=f.ReadLine
			  exit do
		   loop
		   f.close
	       set f=nothing
	   end if 
	 
	   Temp=server.MapPath("../../../ASC365_CANADA/Admin/cangku/asc365_canada.txt")
	   if fs.FileExists(Temp)=false then
	        set f=fs.CreateTextFile(Temp,false)
			f.close
			set f=nothing
	   end if 
	   set f=fs.OpenTextFile(Temp,1)
	   do while f.AtEndOfStream=false
	        str=f.ReadLine
			if len(str)>0 then
			   str11=split(str,"|")
			   if str11(0)=bianma then
			       weizhi=str11(1)
				   exit do
			   end if
			end if   
	   loop 
	end if
	flag=request.Form("flag")
	if flag=1 then
	    weizhi=request.Form("weizhi")
		   if len(bianma)=6  then
		   Temp1=server.MapPath("../../../ASC365_CANADA/Admin/cangku/asc365_canada.txt")
		   if fs.FileExists(Temp1)=true then
		      set f=fs.OpenTextFile(Temp1,1)
			  II=0
			  do while f.AtEndOfStream=false
			      str=f.ReadLine
				  if len(str)>0 then
				      str11=split(str,"|")
					  if str11(0)=bianma then
					     if len(weizhi)>0 then
					     Detail(d_i)=bianma&"|"&weizhi&"|"&username&"|"&shijian
						 response.Write(Detail(d_i))
						 d_i=d_i+1
						 end if
						 II=1
					  else 
				         Detail(d_i)=str
					     d_i=d_i+1
					  end if
				  end if 
			  loop
			  f.close
			  set f=nothing
			  Temp2=server.MapPath("../../../ASC365_CANADA/Admin/cangku/asc365_canada.txt")
			  set f=fs.CreateTextFile(Temp2,true)
			  for i=0 to d_i-1
			      f.Writeline(Detail(i))
			  next
			  if II=0 then
			      f.Writeline(bianma&"|"&weizhi&"|"&username&"|"&shijian)
			  end if
			  f.close
			  set f=nothing
			  Response.Write("<script>alert('��ӳɹ�!');</script>")  
			  response.write "<script>"'�ؼ�����
	          response.write "window.location.href='10_cangkuinput.asp';"
	          response.write "</script>"'�ؼ�����
			  bianma=""
			  weizhi=""
			  pass=""
		   end if
		end if
	end if
end if
 pass=request.Form("pass")
 if pass="asc1234" then
    response.Cookies("pass")="asc1234"
 end if
 passw=request.Cookies("pass")

if passw<>"asc1234" then
%>
<div align="center" style="margin-top:100px">
<form method="post" action="">
���룺<input type="password" name="pass" value="" />
<input type="submit" name="tijiao" value="submit" />
</form>
</div>
<%else%>
<div style="text-align: left; margin-top: 30px; font-size: 12px;"> 
<div align="center">
<span style="font-weight: bold; font-size:16px">�ֿ��Ʒ�ڷ�λ����Ϣ¼��</span>
</div>
</br>

<table width="1200px" border="1" cellpadding="0" cellspacing="0">
  <form method="post" name="addjilu" action="">
  <tr height="35">
    <td width="164" height="41"><span class="a">*</span>��Ʒ���룺</td>
    <td width="261"><input type="text" name="bianma" value="<%=bianma%>" /></td>
    <td width="164"><span class="a">*</span>��Ʒ�������ƣ�</td>
    <td width="281">
      <%=zhongwen%>
      </td>
    <td width="133"><span class="a">*</span>��ƷӢ�����ƣ�</td>
    <td width="224">
      <%=yingwen%>
      </td>
  </tr>
   <tr height="35">
     <td height="34" >Ŀǰ���λ�ã�</td>
     <td colspan="5"><input type="text" name="weizhi" value="<%=weizhi%>" size="50" />
       <span class="dd">��д��ʽ������λ������ɣ����λ���ɶ��Ÿ������һλΪ��ĸ(A-Z��һ�����ڶ�����λΪ���֣�000-999��������A001��D005</span></td>
     </tr>
   <tr height="35">
        <td height="49" >�Ƿ���ʽ�ϴ���
        </td>
        <td colspan="2">
         <input type="radio" name="flag" value="0" <%if flag=0 then%> checked="checked" <%end if%> />��   <input type="radio" name="flag" value="1"  <%if flag=1 then%> checked="checked" <%end if%>/>��</td>
         <td>�ύ�ˣ�<%=username%></td>
        <td colspan="2"><input type="submit" name="submit" value="submit" />
        </td> 
     </tr>
</form>
</table>
<p>&nbsp;</p>
<p>&nbsp;</p>
</div>
<%end if%>
</body>
</html>