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>
    .userData {behavior:url(#default#userdata);}
.userData1 {behavior:url(#default#userdata);}
.userData11 {behavior:url(#default#userdata);}
.STYLE2 {
	font-size: 12px;
	color: #FF0000;
}
.STYLE3 {color: #FF0000}
.STYLE5 {color: #0000FF}
</style>
</head>
<body onLoad="Init()">
<%
loginnumber=session("Webpassed")
if loginnumber<>"%asc365com%" then
response.End()
end if 
%>
    <div align="center">
<%
if session("asc365allpassword")<>"8879365" then response.end
'if session("username")="" then response.end
Nowdate=year(DateAdd("h",2,now()))&"-"&month(DateAdd("h",2,now()))&"-"&day(DateAdd("h",2,now()))
set fs=Server.CreateObject("Scripting.FileSystemObject")
YWY_Name2=Session("username")
if len(YWY_Name2)=0 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_Name2=Str(0)
					exit do
				end if
			end if
		loop
		f.Close: Set f=Nothing
	end if
	Session("username")=YWY_Name2
	'response.write YWY_Name2
end if
'------------------------------------------------
YWY_Name2=Session("username")
if len(YWY_Name2)=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> 001 --- <%=YWY_Name2%>&nbsp;&nbsp;&nbsp;�޸ġ�ȷ�����ֱ��� </B></font>
<br>
<br>
<%
'-----------------------------------------------------------------------
Dim stateinfo(100,3)
s_i=0
Temp=server.MapPath("../../../ASC365_CANADA/Admin/State.txt")
set f=fs.openTextFile(Temp,1)
do while f.AtEndOfStream=false
   str=f.ReadLine
   if len(str)>0 then
       str11=split(str,"|")
	   stateinfo(s_i,0)=str11(0)
	   stateinfo(s_i,1)=str11(1)
	   stateinfo(s_i,2)=str11(2)
	   s_i=s_i+1
   end if
loop
Dim username(9999)
set f44=fs.Opentextfile(server.MapPath("userinfo"),1)
dds=0
do while f44.AtEndOfStream = false
www=f44.readline
if len(www)>0 then
tempdata1=split(www,"|")
username(dds)=lcase(tempdata1(1))
dds=dds+1
end if
loop
f44.close
set f44=nothing
Dim Country_Region(300)
Dim Zuhe(50,2)
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(16)		'#-#-#-ҵ����ϸ��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 stateid(5)
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
'SKFS(0)="Cash"
'SKFS(1)="Credit Card"
'SKFS(2)="Check"
'SKFS(3)="Debit"
'SKFS(4)="Email Tra"
'SKFS(5)="Paypal"
'SKFS(6)="wire transfer"
'SKFS(7)="money order"
'SKFS(8)="Others"
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(9999)			'ÿ�ʷ�����һ���ļ���������1000��
Dim FILENAMENUM				'�������ļ�������
Dim YWYNAME					'ҵ��Ա����
Dim HWSQFC					'�������뷢��
Dim vandingdan
vandingdan=0
DHRQ= DateValue(Nowdate)			'��������
'-----------------------------------Disply Cataloag------------------------------------
Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & 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="1200" height="5" style="border-collapse: collapse">
    <%
II=0
'--------------------------------------end------------------------------------
%>
</table>
  <%
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="1200" height="5" style="border-collapse: collapse">
<%
II=6
for i= 1 to 12
next
if II<>6 then 
end if
'-------------------------------------end-------------------------------------
%>
</table>
  <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)) then
			K=Mid(Namee,7,4)
			FILENAME(K)=Namee
		end if
	next
	set fo=nothing
end if
%>
  <table border="0" width="1200" height="5" style="border-collapse: collapse">
    <%
II=5
for i= 0 to 9999
	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)
				end if
				if YWY_Name2=YWYNAME or YWY_Name2="����" then
				      if len(YY)>0 and left(YY,6)="******" then
				      str111=split(YY,"|")
				      feiqi=1
					  end if
				end if
			loop
			f.Close: Set f=Nothing
		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>
  <%'--------------------------------Read product-------------------------------
LLPP=Request.Querystring("LM")
if len(LLPP)<>0 then
	'==============================================================================
	DHDMX_num=0
	SSKHKX_num=0
	ZFGJYF_num=0
	UPS_DZ_num=0
	
	JHZL=0			'��������
	JHTJ=0			'�������
	JHBZSL=0		'������װ����
	XSJEMY=0		'���۽����Ԫ
	SSKHHKHJ=0		'ʵ�տͻ�����ϼ�
	SSKHYFHJ=0		'ʵ�տͻ��˷Ѻϼ�
	SSKHSFHJ=0		'ʵ�տͻ�˰�Ѻϼ�
	ZFGJYFHJ=0

UPS_DZ_JEHJ=0		'UPS���˽��ϼ�
	UPS_DZ_ZLHJ=0		'UPS���������ϼ�
	
	DHRXX=""
	'------------------------------------------------
	Temp=Server.MapPath("..\..\Admin\CPDGGL_CA\") & "\" & LLP & "\" & LLN & "\" & LLPP
	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
				if left(YY,5)="*-*-*" then			'�Ƿ���Է���
					str=Split(YY,"|")
					for i=0 to 5
						SFKYFH(i)=str(i+1)
					next
				elseif left(YY,5)="#-#-#" then			'ҵ����ϸ
					str=Split(YY,"|")
					for i=0 to 15
						YWDMX(i)=str(i+1)
					next
				elseif len(YY)>0 and left(YY,5)="!-!-!" then
				    vandingdan=1
				elseif left(YY,5)="#1#1#" and len(YY)>5 then			'#1#1#-��������Ϣ
					DHRXX=DHRXX & right(YY,len(YY)-5) & chr(13) & chr(10)
				elseif left(YY,5)="@-@-@" then		'��������ϸ
					str=Split(YY,"|")
					for i=0 to 11
						DHDMX(DHDMX_num,i)=str(i+1)
					next
					XSJEMY=Round((XSJEMY*1+DHDMX(DHDMX_num,6)*1),2)			'���۽����Ԫ
					JHZL=Round((JHZL*1+DHDMX(DHDMX_num,7)*1),2)				'��������
					JHTJ=Round((JHTJ*1+DHDMX(DHDMX_num,8)*1),2)				'�������
					JHBZSL=Round((JHBZSL*1+DHDMX(DHDMX_num,9)*1),2)			'������װ����
					DHDMX_num=DHDMX_num+1
				elseif left(YY,5)="$1$1$" then		'ʵ�տͻ�����
					str=Split(YY,"|")
					for i=0 to 10
						SSKHKX(SSKHKX_num,i)=str(i+1)
					next
					if IsNumeric(SSKHKX(SSKHKX_num,9))=False then SSKHKX(SSKHKX_num,9)=0
					if SSKHKX(SSKHKX_num,10)="��Ԫ" then
					SSKHHKHJ=Round((SSKHHKHJ*1+SSKHKX(SSKHKX_num,1)/1.0972),2)	'ʵ�տͻ�����ϼ�
					SSKHYFHJ=Round((SSKHYFHJ*1+SSKHKX(SSKHKX_num,2)/1.0972),2)	'ʵ�տͻ��˷Ѻϼ�
					SSKHSFHJ=Round((SSKHSFHJ*1+SSKHKX(SSKHKX_num,9)/1.0972),2)	'ʵ�տͻ�˰�Ѻϼ�
					SSKHKX_num=SSKHKX_num+1
					else
					SSKHHKHJ=Round((SSKHHKHJ*1+SSKHKX(SSKHKX_num,1)),2)	'ʵ�տͻ�����ϼ�
					SSKHYFHJ=Round((SSKHYFHJ*1+SSKHKX(SSKHKX_num,2)),2)	'ʵ�տͻ��˷Ѻϼ�
					SSKHSFHJ=Round((SSKHSFHJ*1+SSKHKX(SSKHKX_num,9)),2)	'ʵ�տͻ�˰�Ѻϼ�
					SSKHKX_num=SSKHKX_num+1
					end if
				elseif left(YY,5)="$3$3$" then		'֧�������˷�
					str=Split(YY,"|")
					for i=0 to 5
						ZFGJYF(ZFGJYF_num,i)=str(i+1)
					next
					ZFGJYFHJ=Round((ZFGJYFHJ*1+ZFGJYF(ZFGJYF_num,2)*1),2)		'֧�������˷Ѻϼ�
					ZFGJYF_num=ZFGJYF_num+1
				elseif left(YY,5)="$6$6$" then		'UPS�˷Ѷ�����Ϣ
					str=Split(YY,"|")
					for i=0 to 8
						UPS_DZ(UPS_DZ_num,i)=str(i+1)
					next
					UPS_DZ_JEHJ=Round((UPS_DZ_JEHJ*1+UPS_DZ(UPS_DZ_num,2)*1),2)	'UPS���ϼ�
					UPS_DZ_ZLHJ=Round((UPS_DZ_ZLHJ*1+UPS_DZ(UPS_DZ_num,3)*1),2)	'UPS�����ϼ�
					UPS_DZ_num=UPS_DZ_num+1
				end if
			end if
		loop
		f.Close: Set f=Nothing
	end if
	for i=0 to 11
		DHDMX(DHDMX_num,i)=""
	next
	for i=0 to 10
		SSKHKX(SSKHKX_num,i)=""
	next
	for i=0 to 8
		UPS_DZ(UPS_DZ_num,i)=""
	next
	'==========================���ϵ���============================================
	if request.Form("out")="Submit" then
	   FFLAG=request.form("MFLAG")
	   response.write(FFLAG)
		if FFLAG>0 then		'���涩���������¸�ʽ��׼�����Ŷ���������д
			Temp=Server.MapPath("..\..\Admin\CPDGGL_CA\") & "\" & LLP & "\" & LLN & "\" & LLPP
			Set f=fs.OpenTextFile(Temp,8,0)
			reason=request.Form("reason")
			sst="******|"+reason
			f.WriteLine sst
			f.close
		end if
	end if
	'==========================Change contant======================================

'----------------------------------------------
	if request.form("B1")="Submit" then
	   Temp11=Server.MapPath("..\..\Admin\CPDGGL_CA\") & "\" & LLP & "\" & LLN & "\" & LLPP
		if fs.FileExists(Temp11)=true then
		  set ff=fs.OpenTextFile(Temp11,1)
		  do while ff.AtEndOfStream=false
		     str=ff.ReadLine
			 if left(str,5)="*-*-*" then
			     str11=split(str,"|")
				 stateid(2)=str11(2)
			 end if
		  loop
		end if
		if StateID(2)<>"Y" then
		JHZL=0			'��������
		JHTJ=0			'�������
		JHBZSL=0		'������װ����
		XSJEMY=0		'���۽����Ԫ
		SSKHHKHJ=0		'ʵ�տͻ�����ϼ�
		SSKHYFHJ=0		'ʵ�տͻ��˷Ѻϼ�
		PDNUMBER=0
		'---------------------------��������Ϣ--------------------------
		DD=request.form("S69")
		DD="#1#1#" & DD
		DD=replace(DD,chr(13)&chr(10),chr(13)&chr(10) & "#1#1#")
		'-------------------------ҵ����ϸ----------------------------
		i=0
		YWDMX(i)=trim(request.form("T1T"&I))		'���۵���
		i=1
		YWDMX(i)=trim(request.form("T1T"&I))		'¼����Ա
		i=2
		YWDMX(i)=Nowdate
		'------------------------------------------------
		for i=3 to 16
			YWDMX(i)=trim(request.form("T1T"&I))
		next
		if YWDMX(8)="on" then
		    YWDMX(8)="��"
		end if
		if len(YWDMX(12))=0 then
		   YWDMX(12)=YWDMX(16)
		end if
		'-------------------------��������ϸ----------------------------
		for i=0 to 199
		DHDMX(i,1)=""
		next
		for i=0 to 199		'DHDMX_num
			j=1
			IJ=i*100+j
			Tempdata12=trim(request.form("T2T"&IJ))
		  if IsNumeric(Tempdata12) and len(Tempdata12)=6 then
			set f122=fs.opentextfile(server.MapPath("zuhe"),1)
			do while f122.AtEndOfStream = false
			 YY=Trim(f122.ReadLine)
			 if len(YY)>0 then
			 tempdata11=split(YY,"|")
			 if Tempdata12=tempdata11(0) then
			 for ss=1 to ubound(tempdata11)-1
			 tempdata=split(tempdata11(ss),"-")
			 zuhe(ss-1,0)=tempdata(0)
			 zuhe(ss-1,1)=tempdata(1)
			 next
			 end if
			 end if
			loop
			f122.close
			set f122=nothing
			if len(zuhe(0,0))=0 then
			zuhe(0,0)=Tempdata12
			j=5
			IJ=i*100+j
			Tempdata13=trim(request.form("T2T"&IJ))
			zuhe(0,1)=Tempdata13
			end if
		  elseif IsNumeric(Tempdata12) and len(Tempdata12)=12 then
		    set f122=fs.opentextfile(server.MapPath("ebayitem"),1)
			do while f122.AtEndOfStream = false
			 YY=Trim(f122.ReadLine)
			 if len(YY)>0 then
			 tempdata11=split(YY,"|")
			 if Tempdata12=trim(tempdata11(0)) then
			 for ss=1 to ubound(tempdata11)-1
			 tempdata=split(tempdata11(ss),"-")
			 zuhe(ss-1,0)=trim(tempdata(0))
			 zuhe(ss-1,1)=trim(tempdata(1))
			 next
			 end if
			 end if
			loop
			f122.close
			set f122=nothing
			if len(zuhe(0,0))=0 then
			zuhe(0,0)=Tempdata12
			j=5
			IJ=i*100+j
			Tempdata13=trim(request.form("T2T"&IJ))
			zuhe(0,1)=Tempdata13
			end if
		  end if
			for dds=0 to 49
			if IsNumeric(zuhe(dds,0)) and len(zuhe(dds,0))=6 then
				CPFL=left(zuhe(dds,0),3)
				CPBM=right(zuhe(dds,0),3)
				'-----------------------------���ݱ�����Ҳ�Ʒ���������ļ��Ͷ����ļ�
				for j =0 to 30
					QQ(j)=""
				next
				XX=Server.MapPath("../../../ASC365_canada/Admin/" & CPFL & "/" & CPBM & "/Tech.inc")
				If (fs.FileExists(XX))=true then
					Set f=fs.OpenTextFile(XX, 1)
					for j =0 to 30
						QQ(j)=trim(f.ReadLine)
					next
					f.Close
					Set f=Nothing
				end if                    
				for j =0 to 11
					PP(j)=""
				next
				XX=Server.MapPath("../../../ASC365_canada/Admin/" & CPFL & "/" & CPBM & "/GGPrice.inc")
				If (fs.FileExists(XX))=true then
					Set f=fs.OpenTextFile(XX, 1)
					for j =0 to 11
						PP(j)=trim(f.ReadLine)
					next
					f.Close
					Set f=Nothing
				end if
				DHDMX(PDNUMBER,0)=PDNUMBER+1
				DHDMX(PDNUMBER,1)=zuhe(dds,0)
				'-------------------------��Ʒ����
				DHDMX(PDNUMBER,2)=QQ(2)&"{"&QQ(1)&"}"
				'-------------------------��Ʒ��λ
				DHDMX(PDNUMBER,3)=QQ(4)
				'-------------------------���-��Ԫ
				j=4
				IJ=i*100+j
				tempdata13=trim(request.form("T2T"&IJ))
				if IsNumeric(PP(6)) then
					if PP(6)<=0 then PP(6)=0
				else
					PP(6)=0
				end if
				if IsNumeric(tempdata13) then
					if DHDMX(i,j)<=0 then DHDMX(PDNUMBER,j)=PP(6)
				else
					DHDMX(PDNUMBER,j)=PP(6)
				end if
				'-------------------------��������
				j=5
				IJ=i*100+j
				DHDMX(PDNUMBER,j)=zuhe(dds,1)
				if IsNumeric(DHDMX(PDNUMBER,j)) then
					
				else
					DHDMX(PDNUMBER,j)=1
				end if
				'-------------------------��۽��-��Ԫ
				DHDMX(PDNUMBER,6)=Round(DHDMX(PDNUMBER,4)*DHDMX(PDNUMBER,5),2)
				XSJEMY=Round((XSJEMY*1+DHDMX(PDNUMBER,6)*1),2)
				'-------------------------��������
				j=7
				'IJ=i*100+j
				'DHDMX(i,j)=trim(request.form("T2T"&IJ))
				if IsNumeric(QQ(9)) then
					if QQ(9)<=0 then QQ(9)=0
				else
					QQ(9)=0
				end if
				'if IsNumeric(DHDMX(i,j)) then
				'	if DHDMX(i,j)<=0 then DHDMX(i,j)=Round(QQ(9)*DHDMX(i,5),2)
				'else
					DHDMX(PDNUMBER,j)=Round(QQ(9)*DHDMX(PDNUMBER,5),2)
				'end if
				JHZL=Round((JHZL*1+DHDMX(PDNUMBER,j)*1),2)				'��������
				'-------------------------�������
				j=8
				DHDMX(PDNUMBER,j)=0
				Temp=server.MapPath("../../../ASC365_CANADA/Admin/ZT_CANADA.ss")
				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)=zuhe(dds,0) then
					       DHDMX(PDNUMBER,j)=str11(1)
					   end if
					end if
				loop
				f.close
				set f=nothing
				'if IsNumeric(DHDMX(i,j)) then
				'	if DHDMX(i,j)<=0 then DHDMX(i,j)=Round(QQ(14)*DHDMX(i,5),2)
				'else
				'DHDMX(PDNUMBER,j)=Round(QQ(14)*DHDMX(PDNUMBER,5),2)
				'end if
				'JHTJ=Round((JHTJ*1+DHDMX(PDNUMBER,j)*1),2)				'�������
				'-------------------------�����װ����
				j=9
				IJ=i*100+j
				tempdata4=trim(request.form("T2T"&IJ))
				if IsNumeric(tempdata4) then
					if tempdata4<=0 then DHDMX(PDNUMBER,j)=0
				else
					DHDMX(PDNUMBER,j)=0
				end if
				JHBZSL=Round((JHBZSL*1+DHDMX(PDNUMBER,j)*1),2)			'������װ����
				'-------------------------˵��
				j=10
				IJ=i*100+j
				DHDMX(PDNUMBER,j)=trim(request.form("T2T"&IJ))
				'------------------------------------------------------ '�ܿ��
				Store= Server.MapPath("../../Admin/" & CPFL & "/" & CPBM & "/Store.inc")    '��ȡ�ֿ���Ϣ
				if (fs.FileExists(Store))=true then
					Set f1=fs.OpenTextFile(Store, 1)
					for jj= 0 to 16
						MM(jj)=trim(f1.ReadLine)
					next       
					f1.Close: Set f1=Nothing
				else
					MM(3)=0
				end if
				if isnumeric(MM(3))=False then
					MM(3)=0
				end if
				if isnumeric(MM(10))=False then
					MM(10)=0
				end if
				if isnumeric(MM(2))=False then
					MM(2)=0
				end if
				j=11
				DHDMX(PDNUMBER,j)=MM(10)*1
				'------------------------------------------------------
				PDNUMBER=PDNUMBER+1
			end if
			next
			for sdd=0 to 49
			zuhe(sdd,0)=""
			zuhe(sdd,1)=""
			next
		next
		'-----------------------ʵ�տͻ�����------------------------------
		for i=0 to 10		'SSKHKX_num
			'-------------------------���
			'j=0
			'SSKHKX(i,j)=i+1
			'-------------------------�ջ���$
			j=1
			IJ=i*100+j
			SSKHKX(i,j)=trim(request.form("T3T"&IJ))
			if IsNumeric(SSKHKX(i,j))=False then
'					if SSKHKX(i,j)<=0 then SSKHKX(i,j)=0
'				else
				SSKHKX(i,j)=0
			end if
			SSKHHKHJ=Round((SSKHHKHJ*1+SSKHKX(i,j)*1),2)	'ʵ�տͻ�����ϼ�
			'-------------------------���˷�$
			j=2
			IJ=i*100+j
			SSKHKX(i,j)=trim(request.form("T3T"&IJ))
			if IsNumeric(SSKHKX(i,j))=False then
'					if SSKHKX(i,j)<=0 then SSKHKX(i,j)=0
'				else
				SSKHKX(i,j)=0
			end if
			SSKHYFHJ=Round((SSKHYFHJ*1+SSKHKX(i,j)*1),2)	'ʵ�տͻ��˷Ѻϼ�
			'-------------------------��˰��$
			j=9
			IJ=i*100+j
			SSKHKX(i,j)=trim(request.form("T3T"&IJ))
			if IsNumeric(SSKHKX(i,j))=False then
'				if SSKHKX(i,j)<=0 then SSKHKX(i,j)=0
'			else
				SSKHKX(i,j)=0
			end if
			SSKHSFHJ=Round((SSKHSFHJ*1+SSKHKX(i,j)*1),2)	'ʵ�տͻ�˰�Ѻϼ�
			'-------------------------�տ�ϼ�$
			j=3
			SSKHKX(i,j)=Round((SSKHKX(i,j-2)*1+SSKHKX(i,j-1)*1+SSKHKX(i,9)*1),2)
			'-------------------------�տʽ
			j=4
			IJ=i*100+j
			SSKHKX(i,j)=trim(request.form("T3T"&IJ))
			'-------------------------�տ�����
			j=5
			IJ=i*100+j
			SSKHKX(i,j)=trim(request.form("T3T"&IJ))
			if len(SSKHKX(i,j))<1 then SSKHKX(i,j)=DHRQ
			'-------------------------�տ��˻�
			j=6
			IJ=i*100+j
			SSKHKX(i,j)=trim(request.form("T3T"&IJ))
			'-------------------------�տ�׺�
			j=7
			IJ=i*100+j
			SSKHKX(i,j)=trim(request.form("T3T"&IJ))
			'-------------------------��ע
			j=8
			IJ=i*100+j
			SSKHKX(i,j)=trim(request.form("T3T"&IJ))
			'-------------------------��������
			j=10
			IJ=i*100+j
			SSKHKX(i,j)=trim(request.form("T3T"&IJ))
		next
		
		kkk=0
		for i=0 to 199		'DHDMX_num
		   if Isnumeric(DHDMX(i,1)) and len(DHDMX(i,1))=6 then
		      if  DHDMX(i,11)=0 or DHDMX(i,11)*1<DHDMX(i,5)*1 then
			     kkk=1
			  end if
		   end if
		next
		
		'======================���涩����=============================
		FFLAG=request.form("TFLAG")
		if FFLAG>0 and kkk=0 then		'���涩���������¸�ʽ��׼�����Ŷ���������д
			Temp=Server.MapPath("..\..\Admin\CPDGGL_CA\") & "\" & LLP & "\" & LLN & "\" & LLPP
			Set f=fs.CreateTextFile(Temp,true)
			'-------------------------�Ƿ���Է���----------------------------
			if len(YWDMX(4))>0 then
			WW="*-*-*|Y|Y|||||"
			f.WriteLine (WW)
			end if
			'-------------------------ҵ����ϸ----------------------------
			if vandingdan=1 then
			ww="!-!-!"
			f.writeline(ww)
			end if
			
			WW="#-#-#|"
			for i=0 to 15
				WW=WW & YWDMX(i) & "|"
			next
			f.WriteLine (WW)
			f.write(DD)
			f.WriteLine("")
			'--------------------------��������
			if YWDMX(8)="��" then
			    Temp11=server.MapPath("../../Admin/Dangdi/"&left(LLPP,6)&".txt")
				set ff=fs.OpenTextFile(Temp11,8,true)
				ff.Writeline(LLPP)
				set ff=nothing
				
			end if
			'--------------------------��������ͻ���Ϣ
			tempalldata=""
				tempaa=0
				set f121=fs.OpenTextFile(server.MapPath("userinfo"),1)
				   do while f121.AtEndOfStream = false
			         YY=Trim(f121.ReadLine)
			         if len(YY)<>0 then
					 tempdata=split(YY,"|")
					 if tempdata(7)=request.Form("T1T15") THEN
					 YY=request.Form("T1T4") &"|"& request.Form("T1T9") &"|"& request.Form("T1T10") &"|"& request.Form("T1T11") &"|"& request.Form("T1T12") &"|"& request.Form("T1T13") &"|"& request.Form("T1T14") &"|"&request.Form("T1T15")
					 tempaa=1
					 end if
					  if tempdata(0)=request.Form("T1T4") THEN
					  YY=request.Form("T1T4") &"|"& request.Form("T1T9") &"|"& request.Form("T1T10") &"|"& request.Form("T1T11") &"|"& request.Form("T1T12") &"|"& request.Form("T1T13") &"|"& request.Form("T1T14") &"|"&request.Form("T1T15")
					 tempaa=1
					 end if
					 tempalldata=tempalldata &YY&chr(13)&chr(10) 
				    END IF
				LOOP
				if tempaa=0 then
				tempalldata=tempalldata&chr(13)&chr(10) & request.Form("T1T4") &"|"& request.Form("T1T9") &"|"& request.Form("T1T10") &"|"& request.Form("T1T11") &"|"& request.Form("T1T12") &"|"& request.Form("T1T13") &"|"& request.Form("T1T14") &"|"&request.Form("T1T15")
				end if
				tempaa=0
				f121.close
				set f121=nothing 
				set f22=fs.CreateTextFile(Server.MapPath("userinfo"),true)
				f22.write(tempalldata)
				f22.Close:Set f22=Nothing
			'---------------------------------------------------------------
'			XXXX=Server.MapPath("..\..\Admin\CPDGGL_YT") & "\" & LLP & "\" & LLN &"\" & left(LLPP,10)
'			'response.write XXXX
'			If fs.FolderExists(XXXX) <> true Then 
'				set fm1=fs.CreateFolder(XXXX)
'				set fm1=nothing
'				fs.CopyFile Server.MapPath("..\..\Admin\CPDGGL_YT\uploadTester.asp"),XXXX &"/"
'				fs.CopyFile Server.MapPath("..\..\Admin\CPDGGL_YT\freeASPUpload.asp"),XXXX &"/"
'			end if
			'-------------------------��������ϸ----------------------------
			IJK=1
			for i=0 to 199		'DHDMX_num
				if IsNumeric(DHDMX(i,1)) and len(DHDMX(i,1))=6 then
					WW="@-@-@|" & IJK & "|"
					for j=1 to 11
						WW=WW & DHDMX(i,j) & "|"
					next
					f.WriteLine (WW)
					IJK=IJK+1
				end if
			next
			'-----------------------ʵ�տͻ�����------------------------------
			IJK=1
			for i=0 to 10		'SSKHKX_num
				if IsNumeric(SSKHKX(i,1)) and IsNumeric(SSKHKX(i,2)) and IsNumeric(SSKHKX(i,9)) and len(SSKHKX(i,4))>0 and  len(SSKHKX(i,6))>0 then
					if SSKHKX(i,1)<>0 or SSKHKX(i,2)<>0 or SSKHKX(i,9)<>0 then
						WW="$1$1$|" & IJK & "|"
						for j=1 to 10
							WW=WW & SSKHKX(i,j) & "|"
						next
						f.WriteLine (WW)
						IJK=IJK+1
					end if
				end if
			next
			'----------------------------------------------------------------
		else
			Temp=Server.MapPath("..\..\Admin\CPDGGL_CA\") & "\" & LLP & "\" & LLN & "\" & LLPP
			Set f=fs.CreateTextFile(Temp,true)
			'-------------------------�Ƿ���Է���----------------------------
			WW="*-*-*|||||||"
			f.WriteLine (WW)
			
			'-------------------------�Ƿ��¸绪����--------------------------
			if vandingdan=1 then
			ww="!-!-!"
			f.writeline(ww)
			end if
			'-------------------------ҵ����ϸ----------------------------
			WW="#-#-#|"
			for i=0 to 15
				WW=WW & YWDMX(i) & "|"
			next
			f.WriteLine (WW)
			f.write(DD)
			f.WriteLine("")
			'-------------------------��������ϸ----------------------------
			IJK=1
			for i=0 to 199		'DHDMX_num
				if IsNumeric(DHDMX(i,1)) and len(DHDMX(i,1))=6 then
					WW="@-@-@|" & IJK & "|"
					for j=1 to 11
						WW=WW & DHDMX(i,j) & "|"
					next
					f.WriteLine (WW)
					IJK=IJK+1
				end if
			next
			'--------------------------��������ͻ���Ϣ
			tempalldata=""
				tempaa=0
				set f121=fs.OpenTextFile(server.MapPath("userinfo"),1)
				   do while f121.AtEndOfStream = false
			         YY=Trim(f121.ReadLine)
			         if len(YY)<>0 then
					 tempdata=split(YY,"|")
					 if tempdata(7)=request.Form("T1T15") THEN
					 YY=request.Form("T1T4") &"|"& request.Form("T1T9") &"|"& request.Form("T1T10") &"|"& request.Form("T1T11") &"|"& request.Form("T1T12") &"|"& request.Form("T1T13") &"|"& request.Form("T1T14") &"|"&request.Form("T1T15")
					 tempaa=1
					 end if
					  if tempdata(0)=request.Form("T1T4") THEN
					  YY=request.Form("T1T4") &"|"& request.Form("T1T9") &"|"& request.Form("T1T10") &"|"& request.Form("T1T11") &"|"& request.Form("T1T12") &"|"& request.Form("T1T13") &"|"& request.Form("T1T14") &"|"&request.Form("T1T15")
					 tempaa=1
					 end if
					 tempalldata=tempalldata &YY&chr(13)&chr(10) 
				    END IF
				LOOP
				if tempaa=0 then
				tempalldata=tempalldata&chr(13)&chr(10) & request.Form("T1T4") &"|"& request.Form("T1T9") &"|"& request.Form("T1T10") &"|"& request.Form("T1T11") &"|"& request.Form("T1T12") &"|"& request.Form("T1T13") &"|"& request.Form("T1T14") &"|"&request.Form("T1T15")
				end if
				tempaa=0
				f121.close
				set f121=nothing 
				set f22=fs.CreateTextFile(Server.MapPath("userinfo"),true)
				f22.write(tempalldata)
				f22.Close:Set f22=Nothing
			'-----------------------ʵ�տͻ�����------------------------------
			IJK=1
			for i=0 to 10		'SSKHKX_num
				if IsNumeric(SSKHKX(i,1)) and IsNumeric(SSKHKX(i,2)) and IsNumeric(SSKHKX(i,9)) and len(SSKHKX(i,4))>0 and  len(SSKHKX(i,6))>0 then
					if SSKHKX(i,1)<>0 or SSKHKX(i,2)<>0 or SSKHKX(i,9)<>0 then
						WW="$1$1$|" & IJK & "|"
						for j=1 to 10
							WW=WW & SSKHKX(i,j) & "|"
						next
						f.WriteLine (WW)
						IJK=IJK+1
					end if
				end if
			next
		end if
	   end if
	end if
	'==============================================================================
	DHDMX_num=0
	SSKHKX_num=0
	ZFGJYF_num=0
	UPS_DZ_num=0
	
	JHZL=0			'��������
	JHTJ=0			'�������
	JHBZSL=0		'������װ����
	XSJEMY=0		'���۽����Ԫ
	SSKHHKHJ=0		'ʵ�տͻ�����ϼ�
	SSKHYFHJ=0		'ʵ�տͻ��˷Ѻϼ�
	SSKHSFHJ=0		'ʵ�տͻ�˰�Ѻϼ�
	ZFGJYFHJ=0

UPS_DZ_JEHJ=0		'UPS���˽��ϼ�
	UPS_DZ_ZLHJ=0		'UPS���������ϼ�
	
	DHRXX=""
	'------------------------------------------------
	Temp=Server.MapPath("..\..\Admin\CPDGGL_CA\") & "\" & LLP & "\" & LLN & "\" & LLPP
	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
				if left(YY,5)="*-*-*" then			'�Ƿ���Է���
					str=Split(YY,"|")
					for i=0 to 5
						SFKYFH(i)=str(i+1)
					next
				elseif left(YY,5)="#-#-#" then			'ҵ����ϸ
					str=Split(YY,"|")
					for i=0 to 15
						YWDMX(i)=str(i+1)
					next
				elseif left(YY,5)="#1#1#" and len(YY)>5 then			'#1#1#-��������Ϣ
					DHRXX=DHRXX & right(YY,len(YY)-5) & chr(13) & chr(10)
				elseif left(YY,5)="@-@-@" then		'��������ϸ
					str=Split(YY,"|")
					for i=0 to 11
						DHDMX(DHDMX_num,i)=str(i+1)
					next
					XSJEMY=Round((XSJEMY*1+DHDMX(DHDMX_num,6)*1),2)			'���۽����Ԫ
					JHZL=Round((JHZL*1+DHDMX(DHDMX_num,7)*1),2)				'��������
					JHTJ=Round((JHTJ*1+DHDMX(DHDMX_num,8)*1),2)				'�������
					JHBZSL=Round((JHBZSL*1+DHDMX(DHDMX_num,9)*1),2)			'������װ����
					DHDMX_num=DHDMX_num+1
				elseif left(YY,5)="$1$1$" then		'ʵ�տͻ�����
					str=Split(YY,"|")
					for i=0 to 9
						SSKHKX(SSKHKX_num,i)=str(i+1)
					next
					if IsNumeric(SSKHKX(SSKHKX_num,9))=False then SSKHKX(SSKHKX_num,9)=0
					if SSKHKX(SSKHKX_num,10)="��Ԫ" then
					SSKHHKHJ=Round((SSKHHKHJ*1+SSKHKX(SSKHKX_num,1)/1.0972),2)	'ʵ�տͻ�����ϼ�
					SSKHYFHJ=Round((SSKHYFHJ*1+SSKHKX(SSKHKX_num,2)/1.0972),2)	'ʵ�տͻ��˷Ѻϼ�
					SSKHSFHJ=Round((SSKHSFHJ*1+SSKHKX(SSKHKX_num,9)/1.0972),2)	'ʵ�տͻ�˰�Ѻϼ�
					SSKHKX_num=SSKHKX_num+1
					else
					SSKHHKHJ=Round((SSKHHKHJ*1+SSKHKX(SSKHKX_num,1)),2)	'ʵ�տͻ�����ϼ�
					SSKHYFHJ=Round((SSKHYFHJ*1+SSKHKX(SSKHKX_num,2)),2)	'ʵ�տͻ��˷Ѻϼ�
					SSKHSFHJ=Round((SSKHSFHJ*1+SSKHKX(SSKHKX_num,9)),2)	'ʵ�տͻ�˰�Ѻϼ�
					SSKHKX_num=SSKHKX_num+1
					end if
				elseif left(YY,5)="$3$3$" then		'֧�������˷�
					str=Split(YY,"|")
					for i=0 to 5
						ZFGJYF(ZFGJYF_num,i)=str(i+1)
					next
					ZFGJYFHJ=Round((ZFGJYFHJ*1+ZFGJYF(ZFGJYF_num,2)*1),2)		'֧�������˷Ѻϼ�
					ZFGJYF_num=ZFGJYF_num+1
				elseif left(YY,5)="$6$6$" then		'UPS�˷Ѷ�����Ϣ
					str=Split(YY,"|")
					for i=0 to 8
						UPS_DZ(UPS_DZ_num,i)=str(i+1)
					next
					UPS_DZ_JEHJ=Round((UPS_DZ_JEHJ*1+UPS_DZ(UPS_DZ_num,2)*1),2)	'UPS���ϼ�
					UPS_DZ_ZLHJ=Round((UPS_DZ_ZLHJ*1+UPS_DZ(UPS_DZ_num,3)*1),2)	'UPS�����ϼ�
					UPS_DZ_num=UPS_DZ_num+1
				end if
			end if
		loop
		f.Close: Set f=Nothing
	end if
	for i=0 to 11
		DHDMX(DHDMX_num,i)=""
	next
	for i=0 to 9
		SSKHKX(SSKHKX_num,i)=""
	next
	for i=0 to 8
		UPS_DZ(UPS_DZ_num,i)=""
	next
	SSKHKX(SSKHKX_num,5)=DateValue(Nowdate)			'�տ�����
	'----------------------------------------------------
Function getNum(str)
Dim length,num
length=Len(str)
num=0
For i=1 To length 
char=Mid(str,i,1) 
If isNumeric(char) Then 
num=num*10+Int(char)
end if
Next
getNum=num
End function

if request.Form("checkuser")="check" then
tempdata33=0
searchinfo=trim(request.Form("searchinfo"))
searchtype=trim(request.Form("SelectType"))
set f33=fs.Opentextfile(server.MapPath("userinfo"),1)
do while f33.AtEndOfStream = false
www=f33.readline
if len(www)>0 then
tempdata1=split(www,"|")
if searchtype="email" then
 if tempdata1(0)=searchinfo then
 tempdata33=1
 YWDMX(4)=tempdata1(0)
 YWDMX(9)=tempdata1(1)
 YWDMX(10)=tempdata1(2)
 YWDMX(11)=tempdata1(3)
 YWDMX(12)=tempdata1(4)
 YWDMX(13)=tempdata1(5)
 YWDMX(14)=tempdata1(6)
 YWDMX(15)=tempdata1(7)
 else
 YWDMX(4)=searchinfo
 end if
elseif searchtype="tel" then
 if getNum(tempdata1(7))=getNum(searchinfo) then
 tempdata33=1
 YWDMX(4)=tempdata1(0)
 YWDMX(9)=tempdata1(1)
 YWDMX(10)=tempdata1(2)
 YWDMX(11)=tempdata1(3)
 YWDMX(12)=tempdata1(4)
 YWDMX(13)=tempdata1(5)
 YWDMX(14)=tempdata1(6)
 YWDMX(15)=getNum(tempdata1(7))
 else
  YWDMX(15)=getNum(searchinfo)
 end if
elseif searchtype="name" then
 if lcase(tempdata1(1))=lcase(searchinfo) then
 tempdata33=1
 YWDMX(4)=tempdata1(0)
 YWDMX(9)=tempdata1(1)
 YWDMX(10)=tempdata1(2)
 YWDMX(11)=tempdata1(3)
 YWDMX(12)=tempdata1(4)
 YWDMX(13)=tempdata1(5)
 YWDMX(14)=tempdata1(6)
 YWDMX(15)=getNum(tempdata1(7))
 else
  YWDMX(9)=searchinfo
 end if
end if
end if
loop
f33.Close
set f33=nothing
end if
	'----------------------------------------------------
	if Lcase(SFKYFH(0))<>"y" and (YWDMX(1)=YWY_Name2 or YWY_Name2="����") then
		%>
		<form method="post" action="" name="frm">
		<table>
		<tr>
		<td>
		  <font color="#FF0000">�ͻ����ϲ�ѯ</font>		</td>
		<td><input name="searchinfo" onKeyUp="SelectTip(0)">
		</td>
		<td><select id="SelectType" name="SelectType">
		<option value="email">�ͻ�����</option>
		<option value="tel">�ͻ��绰</option>
		<option value="name">�ͻ�����</option>
		</select>
		</td>
		<td><input type="submit" name="checkuser" value="check">
		</td>
		</tr>
		</table>
<font color="#FF0000" size="1">��ע�������ַ�Ϳͻ��绰ֻ��Ҫ��дһ�������check�󣬿ͻ����ϻ��Զ���ȡ������������		</font><br>
 <span id="demo"><select name="demo" id="demo" style="width:200px" size=4  onChange="searchinfo.value=options[selectedIndex].text;">
<%
for idd=0 to dds-1
if len(username(idd))>0 then
%>
<option value="<%=username(idd)%>"><%=username(idd)%></option>
<%
end if
next
%>
</select></span>
</form>

<br>
		<%
		if tempdata33=0 then
		%>
		<font color="#0000FF" size="4">�޸ÿͻ�����</font>
<%
		else
		tempdata33=0
		end if
		
		%>
		<script language="javascript">
var TempArr=[];//����option
function Init(){
var SelectObj=document.frm.elements["demo"]
/*�Ƚ����ݴ�������*/
with(SelectObj)
	for(i=0;i<length;i++)TempArr[i]=[options[i].text,options[i].value]
}

function SelectTip(flag){
var TxtObj=document.frm.elements["searchinfo"]
var SelectObj=document.getElementById("demo")
var Arr=[]
with(SelectObj){
	var SelectHTML=innerHTML.match(/<[^>]*>/)[0]
	for(i=0;i<TempArr.length;i++)
	if(TempArr[i][0].indexOf(TxtObj.value.toLocaleLowerCase())>=0||flag)//���ҵ���txt�����ݿ�ͷ�ģ���option����flagΪtrue,���������ʼ��
	Arr[Arr.length]="<option value='"+TempArr[i][1]+"'>"+TempArr[i][0]+"</option>"
	innerHTML=SelectHTML+Arr.join()+"</SELECT>"
}
}
</script>
		<form method="POST" action=""><strong></strong>
		<form method="POST" action="">
		<table border="1" width="1200" height="20" bordercolor="#f0f0f0" style="border-collapse: collapse">
		<%'0000��ͷ���ֶ�######################################################################%>
		<tr>
		<td height="20" width="1200">		
		<table border="2" width="1200" height="20" bordercolor="#E0E0E0" style="border-collapse: collapse">
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="center">�� �� �� ��</td>
			<td height="20" width="150" align="center"><input type="hidden" name="T1T0" size="7" value="<%=YWDMX(0)%>"><%=YWDMX(0)%></td>
			<td height="20" width="150" align="center"> </td>
			<td height="20" width="150" align="center"> </td>
			<td height="20" width="600" bgcolor='#DDDDDD' align="center" colspan="4"><font color="#FF00FF">ʵ �� �� �� �� �� ַ �� ��</font></td>
		</tr>
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="left">¼����Ա</td>
			<td height="20" width="380" align="left" colspan="3"><input type="hidden" name="T1T1" size="7" value="<%=YWDMX(1)%>"><%=YWDMX(1)%></td>
			<td height="20" width="150" bgcolor='#DDDDDD' align="right">Full Name</td>
			<td height="20" width="450" align="left" colspan="3"><input type="text" name="T1T9" size="65" value="<%=YWDMX(9)%>"></td>
		</tr>
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="left">¼��ʱ��</td>
			<td height="20" width="450" align="left" colspan="3"><%=YWDMX(2)%></td>
			<td height="20" width="150" bgcolor='#DDDDDD' align="right">Street</td>
			<td height="20" width="450" align="left" colspan="3"><input type="text" name="T1T10" size="65" value="<%=YWDMX(10)%>"></td>
		</tr>
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="left">�ɽ�����</td>
			<td height="20" width="450" align="left" colspan="3">
			<Select name="T1T3" id="T1T3" ><option value="<%=YWDMX(3)%>"><%=YWDMX(3)%></option>
			<% for C_II=0 to CJDP_JS*1-1 %>
			<option value="<%=CJDP(C_II)%>"><%=CJDP(C_II)%></option>
			<% next %>
			</Select>
			</td>
			<td height="20" width="150" bgcolor='#DDDDDD' align="right">City</td>
			<td height="20" width="450" align="left" colspan="3"><input type="text" name="T1T11" size="65" value="<%=YWDMX(11)%>"></td>
		</tr>
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="left">�ͻ�Email<font color="#FF0000">(����)</font></td>
			<td height="20" width="450" align="left" colspan="3"><input type="text" name="T1T4" size="65" value="<%=YWDMX(4)%>"></td>
			<td height="20" width="150" bgcolor='#DDDDDD' align="right">State/Province</td>
			<td height="20" width="450" align="left" colspan="3">
			  <p>
			    <select name="T1T12">
			          <option value="" selected="selected"></option>
			      <%
				  kk=0 
				  for i=0 to s_i-1
				%>
			      <option value="<%=stateinfo(i,0)%>" 
				<%if YWDMX(12)=stateinfo(i,0)  then
				   kk=1
				%>
				 selected="selected"<%end if%>><%=stateinfo(i,0)%>--<%=stateinfo(i,2)%></option>
			      <%
				  next
				%>
		        </select>
			    <%
			  if kk=0 then
			%>
			    <input type="text" name="T1T16" size="30" value="<%=YWDMX(12)%>">
		    </p>
		    <p><span class="STYLE2">���������ô�ͻ������������</span></p></td>
			<%
			  end if
			%>
		</tr>
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="left">Ebay Item #</td>
			<td height="20" width="450" align="left" colspan="3"><input type="text" name="T1T5" size="65" value="<%=YWDMX(5)%>"></td>
			<td height="20" width="150" bgcolor='#DDDDDD' align="right">Zip/Post Code</td>
			<td height="20" width="150" align="left"><input type="text" name="T1T13" size="20" value="<%=YWDMX(13)%>"></td>
			<td height="20" width="150" bgcolor='#DDDDDD' align="center">Phone Num</td>
			<td height="20" width="150" align="left"><input type="text" name="T1T15" size="20" value="<%=YWDMX(15)%>"></td>
		</tr>
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="left">��ע˵��</td>
			<td height="20" width="450" align="left" colspan="3"><input type="text" name="T1T6" size="65" value="<%=YWDMX(6)%>"></td>
			<td height="20" width="150" bgcolor='#DDDDDD' align="right">Country</td>
			<td height="20" width="450" align="left" colspan="3">
			<Select name="T1T14" id="T1T14" ><option value="<%=YWDMX(14)%>"><%=YWDMX(14)%></option>
			<% for C_II=0 to Country_JS-1 %>
			<option value="<%=Country_Region(C_II)%>"><%=Country_Region(C_II)%></option>
			<% next %>
			</Select>
			</td>
		</tr>
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="left">���۵���ַ1</td>
			<td height="20" width="1050" align="left" colspan="7"><input type="text" name="T1T7" size="150" value="<%=YWDMX(7)%>"></td>
		</tr>
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="left">�Ƿ񵱵ض���</td>
			<td height="20" width="1050" align="left" colspan="7"><input type="checkbox" name="T1T8" <%if YWDMX(8)="��" then %> checked="checked" <%end if%>>
			�Ƿ񵱵ض�����<span class="STYLE3">�ǵ��ض�������ѡ�����</span>��</td>
		</tr>
		<tr>
			<td height="20" width="1200" bgcolor='#DDDDDD' align="center" colspan="8">
			<b><a target="_blank" href="<%="../../Admin/CPDGGL_CA/"&left(YWDMX(0),4)&"/"&left(YWDMX(0),6)&"/uploadTester.asp"%>"><%=YWDMX(0)&".jpg UPload"%></a></b>
			<%
			If fs.FileExists(Server.MapPath("..\..\Admin\CPDGGL_CA")&"\"&left(YWDMX(0),4)&"\"&left(YWDMX(0),6)&"\"&YWDMX(0)&".jpg")=true then
				Fileinf="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
			%>
			<%=Fileinf%>
			<b><a target="_blank" href="<%="../../Admin/CPDGGL_CA/"&left(YWDMX(0),4)&"/"&left(YWDMX(0),6)&"/"&YWDMX(0)&".jpg"%>"><%=YWDMX(0)&".jpg Download"%></a></b>
			<%end if%>
			</td>
		</tr>
		</table>
		</td>
		</tr>
		<%'1111֧��������ϸ��######################################################################%>
		<tr>
		<td height="20" width="1200">		
		<table border="2" width="1200" height="20" bordercolor="#E0E0E0" style="border-collapse: collapse">
		<tr>
			<td height="20" width="1200" bgcolor="#CCFFFF" align="center" colspan="12"><font color="#00CC00" size="3" face="Verdana"><B>��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;ϸ</B></font></td>
		</tr>
		<tr>
			<td height="20" width="40" bgcolor='#DDDDDD' align="center">���</td>
			<td height="20" width="80" bgcolor='#DDDDDD' align="center">��Ʒ����</td>
			<td height="20" width="400" bgcolor='#DDDDDD' align="center">��Ʒ����</td>
			<td height="20" width="40" bgcolor='#DDDDDD' align="center">��λ</td>
			<td height="20" width="80" bgcolor='#DDDDDD' align="center"><font color="#FF0000">����</font></td>
			<td height="20" width="80" bgcolor='#DDDDDD' align="center">��ǰ<span class="STYLE5">����</span>���</td>
			<td height="20" width="100" bgcolor='#DDDDDD' align="center">���۵���$</td>
			<td height="20" width="100" bgcolor='#DDDDDD' align="center">���۽��$</td>
			<td height="20" width="60" bgcolor='#DDDDDD' align="center">����KG</td>
			<td height="20" width="60" bgcolor='#DDDDDD' align="center">��;</td>
			<td height="20" width="40" bgcolor='#DDDDDD' align="center">��װ</td>
			<td height="20" width="120" bgcolor='#DDDDDD' align="center">˵��</td>
		</tr>
		<%
		JS=1
		if DHDMX_num <5 then
		DHDMX_num= 5
		elseif DHDMX_num <10  then
		DHDMX_num=10
		elseif DHDMX_num <15 then
		DHDMX_num=15
		elseif DHDMX_num <20 then
		DHDMX_num=20
		elseif DHDMX_num<25 then
		DHDMX_num=25
		end if

for i=0 to DHDMX_num
			j=0
		%>
		<tr>
			<td height="20" width="40" bgcolor='#DDDDDD' align="center"><%=JS%></td>
			<td height="20" width="80" align="center"><%JPJ=i*100+1%><input type="text" name="<%="T2T"&JPJ%>" size="8" value="<%=DHDMX(i,1)%>"></td>
			<td height="20" width="400" align="center"><%=DHDMX(i,2)%></td>
			<td height="20" width="40" align="center"><%=DHDMX(i,3)%></td>
			<td height="20" width="80" align="center"><%JPJ=i*100+5%><font color="#FF0000"><input type="text" name="<%="T2T"&JPJ%>" size="8" value="<%=DHDMX(i,5)%>"></font></td>
			<td height="20" width="80" align="center"><%=DHDMX(i,11)%></td>
			<td height="20" width="100" align="center"><%=DHDMX(i,4)%></td>
			<td height="20" width="100" align="center"><%=DHDMX(i,6)%></td>
			<td height="20" width="60" align="center"><%=DHDMX(i,7)%></td>
			<td height="20" width="60" align="center"><%=DHDMX(i,8)%></td>
			<td height="20" width="40" align="center"><%JPJ=i*100+9%><input type="text" name="<%="T2T"&JPJ%>" size="4" value="<%=DHDMX(i,9)%>"></td>
			<td height="20" width="120" align="center"><%JPJ=i*100+10%><input type="text" name="<%="T2T"&JPJ%>" size="20" value="<%=DHDMX(i,10)%>"></td>
		</tr>
		<%
			JS=JS+1
		next
		%>
		<tr>
			<td height="20" width="820" bgcolor='#DDDDDD' align="center" colspan="7">��&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;��</td>
			<td height="20" width="100" align="center"><%=XSJEMY%></td>
			<td height="20" width="60" align="center"><%=JHZL%></td>
			<td height="20" width="60" align="center"></td>
			<td height="20" width="40" align="center"><%=JHBZSL%></td>
			<td height="20" width="120" bgcolor='#DDDDDD' align="center"></td>
		</tr>
		</table>
		</td>
		</tr>
		<tr>
		<td>
		<table border="2" width="1200" height="20" bordercolor="#E0E0E0" style="border-collapse: collapse">
		<tr>
		<td width="328">
		������ֵ��
		  <input type="text" name="allmoney" style="width:80px" value="<%=XSJEMY%>">
		$</td>
		<td width="265">
		�ۿ۱�����
		  <input type="text" name="discount" value="0" style="width:50px">%		</td>
		<td width="340">
		�ۿ۽�
		  <input type="text" name="discount1" value="0" style="width:70px"></td>
		  <td width="237">
		�տ���֣�
		  <Select name="type" id="type" >
		  <option value="USA" >��Ԫ</option>
			<option value="CA" selected="selected">��Ԫ</option>
		</Select>		</td>
		  </tr>
		  <tr>
		<td width="328">
		
		��˰������		  
		  <select name="areaid" id="areaid"  style="width:230px"  class="userData11" onChange="document.getElementById('hst').value=(this.value)">
		    <option value="0">��ѡ��</option>
            <option value="13">Ontario:13%</option>
            <option value="5">Alberta:5%</option>
            <option value="12">British Columbia:12%</option>
            <option value="13">Manitoba:13%</option>
            <option value="13">New Brunswick:13%</option>
            <option value="13">Newfoundland and Labrador:13%</option>
            <option value="5">Northwest Territories:5%</option>
            <option value="15">Nova Scotia:15%</option>
            <option value="5">Nunavut:5%</option>
            <option value="14">Prince Edward Island:14%</option>
            <option value="14.975">Quebec:14.975%</option>
            <option value="10">Saskatchewan:10% </option>
            <option value="5">Yukon:5%</option>
          </select></td>
		<td width="265">
		��˰������
		  <input  type="text" name="hst" id="hst" value="13" style="width:50px">%		</td>
		
		<td width="340">
		��Ԫ�Ҽ�Ԫ���ʣ�
		  <input  type="text" name="moneytype" value="1.0972"  style="width:50px" >		</td>
		<td width="237"><input type="checkbox" name="select">
		  <font color="#0000FF" size="1">��ʹ�ã���ѡ�д���</font>		</td>
		</tr>
		</table>
		</td>
		</tr>
		<%'2222ʵ����ȡ�ͻ�����######################################################################%>
		<tr>
		<td height="20" width="1200">		
		<table border="2" width="1200" height="20" bordercolor="#E0E0E0" style="border-collapse: collapse">
		<tr>
			<td height="20" bgcolor="#CCFFFF" align="center" colspan="10"><font color="#00CC00" size="3" face="Verdana"><B>ʵ&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;ȡ&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��</B></font></td>
		</tr>
		<tr>
			<td height="20" width="28" bgcolor='#DDDDDD' align="center">���</td>
			<td height="20" width="70" bgcolor='#DDDDDD' align="center">�ջ���</td>
			<td height="20" width="77" bgcolor='#DDDDDD' align="center">���˷�</td>
			<td height="20" width="77" bgcolor='#DDDDDD' align="center">��˰��</td>
			<td height="20" width="73" bgcolor='#DDDDDD' align="center">��������</td>
			<td height="20" width="74" bgcolor='#DDDDDD' align="center">�ϼ�</td>
			<td height="20" width="121" bgcolor='#DDDDDD' align="center">�տʽ<font color="#FF0000">(����)</font></td>
			<td height="20" width="95" bgcolor='#DDDDDD' align="center">�տ�����</td>
			<td height="20" width="148" bgcolor='#DDDDDD' align="center">�տ��˻�<font color="#FF0000">�����</font></td>
			<td height="20" width="167" bgcolor='#DDDDDD' align="center">���׺�</td>
			<td height="20" width="198" bgcolor='#DDDDDD' align="center">��ע</td>
		</tr>
		<%
		check=request.Form("select")
		if check="on" then
		allmoney=request.Form("allmoney")
		discount=request.Form("discount")
		discount1=request.Form("discount1")
		typeid=request.Form("type")
		bit=request.Form("moneytype")
		hst=request.Form("hst")
		if typeid="USA" THEN
		SSKHKX(SSKHKX_num,10)="��Ԫ"
		else
		SSKHKX(SSKHKX_num,10)="��Ԫ"
		end if
		if Isnumeric(discount1)=true and discount1>0 then
		SSKHKX(SSKHKX_num,1)=round((allmoney-discount1),2)
		if Isnumeric(hst) =true then
		SSKHKX(SSKHKX_num,9)=round(((allmoney-discount1)*hst/100),2)
		end if

else 
		  if Isnumeric(discount)=true then
		   SSKHKX(SSKHKX_num,1)=round(allmoney*(1-(discount/100)),2)
		   if Isnumeric(hst) =true then
		    SSKHKX(SSKHKX_num,9)=round((allmoney*(1-(discount/100))*hst/100),2)
		    end if
		  end if
		end if

'else
		'SSKHKX(SSKHKX_num,10)="��Ԫ"
		'if Isnumeric(discount1)=true and discount1>0 then
		'moneytype=1
		'SSKHKX(SSKHKX_num,1)=round((allmoney-discount1)*bit,2)
		'else 
		'   if Isnumeric(discount)=true then
		'   moneytype=1
		'   SSKHKX(SSKHKX_num,1)=round((allmoney*(1-(discount/100)))*bit,2)
		'   end if
		'end if
		'if Isnumeric(hst) =true then
		'SSKHKX(SSKHKX_num,9)=round((allmoney*hst/100)*bit,2)
		'end if
		'end if
		end if
		JS=1
		for i=0 to SSKHKX_num
		%>
		<tr>
			<td height="20" width="28" bgcolor='#DDDDDD' align="center"><%=JS%></td>
			<td height="20" width="70" align="center"><%JPJ=i*100+1%><input type="text" name="<%="T3T"&JPJ%>" size="10" value="<%=SSKHKX(i,1)%>"></td>
			<td height="20" width="77" align="center"><%JPJ=i*100+2%><input type="text" name="<%="T3T"&JPJ%>" size="10" value="<%=SSKHKX(i,2)%>"></td>
			<td height="20" width="77" align="center"><%JPJ=i*100+9%><input type="text" name="<%="T3T"&JPJ%>" size="10" value="<%=SSKHKX(i,9)%>"></td>
			<td height="20" width="73" align="center"><%JPJ=i*100+10%>
			<Select name="<%="T3T"&JPJ%>" id="<%="T3T"&JPJ%>" ><option value="<%=SSKHKX(i,10)%>"><%=SSKHKX(i,10)%></option>
			<option value="��Ԫ">��Ԫ</option>
			<option value="��Ԫ">��Ԫ</option>
			</Select>
			</td>
			<td height="20" width="74" align="center"><%=SSKHKX(i,3)%></td>
			<td height="20" width="121" align="left"><%JPJ=i*100+4%>
			<Select name="<%="T3T"&JPJ%>" id="<%="T3T"&JPJ%>" ><option value="<%=SSKHKX(i,4)%>"><%=SSKHKX(i,4)%></option>
			<% for C_II=0 to SKFS_JS*1-1 %>
			<option value="<%=SKFS(C_II)%>"><%=SKFS(C_II)%></option>
			<% next %>
			</Select>
			</td>
			<td height="20" width="95" align="center"><%JPJ=i*100+5%><input type="text" name="<%="T3T"&JPJ%>" size="12" value="<%=SSKHKX(i,5)%>"></td>
			<td height="20" width="148" align="center"><%JPJ=i*100+6%>
			<Select name="<%="T3T"&JPJ%>" id="<%="T3T"&JPJ%>"  style="width:220px"><option value="<%=SSKHKX(i,6)%>"><%=SSKHKX(i,6)%></option>
			<% for C_II=0 to SKFSType_JS*1-1 %>
			<option value="<%=SKFSType(C_II)%>"><%=SKFSType(C_II)%></option>
			<% next %>
			</Select></td>
			<td height="20" width="167" align="center"><%JPJ=i*100+7%><input type="text" name="<%="T3T"&JPJ%>" size="20" value="<%=SSKHKX(i,7)%>"></td>
			<td height="20" width="198" align="center"><%JPJ=i*100+8%><input type="text" name="<%="T3T"&JPJ%>" size="20" value="<%=SSKHKX(i,8)%>"></td>
		</tr>
		<%
			JS=JS+1
		next
		%>
		<tr>
			<td height="20" width="28" bgcolor='#DDDDDD' align="center">�ϼ�($)</td>
			<td height="20" width="70" align="center"><%=SSKHHKHJ%>$</td>
			<td height="20" width="77" align="center"><%=SSKHYFHJ%>$</td>
			<td height="20" width="77" align="center"><%=SSKHSFHJ%>$</td>
			<td height="20" width="73" align="center"></td>
			<td height="20" width="74" align="center"><%=SSKHHKHJ*1+SSKHYFHJ*1+SSKHSFHJ%>$</td>
			<td height="20" width="121" align="center"></td>
			<td height="20" width="95" align="center"></td>
			<td height="20" width="148" align="center"></td>
			<td height="20" width="167" align="center"></td>
			<td height="20" width="198" align="center"></td>
		</tr>
		</table>
		</td>
		</tr>
		<%'4444֧�������˷�######################################################################%>
		<%if ZFGJYF_num>0 then%>
		<tr>
		<td height="20" width="1200">		
		<table border="2" width="1200" height="20" bordercolor="#E0E0E0" style="border-collapse: collapse">
		<tr>
			<td height="20" width="1200" bgcolor="#CCFFFF" align="center" colspan="10"><font color="#00CC00" size="3" face="Verdana"><B>��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;Ϣ</B></font></td>
		</tr>
		<tr>
			<td height="20" width="40" bgcolor='#DDDDDD' align="center">���</td>
			<td height="20" width="160" bgcolor='#DDDDDD' align="center">����������</td>
			<td height="20" width="140" bgcolor='#DDDDDD' align="center">�˷�$</td>
			<td height="20" width="160" bgcolor='#DDDDDD' align="center">����ʱ��</td>
			<td height="20" width="200" bgcolor='#DDDDDD' align="center">��������</td>
			<td height="20" width="500" bgcolor='#DDDDDD' align="center">��ע</td>
		</tr>
		<%	JS=1
			for i=0 to ZFGJYF_num-1
				j=0
		%>
				<tr>
				<td height="20" width="40" bgcolor='#DDDDDD' align="center"><%=JS%></td><%j=j+1%>
				<td height="20" width="160" align="center"><%=ZFGJYF(i,j)%></td><%j=j+1%>
				<td height="20" width="140" align="center"><%=ZFGJYF(i,j)%></td><%j=j+1%>
				<td height="20" width="160" align="center"><%=ZFGJYF(i,j)%></td><%j=j+1%>
				<td height="20" width="200" align="center"><%=ZFGJYF(i,j)%></td><%j=j+1%>
				<td height="20" width="500" align="center"><%=ZFGJYF(i,j)%></td><%j=j+1%>
				</tr>
		<%
				JS=JS+1
			next
		%>
		<tr>
			<td height="20" width="200" bgcolor='#DDDDDD' align="center" colspan="2">��&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;��</td>
			<td height="20" width="140" align="center"><%=ZFGJYFHJ%></td>
			<td height="20" width="160" align="center"></td>
			<td height="20" width="200" align="center"></td>
			<td height="20" width="500" align="center"></td>
		</tr>
		</table>
		</td>
		</tr>
		<% end if%>
	<%'9999UPS������Ϣ######################################################################%>
		<%if UPS_DZ_num>0 then%>
		<tr>
		<td height="20" width="1200">		
		<table border="2" width="1200" height="20" bordercolor="#E0E0E0" style="border-collapse: collapse">
		<tr>
			<td height="20" width="1200" bgcolor="#CCFFFF" align="center" colspan="9"><font color="#00CC00" size="3" face="Verdana"><B>UPS&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;Ϣ</B></font></td>
		</tr>
		<tr>
			<td height="20" width="40" bgcolor='#DDDDDD' align="center">���</td>
			<td height="20" width="200" bgcolor='#DDDDDD' align="center">���ٺ�</td>
			<td height="20" width="60" bgcolor='#DDDDDD' align="center">���$</td>
			<td height="20" width="60" bgcolor='#DDDDDD' align="center">����LB</td>
			<td height="20" width="200" bgcolor='#DDDDDD' align="center">UPS Invoice date</td>
			<td height="20" width="200" bgcolor='#DDDDDD' align="center">UPS Invoice number</td>
			<td height="20" width="100" bgcolor='#DDDDDD' align="center">ҵ����</td>
			<td height="20" width="140" bgcolor='#DDDDDD' align="center">���۵���</td>
			<td height="20" width="200" bgcolor='#DDDDDD' align="center">��ע</td>
		</tr>
		<%	JS=1
			for i=0 to UPS_DZ_num-1
		%>
				<tr>
				<td height="20" width="40" bgcolor='#DDDDDD' align="center"><%=JS%></td>
				<td height="20" width="200" align="center"><%=UPS_DZ(i,1)%></td>
				<td height="20" width="60" align="center"><%=UPS_DZ(i,2)%></td>
				<td height="20" width="60" align="center"><%=UPS_DZ(i,3)%></td>
				<td height="20" width="200" align="center"><%=UPS_DZ(i,4)%></td>
				<td height="20" width="200" align="center"><%=UPS_DZ(i,5)%></td>
				<td height="20" width="100" align="center"><%=UPS_DZ(i,6)%></td>
				<td height="20" width="140" align="center"><%=UPS_DZ(i,7)%></td>
				<td height="20" width="200" align="center"><%=UPS_DZ(i,8)%></td>
				</tr>
		<%
				JS=JS+1
			next
		%>
		<tr>
			<td height="20" width="240" bgcolor='#DDDDDD' align="center" colspan="2">��&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;��</td>
			<td height="20" width="60" align="center"><%=UPS_DZ_JEHJ%></td>
			<td height="20" width="60" align="center"><%=UPS_DZ_ZLHJ%></td>
			<td height="20" width="200" align="center"></td>
			<td height="20" width="200" align="center"></td>
			<td height="20" width="100" align="center"></td>
			<td height="20" width="140" align="center"></td>
			<td height="20" width="200" align="center"></td>
		</tr>
		</table>
		</td>
		</tr>
		<% end if%>
		<%'7777######################################################################%>
			<tr>
			<td height="20" width="1200">		
			<table border="2" width="1200" height="20" bordercolor="#E0E0E0" style="border-collapse: collapse">
			<tr>
				<td height="20" width="600" bgcolor="#CCFFFF"  align="center">&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;��</td>
				<td height="20" width="600" bgcolor="#CCFFFF" align="center">
				<%if Lcase(SFKYFH(1))<>"y" then%>
					<input type="radio" name="TFLAG" value="1">��&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="radio" name="TFLAG" value="0" checked>��
				<%else%>
					<input type="radio" name="TFLAG" value="1" checked>��
				<%end if%></td>
			</tr>
			</table>
			</td>
			</tr>
		<%'8888######################################################################%>
		</table>
		<p align="center"><input type="submit" value="Submit" name="B1">
		  <font color="#FF0000">����ע�������粻�����޷���ɶ�����</font></p>
		  </br>
		  <%
		  if kkk=1 then
		  %>
		  <font color="#FF0000">�����ֳ��⣬�����ж��ֲ�Ʒ�����������ܳ�������еĶ���������</font></p>
		  <%
		  end if
		  %>
		</form>
<%
	elseif Lcase(SFKYFH(0))="y" and (YWDMX(1)=YWY_Name2 or YWY_Name2="����") then
		%>
		<table border="1" width="1200" height="20" bordercolor="#f0f0f0" style="border-collapse: collapse">
		<%'0000��ͷ���ֶ�######################################################################%>
		<tr>
		<td height="20" width="1200">		
		<table border="2" width="1200" height="20" bordercolor="#E0E0E0" style="border-collapse: collapse">
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="center">�� �� �� ��</td>
			<td height="20" width="150" align="center"><%=YWDMX(0)%></td>
			<td height="20" width="150" align="center"> </td>
			<td height="20" width="150" align="center"> </td>
			<td height="20" width="600" bgcolor='#DDDDDD' align="center" colspan="4"><font color="#FF00FF">ʵ �� �� �� �� �� ַ �� ��</font></td>
		</tr>
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="left">¼����Ա</td>
			<td height="20" width="380" align="left" colspan="3"><%=YWDMX(1)%></td>
			<td height="20" width="150" bgcolor='#DDDDDD' align="right">Full Name</td>
			<td height="20" width="150" align="left"><%=YWDMX(9)%></td>
			<td height="20" width="300" align="left" colspan="2" rowspan="4">
			<textarea rows="5" name="S69" cols="48" readonly style="font-size: 12; font-family: Verdana; border: 1px solid #800000"><%=DHRXX%></textarea></td>
		</tr>
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="left">¼��ʱ��</td>
			<td height="20" width="450" align="left" colspan="3"><%=YWDMX(2)%></td>
			<td height="20" width="150" bgcolor='#DDDDDD' align="right">Street</td>
			<td height="20" width="150" align="left"><%=YWDMX(10)%></td>
		</tr>
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="left">�ɽ�����</td>
			<td height="20" width="450" align="left" colspan="3"><%=YWDMX(3)%></td>
			<td height="20" width="150" bgcolor='#DDDDDD' align="right">City</td>
			<td height="20" width="150" align="left"><%=YWDMX(11)%></td>
		</tr>
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="left">�ͻ�Email</td>
			<td height="20" width="450" align="left" colspan="3"><%=YWDMX(4)%></td>
			<td height="20" width="150" bgcolor='#DDDDDD' align="right">State/Province</td>
			<td height="20" width="150" align="left"><%=YWDMX(12)%></td>
		</tr>
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="left">Ebay Item #</td>
			<td height="20" width="450" align="left" colspan="3"><%=YWDMX(5)%></td>
			<td height="20" width="150" bgcolor='#DDDDDD' align="right">Zip/Post Code</td>
			<td height="20" width="150" align="left"><%=YWDMX(13)%></td>
			<td height="20" width="150" bgcolor='#DDDDDD' align="center">Phone Num</td>
			<td height="20" width="150" align="left"><%=YWDMX(15)%></td>
		</tr>
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="left">��ע˵��</td>
			<td height="20" width="450" align="left" colspan="3"><%=YWDMX(6)%></td>
			<td height="20" width="150" bgcolor='#DDDDDD' align="right">Country</td>
			<td height="20" width="450" align="left" colspan="3"><%=YWDMX(14)%></td>
		</tr>
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="left">���۵���ַ1</td>
			<td height="20" width="1050" align="left" colspan="7"><%=YWDMX(7)%></td>
		</tr>
		<tr>
			<td height="20" width="150" bgcolor='#DDDDDD' align="left">�Ƿ񱾵�����</td>
			<td height="20" width="1050" align="left" colspan="7"><%=YWDMX(8)%></td>
		</tr>
		<tr>
			<td height="20" width="1200" bgcolor='#DDDDDD' align="center" colspan="8">
			<%
			If fs.FileExists(Server.MapPath("..\..\Admin\CPDGGL_CA")&"\"&left(YWDMX(0),4)&"\"&left(YWDMX(0),6)&"\"&YWDMX(0)&".jpg")=true then
				Fileinf="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
			%>
			<%=Fileinf%>
			<b><a target="_blank" href="<%="../../Admin/CPDGGL_CA/"&left(YWDMX(0),4)&"/"&left(YWDMX(0),6)&"/"&YWDMX(0)&".jpg"%>"><%=YWDMX(0)&".jpg Download"%></a></b>
			<%end if%>
			</td>
		</tr>
		</table>
		</td>
		</tr>
		<%'1111֧��������ϸ��######################################################################%>
		<tr>
		<td height="20" width="1200">		
		<table border="2" width="1200" height="20" bordercolor="#E0E0E0" style="border-collapse: collapse">
		<tr>
			<td height="20" width="1200" bgcolor="#CCFFFF" align="center" colspan="12"><font color="#00CC00" size="3" face="Verdana"><B>��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;ϸ</B></font></td>
		</tr>
		<tr>
			<td height="20" width="40" bgcolor='#DDDDDD' align="center">���</td>
			<td height="20" width="80" bgcolor='#DDDDDD' align="center">��Ʒ����</td>
			<td height="20" width="400" bgcolor='#DDDDDD' align="center">��Ʒ����</td>
			<td height="20" width="40" bgcolor='#DDDDDD' align="center">��λ</td>
			<td height="20" width="80" bgcolor='#DDDDDD' align="center"><font color="#FF0000">����</font></td>
			<td height="20" width="80" bgcolor='#DDDDDD' align="center">��ǰ���ֿ��</td>
			<td height="20" width="100" bgcolor='#DDDDDD' align="center">���۵���$</td>
			<td height="20" width="100" bgcolor='#DDDDDD' align="center">���۽��$</td>
			<td height="20" width="60" bgcolor='#DDDDDD' align="center">����KG</td>
			<td height="20" width="60" bgcolor='#DDDDDD' align="center">���m3</td>
			<td height="20" width="40" bgcolor='#DDDDDD' align="center">��װ</td>
			<td height="20" width="120" bgcolor='#DDDDDD' align="center">˵��</td>
		</tr>
		<%
		JS=1
		for i=0 to DHDMX_num-1
			j=0
		%>
		<tr>
			<td height="20" width="40" bgcolor='#DDDDDD' align="center"><%=JS%></td>
			<td height="20" width="80" align="center"><%=DHDMX(i,1)%></td>
			<td height="20" width="400" align="center"><%=DHDMX(i,2)%></td>
			<td height="20" width="40" align="center"><%=DHDMX(i,3)%></td>
			<td height="20" width="80" align="center"><%=DHDMX(i,5)%></font></td>
			<td height="20" width="80" align="center"><%=DHDMX(i,11)%></td>
			<td height="20" width="100" align="center"><%=DHDMX(i,4)%></td>
			<td height="20" width="100" align="center"><%=DHDMX(i,6)%></td>
			<td height="20" width="60" align="center"><%=DHDMX(i,7)%></td>
			<td height="20" width="60" align="center"><%=DHDMX(i,8)%></td>
			<td height="20" width="40" align="center"><%=DHDMX(i,9)%></td>
			<td height="20" width="120" align="center"><%=DHDMX(i,10)%></td>
		</tr>
		<%
			JS=JS+1
		next
		%>
		<tr>
			<td height="20" width="820" bgcolor='#DDDDDD' align="center" colspan="7">��&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;��</td>
			<td height="20" width="100" align="center"><%=XSJEMY%></td>
			<td height="20" width="60" align="center"><%=JHZL%></td>
			<td height="20" width="60" align="center"><%=JHTJ%></td>
			<td height="20" width="40" align="center"><%=JHBZSL%></td>
			<td height="20" width="120" bgcolor='#DDDDDD' align="center"></td>
		</tr>
		</table>
		</td>
		</tr>
		<%'2222ʵ����ȡ�ͻ�����######################################################################%>
		<tr>
		<td height="20" width="1200">		
		<table border="2" width="1200" height="20" bordercolor="#E0E0E0" style="border-collapse: collapse">
		<tr>
			<td height="20" width="1200" bgcolor="#CCFFFF" align="center" colspan="10"><font color="#00CC00" size="3" face="Verdana"><B>ʵ&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;ȡ&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��</B></font></td>
		</tr>
		<tr>
			<td height="20" width="40" 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>
			<td height="20" width="80" bgcolor='#DDDDDD' align="center">��˰��$</td>
			<td height="20" width="100" bgcolor='#DDDDDD' align="center">�ϼ�$</td>
			<td height="20" width="160" bgcolor='#DDDDDD' align="center">�տʽ</td>
			<td height="20" width="100" bgcolor='#DDDDDD' align="center">�տ�����</td>
			<td height="20" width="200" bgcolor='#DDDDDD' align="center">�տ��˻�</td>
			<td height="20" width="180" bgcolor='#DDDDDD' align="center">���׺�</td>
			<td height="20" width="180" bgcolor='#DDDDDD' align="center">��ע</td>
		</tr>
		<%
		JS=1
		for i=0 to SSKHKX_num-1
		%>
		<tr>
			<td height="20" width="40" bgcolor='#DDDDDD' align="center"><%=JS%></td>
			<td height="20" width="80" align="center"><%=SSKHKX(i,1)%></td>
			<td height="20" width="80" align="center"><%=SSKHKX(i,2)%></td>
			<td height="20" width="80" align="center"><%=SSKHKX(i,9)%></td>
			<td height="20" width="100" align="center"><%=SSKHKX(i,3)%></td>
			<td height="20" width="160" align="left"><%=SSKHKX(i,4)%></td>
			<td height="20" width="100" align="center"><%=SSKHKX(i,5)%></td>
			<td height="20" width="200" align="center"><%=SSKHKX(i,6)%></td>
			<td height="20" width="180" align="center"><%=SSKHKX(i,7)%></td>
			<td height="20" width="180" align="center"><%=SSKHKX(i,8)%></td>
		</tr>
		<%
			JS=JS+1
		next
		%>
		<tr>
			<td height="20" width="40" bgcolor='#DDDDDD' align="center">�ϼ�</td>
			<td height="20" width="80" align="center"><%=SSKHHKHJ%></td>
			<td height="20" width="80" align="center"><%=SSKHYFHJ%></td>
		  <td height="20" width="80" align="center"><%=SSKHSFHJ%></td>
			<td height="20" width="100" align="center"><%=SSKHHKHJ*1+SSKHYFHJ*1+SSKHSFHJ%></td>
			<td height="20" width="160" align="center"></td>
			<td height="20" width="100" align="center"></td>
			<td height="20" width="200" align="center"></td>
			<td height="20" width="180" align="center"></td>
			<td height="20" width="180" align="center"></td>
		</tr>
		</table>
		</td>
		</tr>
	<%'4444֧�������˷�######################################################################%>
		<%if ZFGJYF_num>0 then%>
		<tr>
		<td height="20" width="1200">		
		<table border="2" width="1200" height="20" bordercolor="#E0E0E0" style="border-collapse: collapse">
		<tr>
			<td height="20" width="1200" bgcolor="#CCFFFF" align="center" colspan="10"><font color="#00CC00" size="3" face="Verdana"><B>��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;Ϣ</B></font></td>
		</tr>
		<tr>
			<td height="20" width="40" bgcolor='#DDDDDD' align="center">���</td>
			<td height="20" width="160" bgcolor='#DDDDDD' align="center">����������</td>
			<td height="20" width="140" bgcolor='#DDDDDD' align="center">�˷�$</td>
			<td height="20" width="160" bgcolor='#DDDDDD' align="center">����ʱ��</td>
			<td height="20" width="200" bgcolor='#DDDDDD' align="center">��������</td>
			<td height="20" width="500" bgcolor='#DDDDDD' align="center">��ע</td>
		</tr>
		<%	JS=1
			for i=0 to ZFGJYF_num-1
				j=0
		%>
				<tr>
				<td height="20" width="40" bgcolor='#DDDDDD' align="center"><%=JS%></td><%j=j+1%>
				<td height="20" width="160" align="center"><%=ZFGJYF(i,j)%></td><%j=j+1%>
				<td height="20" width="140" align="center"><%=ZFGJYF(i,j)%></td><%j=j+1%>
				<td height="20" width="160" align="center"><%=ZFGJYF(i,j)%></td><%j=j+1%>
				<td height="20" width="200" align="center"><%=ZFGJYF(i,j)%></td><%j=j+1%>
				<td height="20" width="500" align="center"><%=ZFGJYF(i,j)%></td><%j=j+1%>
				</tr>
		<%
				JS=JS+1
			next
		%>
		<tr>
			<td height="20" width="200" bgcolor='#DDDDDD' align="center" colspan="2">��&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;��</td>
			<td height="20" width="140" align="center"><%=ZFGJYFHJ%></td>
			<td height="20" width="160" align="center"></td>
			<td height="20" width="200" align="center"></td>
			<td height="20" width="500" align="center"></td>
		</tr>
		</table>
		</td>
		</tr>
		<% end if%>
	<%'9999UPS������Ϣ######################################################################%>
		<%if UPS_DZ_num>0 then%>
		<tr>
		<td height="20" width="1200">		
		<table border="2" width="1200" height="20" bordercolor="#E0E0E0" style="border-collapse: collapse">
		<tr>
			<td height="20" width="1200" bgcolor="#CCFFFF" align="center" colspan="9"><font color="#00CC00" size="3" face="Verdana"><B>UPS&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;��&nbsp;&nbsp;&nbsp;&nbsp;Ϣ</B></font></td>
		</tr>
		<tr>
			<td height="20" width="40" bgcolor='#DDDDDD' align="center">���</td>
			<td height="20" width="200" bgcolor='#DDDDDD' align="center">���ٺ�</td>
			<td height="20" width="60" bgcolor='#DDDDDD' align="center">���$</td>
			<td height="20" width="60" bgcolor='#DDDDDD' align="center">����LB</td>
			<td height="20" width="200" bgcolor='#DDDDDD' align="center">UPS Invoice date</td>
			<td height="20" width="200" bgcolor='#DDDDDD' align="center">UPS Invoice number</td>
			<td height="20" width="100" bgcolor='#DDDDDD' align="center">ҵ����</td>
			<td height="20" width="140" bgcolor='#DDDDDD' align="center">���۵���</td>
			<td height="20" width="200" bgcolor='#DDDDDD' align="center">��ע</td>
		</tr>
		<%	JS=1
			for i=0 to UPS_DZ_num-1
		%>
				<tr>
				<td height="20" width="40" bgcolor='#DDDDDD' align="center"><%=JS%></td>
				<td height="20" width="200" align="center"><%=UPS_DZ(i,1)%></td>
				<td height="20" width="60" align="center"><%=UPS_DZ(i,2)%></td>
				<td height="20" width="60" align="center"><%=UPS_DZ(i,3)%></td>
				<td height="20" width="200" align="center"><%=UPS_DZ(i,4)%></td>
				<td height="20" width="200" align="center"><%=UPS_DZ(i,5)%></td>
				<td height="20" width="100" align="center"><%=UPS_DZ(i,6)%></td>
				<td height="20" width="140" align="center"><%=UPS_DZ(i,7)%></td>
				<td height="20" width="200" align="center"><%=UPS_DZ(i,8)%></td>
				</tr>
		<%
				JS=JS+1
			next
		%>
		<tr>
			<td height="20" width="240" bgcolor='#DDDDDD' align="center" colspan="2">��&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;��</td>
			<td height="20" width="60" align="center"><%=UPS_DZ_JEHJ%></td>
			<td height="20" width="60" align="center"><%=UPS_DZ_ZLHJ%></td>
			<td height="20" width="200" align="center"></td>
			<td height="20" width="200" align="center"></td>
			<td height="20" width="100" align="center"></td>
			<td height="20" width="140" align="center"></td>
			<td height="20" width="200" align="center"></td>
		</tr>
		</table>
		</td>
		</tr>
		<% end if%>
		<%'8888######################################################################%>
		</table>
<%
	end if
end if
%>
<%
if Lcase(SFKYFH(0))="y" and Lcase(SFKYFH(2))<>"y" and Lcase(SFKYFH(2))<>"y" then
Temp=Server.MapPath("..\..\Admin\CPDGGL_CA\") & "\" & LLP & "\" & LLN & "\" & LLPP
	If fs.FileExists(Temp)=true then
		Set f=fs.OpenTextFile(Temp,1)
		do while f.AtEndOfStream = false
			YY=Trim(f.ReadLine)
				if left(YY,6)="******" then			'�Ƿ���Է���
					str=Split(YY,"|")
					reason=str(1)
				end if
		 loop
		f.Close: Set f=Nothing
	end if
%>
<table width="1200" height="48" border="0" align="center">
<%
if len(reason)>0 then
%>
<tr>
<td>
�ö�����ȡ����ȡ��ԭ���ǣ�<%=reason%>
</td>
</tr>
<%
else
%>
<form method="post" action="">
<tr>
  <td>�Ƿ����ϣ�</td>
</tr>
<tr>
<td>
<input type="radio" name="MFLAG" value="1">��<input type="radio" name="MFLAG" value="0"checked>��
</td>
</tr>
<tr>
<td>
����ԭ��
<textarea rows="5" name="reason"  cols="48" style="font-size: 12; font-family: Verdana; border: 1px solid #800000"><%=reason%></textarea>
</td>
</tr>
<tr>
<td>
<input type="Submit" value="Submit" name="out">
</td>
</tr>
</form>
<%
end if
%>
</table>
<%
end if
%>
	<table border="0" width="1200" height="48">
		<tr>
			<td height="18" width="980">
			  <p align="center"></td>
		</tr>
		<tr>
			<td height="24" width="980">
			<p align="left">&nbsp;<font face="Verdana" size="2" color="#800000">
		&nbsp;&nbsp;&nbsp;&nbsp;<br>
		</tr>
	</table>
	
	<%Set fs=Nothing%>
</body>
	</html>