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>�½�����--���׶๫˾</title>
<style type="text/css">
.a {
	font-size: 24px;
	color: #60F;
	font-weight: bold;
}
</style>
</head>
<body>
    <div align="center">
<%
if session("asc365allpassword")<>"8879365" then response.end
set fs=Server.CreateObject("Scripting.FileSystemObject")
YWY_Name13=request.Cookies("YWY_Name13")
'if YWY_Name13<>"����" then
	YWY_Mm=trim(request.form("LIN"))
	'Temp=Server.MapPath("YWYinf.inc")
	Temp=Server.MapPath("..\..\..\ASC365_CWZ\Web\WebAdmin\XSDDLRRY_Inf")
	If fs.FileExists(Temp)=True then
		Set f=fs.OpenTextFile(Temp,1)
		do while f.AtEndOfStream = false
			YY=Trim(f.ReadLine)
			if len(YY)<>0 And left(YY,2)<>"//" then
				str=Split(YY,"|")
				if str(1)=YWY_Mm then
					YWY_Name13=Str(0)
					exit do
				end if
			end if
		loop
		f.Close: Set f=Nothing
	end if
	response.Cookies("YWY_Name13")=YWY_Name13
	'response.write YWY_Name13
'end if
'------------------------------------------------
YWY_Name13=request.Cookies("YWY_Name13")
if len(YWY_Name13)=0 then
%>
	<form method="POST" action=""><input type="password" name="LIN" size="12"><input type="submit" value="Log in" name="Login"></form>
<%
	response.end
end if

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
%>

<font color="#FF0000" face="Verdana" size="5"><B>ASC���ʹ�˾�й������������˾�����ô���׶๫˾����</B></font>
<br>
<br><br>
<font color="#0000FF" face="Verdana" size="4"><B> �������� </B></font>
<br><br>
<%
'-----------------------------------------------------------------------
Dim Country_Region(300)
Dim Zuhe(50)
Dim Country_JS
Country_JS=0
Temp=Server.MapPath("..\..\..\ASC365_CANADA\Admin\CPDGGL_YT\Country.txt")
If fs.FileExists(Temp)=True then
	Set f=fs.OpenTextFile(Temp,1)
	do while f.AtEndOfStream = false
		YY=Trim(f.ReadLine)
		if len(YY)<>0 then
			Country_Region(Country_JS)=YY
			Country_JS=Country_JS+1
		end if
	loop
	f.Close: Set f=Nothing
end if
'-----------------------------------------------------------------------

Dim SFKYFH(5)		'*-*-*-�Ƿ���Է�����0-��y�����뷢����1-��y�����Է�����2-"y"�Ѿ�������3-��y��UPS�����Ѿ����,4-"y"�˹���,5-"y"�˵��Ѿ����
Dim YWDMX(15)		'#-#-#-ҵ����ϸ��0-�������ţ�1-¼����Ա����¼ʱ����Ա����2-¼��ʱ�䣨�ύʱ�Զ���ȡ��ǰʱ�侫ȷ���룩��
					'3-�ɽ����̣�4-�ͻ�Email��5-��ע˵��1��6-��ע˵��2,7-���۵���ַ1��8-���۵���ַ2��9-�ջ���FullName,10-�ջ���Street,11-�ջ���City��
					'12-�ջ���State/Province��13-�ջ���Zip/Post Code��14-�ջ���Country,15-�ջ���Phone Num

Dim DHRXX			'#1#1#-��������Ϣ
Dim DD
										
Dim DHDMX(199,11)	'@-@-@-��������ϸ��0-��ţ�1-��Ʒ���룬2-��Ʒ���ƣ�3-��λ��4-���۵���$��5-������6-���۽��$��7-������
					'8-�����9-��װ������10-˵��,11-����ǰ���
Dim DHDMX1(199,11)	'@-@-@-��������ϸ��0-��ţ�1-��Ʒ���룬2-��Ʒ���ƣ�3-��λ��4-���۵���$��5-������6-���۽��$��7-������
					'8-�����9-��װ������10-˵��,11-����ǰ���
Dim DHDMX_num

Dim SSKHKX(10,10)		'$1$1$-ʵ�տͻ����0-��ţ�1-����$��2-�˷�$��3-�տ�ϼ�$��4-�տʽ��5-�տ����ڣ�6-�տ��˻���7-���׺ţ�8-��ע,9-˰��$
Dim SSKHKX_num

Dim SSKHHKHJ		'ʵ�տͻ�����ϼ�
Dim SSKHYFHJ		'ʵ�տͻ��˷Ѻϼ�
Dim SSKHSFHJ		'ʵ�տͻ�˰�Ѻϼ�

Dim ZFGJYF(9,5)		'$3$3$-֧�������˷ѣ�0-��ţ�1-���������ƣ�2-�������3-�������ڣ�4-���ٺ�/�������ţ�5-��ע
Dim ZFGJYF_num
Dim ZFGJYFHJ		'֧�������˷Ѻϼ�
Dim feiqi
feiqi=0
Dim UPS_DZ(199,8)	'$6$6$-UPS�˷Ѷ�����Ϣ��
					'0-��ţ��Զ����ɣ�
					'1-���ٺţ�¼�룩
					'2-�˵����$��¼�룩
					'3-�걨����LB��¼�룩
					'4-UPS Invoice date
					'5-UPS Invoice number
					'6-ҵ����
					'7-���۵���
					'8-��ע��¼�룩
Dim UPS_DZ_num
Dim UPS_DZ_JEHJ		'UPS���˽��ϼ�
Dim UPS_DZ_ZLHJ		'UPS���������ϼ�

Dim PP(11)			'��Ʒ�����ļ�ǰ12���ֶ�
Dim QQ(30)			'��Ʒ�������ϵ�ǰ31���ֶ�
Dim MM(16)			'��Ʒ���

Dim moneytype       '�������
moneytype=0

Dim JHZL			'��������
Dim JHTJ			'�������
Dim JHBZSL			'������װ����
Dim XSJEMY			'���۽����Ԫ

Dim SKFS(20)			'�տʽ
Dim SKFS_JS
SKFS_JS=0
Temp=Server.MapPath("..\..\..\ASC365_CWZ\Web\WebAdmin\SKFS_Inf")
If fs.FileExists(Temp)=True then
	Set f=fs.OpenTextFile(Temp,1)
	do while f.AtEndOfStream = false
		YY=Trim(f.ReadLine)
		if len(YY)<>0 And left(YY,2)<>"//" then
			str=Split(YY,"|")
			SKFS(SKFS_JS)=str(1)
			SKFS_JS=SKFS_JS*1+1
		end if
	loop
	f.Close: Set f=Nothing
end if

Dim SKFSType(20)			'�տ��˺�
Dim SKFSType_JS
SKFSType_JS=0
Temp=Server.MapPath("..\..\..\ASC365_CWZ\Web\WebAdmin\SKZH_Inf")
If fs.FileExists(Temp)=True then
	Set f=fs.OpenTextFile(Temp,1)
	do while f.AtEndOfStream = false
		YY=Trim(f.ReadLine)
		if len(YY)<>0 And left(YY,2)<>"//" then
			str=Split(YY,"|")
			if instr(str(2),"DLD")>0 then
				SKFSType(SKFSType_JS)=str(1)
				SKFSType_JS=SKFSType_JS*1+1
			end if
		end if
	loop
	f.Close: Set f=Nothing
end if

Dim CJDP(30)		'�ɽ����̣������˵�ѡ�
Dim CJDP_JS
CJDP_JS=0
Temp=Server.MapPath("..\..\..\ASC365_CWZ\Web\WebAdmin\CJDP_Inf")
If fs.FileExists(Temp)=True then
	Set f=fs.OpenTextFile(Temp,1)
	do while f.AtEndOfStream = false
		YY=Trim(f.ReadLine)
		if len(YY)<>0 And left(YY,2)<>"//" then
			str=Split(YY,"|")
			CJDP(CJDP_JS)=str(1)
			CJDP_JS=CJDP_JS*1+1
		end if
	loop
	f.Close: Set f=Nothing
end if
'-----------------------------------------------------------------------
Dim SUBFOLDERNAME(100)		'��Ŀ¼�����ɴ�101��
Dim SUBFOLDERNUM			'��Ŀ¼������
Dim SUBMONTHNAME(12)		'����Ŀ¼�����ɴ�12��
Dim FILENAME(999)			'ÿ�ʷ�����һ���ļ���������1000��
Dim FILENAMENUM				'�������ļ�������
Dim YWYNAME					'ҵ��Ա����
Dim HWSQFC					'�������뷢��
DHRQ=DateAdd("h",2,now)		'��������
'-----------------------------------Disply Cataloag------------------------------------
Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("Server_Port") & Request.ServerVariables("URL") 
for i=0 to 100
	SUBFOLDERNAME(i)=null
next
Temp=Server.MapPath("..\..\Admin\CPDGGL_CA\")
set fo=fs.GetFolder(Temp)
SUBFOLDERNUM=0
for each x in fo.SubFolders
	if IsNumeric(x.name) and len(x.name)=4 then
		SUBFOLDERNAME(SUBFOLDERNUM)=x.Name
		SUBFOLDERNUM=SUBFOLDERNUM+1
	end if
next
set fo=nothing
for i=0 to SUBFOLDERNUM-1
	for j=i+1 to SUBFOLDERNUM-1
		if SUBFOLDERNAME(i)>SUBFOLDERNAME(j) then
			XX=SUBFOLDERNAME(i)
			SUBFOLDERNAME(i)=SUBFOLDERNAME(j)
			SUBFOLDERNAME(j)=XX
		end if
	next
next
for i=0 to SUBFOLDERNUM-1
	SUBFOLDERNAME(i)=SUBFOLDERNAME(i) & "�궩����"
next
%>
  <table border="0" width="1400" height="5" style="border-collapse: collapse">
    <%
II=0
for i= 0 to SUBFOLDERNUM-1 step 5
	response.write "<tr>"
	for jj= 1 to 5
		response.write "<td height='5' width='1200' bgcolor='#EEEEEE'><font size='3' >"
		response.write "<a href='"& Thispage & "?LL="& left(SUBFOLDERNAME(II),4)& "'>"
		response.write SUBFOLDERNAME(II) &"</a></td>" :II=II+1
	next         
	response.write"</tr>"
next
'--------------------------------------end------------------------------------
%>
</table>
  <br>
  <%
LLP=Request.Querystring("LL")
if len(LLP)<>0 then
	Temp=Server.MapPath("..\..\Admin\CPDGGL_CA\") & "\" & LLP & "\"
	set fo=fs.GetFolder(Temp)
	for each x in fo.SubFolders
		if IsNumeric(x.Name) and len(x.Name)=6 then
			K=right(x.Name,2)
			SUBMONTHNAME(K)=x.Name
		end if
	next
	set fo=nothing
end if
%>
  <table border="0" width="1400" height="5" style="border-collapse: collapse">
<%
II=6
for i= 1 to 12
	if II=6 then 
		response.write "<tr>"
		II=0
	end if
	if len(SUBMONTHNAME(i))<>0 then
		response.write "<td height='5' width='1200' bgcolor='#FFFFee'><font size='2' >"
		response.write"<a href='"& Thispage & "?LL="
		response.write LLP & "&LN="
		response.write  SUBMONTHNAME(i)& "'>"
		response.write left(SUBMONTHNAME(i),4) & "��" & Mid(SUBMONTHNAME(i),5,2) & "�¶�����" & "</a></td>"
		II=II+1
	end if
	if II=6 then 
		response.write "</tr>"
	end if
next
if II<>6 then 
	response.write "</tr>"
end if
response.write "<br>"
'-------------------------------------end-------------------------------------
%>
</table>
  <br>
  <br>
<%
LLN= Request.Querystring("LN")
if len(LLN)<>0 then
	Temp=Server.MapPath("..\..\Admin\CPDGGL_CA\") & "\" & LLP & "\" & LLN & "\"
	set fo=fs.GetFolder(Temp)
	for each x in fo.files
		Namee=x.Name
		if lcase(right(Namee,4))=".sss" and IsNumeric(left(Namee,10)) and mid(Namee,11,2)<>"dd" then
			K=Mid(Namee,7,4)
			FILENAME(K)=Namee
		end if
	next
	set fo=nothing
end if
%>
  <table border="0" width="1400" height="5" style="border-collapse: collapse">
    <%
II=5
for i= 0 to 999
	if II=5 then 
		response.write "<tr>"
		II=0
	end if
	if len(FILENAME(i))>0 then
		Temp=Server.MapPath("..\..\Admin\CPDGGL_CA\") & "\" & LLP & "\" & LLN & "\" & FILENAME(i)
		If fs.FileExists(Temp)=true then
			Set f=fs.OpenTextFile(Temp,1)
			do while f.AtEndOfStream = false
				YY=Trim(f.ReadLine)
				if len(YY)>0 and left(YY,5)="*-*-*" then			'�Ƿ���Է���
					str=Split(YY,"|")
					HWSQFC=str(1)	'�������뷢��
					JLTYFH=str(2)	'����ͬ�ⷢ��
					MGJZFH=str(3)	'�������ݷ���
					UPS_DZXX=str(4)	'UPS
					TH=str(5)		'�˻�
					JLHSLR=str(6)	'�����������
				elseif len(YY)>0 and left(YY,5)="#-#-#" then		'ҵ����ϸ
					str=Split(YY,"|")
					YWYNAME=str(2)
                elseif len(YY) > 0 and left(YY,6) = "******" then
                    feiqi = 1
                    str111 = split(YY,"|")
                    if ubound(str111) > 1 then
                        feiqiren = trim(str111(2))
                    else
                        feiqiren = "������"
                    end if
				end if
			loop
			f.Close: Set f=Nothing
		end if
		if Lcase(HWSQFC)="y" and Lcase(JLTYFH)="y" then
            if lcase(MGJZFH) <> "y" then
                if feiqi*1 = 1 then
			      response.write "<td height='5' width='1200'bgcolor='#EEEEEE'><font size='3' >"
					response.write"<a href='01_20DeliveryYTdetail.asp?LL="
					response.write LLP & "&LN=" & LLN & "&LM=" & FILENAME(i) & "' target='_blank' >"
					response.write "��"& i &"��"&YWYNAME&"(�� "& feiqiren &" ����)"&"</a></td>"
					II=II+1 
                else 'δ��
					response.write "<td height='5' width='1200'bgcolor='#EEEEEE'><font size='3' >"
					response.write"<a href='01_20DeliveryYTdetail.asp?LL="
					response.write LLP & "&LN=" & LLN & "&LM=" & FILENAME(i) & "' target='_blank'>"
					response.write "<font color='#FF0000'>��"& i &"��"&YWYNAME&"(δ�� δ����)</font>"&"</a></td>"
					II=II+1 
                end if
            end if
            feiqi = 0
            feiqiren = ""
        end if
	end if
	if II=5 then 
		response.write "</tr>"
	end if
next
if II<>5 then 
	response.write "</tr>"
end if
'--------------------------------------end------------------------------------
%>
</table>
  <br>
<%Set fs=Nothing%>
</body>
	</html>