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);} .STYLE1 {color: #FF0000} </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 Nowdate=year(DateAdd("h",2,now()))&"-"&month(DateAdd("h",2,now()))&"-"&day(DateAdd("h",2,now())) set fs=Server.CreateObject("Scripting.FileSystemObject") '------------------------------------------------ %> <% 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> <% '----------------------------------------------------------------------- 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(15) '#-#-#-ҵ����ϸ��0-�������ţ�1-¼����Ա����¼ʱ����Ա����2-¼��ʱ�䣨�ύʱ�Զ���ȡ��ǰʱ�侫ȷ���룩�� '3-�ɽ����̣�4-�ͻ�Email��5-��ע˵��1��6-��ע˵��2,7-���۵���ַ1��8-���۵���ַ2��9-�ջ���FullName,10-�ջ���Street,11-�ջ���City�� '12-�ջ���State/Province��13-�ջ���Zip/Post Code��14-�ջ���Country,15-�ջ���Phone Num Dim DHRXX '#1#1#-��������Ϣ Dim DD Dim DHDMX(199,11) '@-@-@-��������ϸ��0-��ţ�1-��Ʒ���룬2-��Ʒ���ƣ�3-��λ��4-���۵���$��5-������6-���۽��$��7-������ '8-�����9-��װ������10-˵��,11-����ǰ��� Dim DHDMX1(199,11) '@-@-@-��������ϸ��0-��ţ�1-��Ʒ���룬2-��Ʒ���ƣ�3-��λ��4-���۵���$��5-������6-���۽��$��7-������ '8-�����9-��װ������10-˵��,11-����ǰ��� Dim DHDMX_num Dim SSKHKX(10,10) '$1$1$-ʵ�տͻ����0-��ţ�1-����$��2-�˷�$��3-�տ�ϼ�$��4-�տʽ��5-�տ����ڣ�6-�տ��˻���7-���ţ�8-��ע,9-˰��$ Dim SSKHKX_num Dim SSKHHKHJ 'ʵ�տͻ�����ϼ� Dim SSKHYFHJ 'ʵ�տͻ��˷Ѻϼ� Dim SSKHSFHJ 'ʵ�տͻ�˰�Ѻϼ� Dim ZFGJYF(9,5) '$3$3$-֧�������˷ѣ�0-��ţ�1-���������ƣ�2-�������3-�������ڣ�4-���ٺ�/�������ţ�5-��ע Dim ZFGJYF_num Dim ZFGJYFHJ '֧�������˷Ѻϼ� Dim feiqi feiqi=0 Dim UPS_DZ(199,8) '$6$6$-UPS�˷Ѷ�����Ϣ�� '0-��ţ��Զ����ɣ� '1-���ٺţ�¼�룩 '2-�˵����$��¼�룩 '3-�걨����LB��¼�룩 '4-UPS Invoice date '5-UPS Invoice number '6-ҵ���� '7-���۵��� '8-��ע��¼�룩 Dim UPS_DZ_num Dim UPS_DZ_JEHJ 'UPS���˽��ϼ� Dim UPS_DZ_ZLHJ 'UPS���������ϼ� Dim PP(11) '��Ʒ�����ļ�ǰ12���ֶ� Dim QQ(30) '��Ʒ�������ϵ�ǰ31���ֶ� Dim MM(16) '��Ʒ��� Dim moneytype '������� moneytype=0 Dim JHZL '�������� Dim JHTJ '������� Dim JHBZSL '������װ���� Dim XSJEMY '���۽����Ԫ Dim SKFS(8) '�տʽ 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" Dim SKFSType(9) '�տ��˺� SKFSType(0)="Cash-Toronto" SKFSType(1)="Cash-Vancouver" SKFSType(2)="ASC365 Bank Account- CAD$" SKFSType(3)="ASC365 Bank Account- USD$" SKFSType(4)="ARTDID Bank Account- USD$" SKFSType(5)="Paypal-weizhao100@hotmail.com" SKFSType(6)="Paypal-express@asc365.com" SKFSType(7)="Paypal-artdesign199@hotmail.com" SKFSType(8)="Yantai Bank Account - Alipay��aliexpress��" SKFSType(9)="Others" Dim CJDP(11) '�ɽ����̣������˵�ѡ� CJDP(0)="Toronto Local Customer" CJDP(1)="Company website" CJDP(2)="ascprinting" CJDP(3)="art_asc365" CJDP(4)="asc365usa" CJDP(5)="solution4you" CJDP(6)="stencilitem" CJDP(7)="aliexpress" CJDP(8)="ascpress" CJDP(9)="other" CJDP(10)="amazon" CJDP(11)="artdidinc" Dim CYRMC_2(7) '���������� CYRMC_2(0)="Pick up" CYRMC_2(1)="UPS" CYRMC_2(2)="FedEx" CYRMC_2(3)="TNT" CYRMC_2(4)="USPS" CYRMC_2(5)="EMS" CYRMC_2(6)="DHL" CYRMC_2(7)="OTHERS" '----------------------------------------------------------------------- Dim SUBFOLDERNAME(100) '��Ŀ¼�����ɴ�101�� Dim SUBFOLDERNUM '��Ŀ¼������ Dim SUBMONTHNAME(12) '����Ŀ¼�����ɴ�12�� Dim FILENAME(999) 'ÿ�ʷ�����һ���ļ���������1000�� Dim FILENAMENUM '�������ļ������� Dim YWYNAME 'ҵ��Ա���� Dim HWSQFC '�������뷢�� 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\ASC365_Invoice\") 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\ASC365_Invoice\") & "\" & 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> <% if request.Form("new11")="neworder" then RQ= Nowdate 'DateAdd("h",12,now) '�������� RQ=YYMMDD(RQ) RQ=left(RQ,8) Temp=Server.MapPath("..\..\Admin\ASC365_Invoice") & "\" & left(RQ,4) '��̨��Ʒ�����������һ��һ��Ŀ¼ If fs.FolderExists(Temp) <> true Then set fm1=fs.CreateFolder(Temp) set fm1=nothing end if Temp=Server.MapPath("..\..\Admin\ASC365_Invoice") & "\" & 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\CPDGGL_CA\uploadTester.asp"),temp &"/" fs.CopyFile Server.MapPath("..\..\Admin\CPDGGL_CA\freeASPUpload.asp"),temp &"/" end if WenJianBH=left(RQ,6) & "0000" '2011120001.sss �ļ�����2011��12��0001��� set fo=fs.GetFolder(Server.MapPath("..\..\Admin\ASC365_Invoice") & "\" & left(RQ,4) & "\" & left(RQ,6)) '��̨��Ʒ�����������һ��һ��һ��Ŀ¼ for each x in fo.files NN=x.Name if right(NN,4)=".sss" then if left(NN,10)*1>WenJianBH*1 then WenJianBH=int(left(NN,10))*1 end if next WenJianBH=WenJianBH*1+1 WenJianMC=WenJianBH & ".sss" Temp=Server.MapPath("..\..\Admin\ASC365_Invoice") & "\" & left(RQ,4) & "\" & left(RQ,6) & "\" & WenJianMC Set f=fs.CreateTextFile(Temp,true) '-------------------------�Ƿ���Է���---------------------------- WW="*-*-*|" for i=0 to 5 WW=WW & "|" next f.WriteLine (WW) WW="#-#-#|" WW=WW & WenJianBH &"|"& YWY_Name2 &"|"& DHRQ &"|" for i=0 to 12 WW=WW & "|" next f.WriteLine (WW) WW="#1#1#" f.WriteLine (WW) f.close set f=nothing end if LLN= Request.Querystring("LN") if len(LLN)<>0 then Temp=Server.MapPath("..\..\Admin\ASC365_Invoice\") & "\" & 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 999 if II=5 then response.write "<tr>" II=0 end if if len(FILENAME(i))>0 then Temp=Server.MapPath("..\..\Admin\ASC365_Invoice\") & "\" & 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\ASC365_Invoice\") & "\" & 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 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\ASC365_Invoice\") & "\" & 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 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 15 YWDMX(i)=trim(request.form("T1T"&I)) next for i=0 to 9 'ZFGJYF_num '-------------------------��� 'j=0 'ZFGJYF(i,j)=i+1 '-------------------------���������� j=1 IJ=i*100+j ZFGJYF(i,j)=trim(request.form("T5T"&IJ)) '-------------------------������ j=2 IJ=i*100+j ZFGJYF(i,j)=trim(request.form("T5T"&IJ)) if IsNumeric(ZFGJYF(i,j)) then if ZFGJYF(i,j)<=0 then ZFGJYF(i,j)=0 else ZFGJYF(i,j)=0 end if ZFGJYFHJ=Round((ZFGJYFHJ*1+ZFGJYF(i,j)*1),2) '֧�������˷Ѻϼ� '-------------------------�������� j=3 IJ=i*100+j ZFGJYF(i,j)=trim(request.form("T5T"&IJ)) if len(ZFGJYF(i,j))<1 then ZFGJYF(i,j)=DHRQ '-------------------------���ٺ�/�������� j=4 IJ=i*100+j ZFGJYF(i,j)=trim(request.form("T5T"&IJ)) '-------------------------��ע j=5 IJ=i*100+j ZFGJYF(i,j)=trim(request.form("T5T"&IJ)) next '-------------------------��������ϸ---------------------------- 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 'IJ=i*100+j 'DHDMX(i,j)=trim(request.form("T2T"&IJ)) if IsNumeric(QQ(14)) then if QQ(14)<=0 then QQ(14)=0 else QQ(14)=0 end if '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(3)*1-MM(10)*1-MM(2)*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 '======================���涩����============================= FFLAG=request.form("TFLAG") if FFLAG>0 then '���涩���������¸�ʽ�������Ŷ���������д Temp=Server.MapPath("..\..\Admin\ASC365_Invoice\") & "\" & LLP & "\" & LLN & "\" & LLPP Set f=fs.CreateTextFile(Temp,true) '-------------------------�Ƿ���Է���---------------------------- WW="*-*-*|Y|Y|||||" f.WriteLine (WW) '-------------------------ҵ����ϸ---------------------------- WW="#-#-#|" for i=0 to 15 WW=WW & YWDMX(i) & "|" next f.WriteLine (WW) f.write(DD) f.WriteLine("") '--------------------------��������ͻ���Ϣ 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 9 'ZFGJYF_num if len(ZFGJYF(i,1))>0 then WW="$3$3$|" & IJK & "|" for j=1 to 5 WW=WW & ZFGJYF(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\ASC365_Invoice\") & "\" & LLP & "\" & LLN & "\" & LLPP Set f=fs.CreateTextFile(Temp,true) '-------------------------�Ƿ���Է���---------------------------- WW="*-*-*|||||||" f.WriteLine (WW) '-------------------------ҵ����ϸ---------------------------- 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 IJK=1 for i=0 to 9 'ZFGJYF_num if len(ZFGJYF(i,1))>0 then WW="$3$3$|" & IJK & "|" for j=1 to 5 WW=WW & ZFGJYF(i,j) & "|" next f.WriteLine (WW) IJK=IJK+1 end if next 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\ASC365_Invoice\") & "\" & 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(15)=getNum(searchinfo) end if end if end if loop f33.Close set f33=nothing end if '---------------------------------------------------- %> <br> <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> <% if SFKYFH(0)<>"Y" then %> <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="60" value="<%=YWDMX(9)%>"> <span class="STYLE1">*</span></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="60" value="<%=YWDMX(10)%>"> <span class="STYLE1">*</span></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 Ubound(CJDP) %> <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="60" value="<%=YWDMX(11)%>"> <span class="STYLE1">*</span></td> </tr> <tr> <td height="20" width="150" bgcolor='#DDDDDD' align="left">�ͻ�Email</td> <td height="20" width="450" align="left" colspan="3"><input type="text" name="T1T4" size="60" 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"><input type="text" name="T1T12" size="60" value="<%=YWDMX(12)%>"> <span class="STYLE1">*</span></td> </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="60" 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="15" value="<%=YWDMX(13)%>"> <span class="STYLE1">*</span></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="15" value="<%=YWDMX(15)%>"> <span class="STYLE1">*</span></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> <span class="STYLE1">*</span> </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">���۵���ַ2</td> <td height="20" width="1050" align="left" colspan="7"><input type="text" name="T1T8" size="150" value="<%=YWDMX(8)%>"></td> </tr> <tr> <td height="20" width="1200" bgcolor='#DDDDDD' align="center" colspan="8"> <b><a target="_blank" href="<%="../../Admin/ASC365_Invoice/"&left(YWDMX(0),4)&"/"&left(YWDMX(0),6)&"/uploadTester.asp"%>"><%=YWDMX(0)&".jpg UPload"%></a></b> <% If fs.FileExists(Server.MapPath("..\..\Admin\ASC365_Invoice")&"\"&left(YWDMX(0),4)&"\"&left(YWDMX(0),6)&"\"&YWDMX(0)&".jpg")=true then Fileinf=" " %> <%=Fileinf%> <b><a target="_blank" href="<%="../../Admin/ASC365_Invoice/"&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>�� �� �� ϸ��<span class="STYLE1">*</span>��</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 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">�� ��</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> <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>ʵ �� �� ȡ �� �� �� �<span class="STYLE1">*</span>��</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 Ubound(SKFS) %> <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 Ubound(SKFSType) %> <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֧�������˷�######################################################################%> <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>�� �� �� Ϣ</B></font></td> </tr> <tr> <td height="20" width="40" bgcolor='#DDDDDD' align="center">���</td> <td height="20" width="160" bgcolor='#DDDDDD' align="center">���������ƣ�<font color="#FF0000">��ѡ</font>��</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> <% if Lcase(SFKYFH(2))<>"y" then JS=1 for i=0 to ZFGJYF_num j=0 %> <tr> <td height="20" width="40" bgcolor='#DDDDDD' align="center"><%=JS%></td><%j=j+1%> <td height="20" width="160" align="center"><%JPJ=i*100+j%> <Select name="<%="T5T"&JPJ%>" id="<%="T5T"&JPJ%>" ><option value="<%=ZFGJYF(i,j)%>"><%=ZFGJYF(i,j)%></option> <% for C_II=0 to Ubound(CYRMC_2) %> <option value="<%=CYRMC_2(C_II)%>"><%=CYRMC_2(C_II)%></option> <% next %> </Select> </td> <%j=j+1%> <td height="20" width="140" align="center"><%JPJ=i*100+j%><input type="text" name="<%="T5T"&JPJ%>" size="16" value="<%=ZFGJYF(i,j)%>"></td><%j=j+1%> <td height="20" width="160" align="center"><%JPJ=i*100+j%><input type="text" name="<%="T5T"&JPJ%>" size="18" value="<%=ZFGJYF(i,j)%>"></td><%j=j+1%> <td height="20" width="200" align="center"><%JPJ=i*100+j%><input type="text" name="<%="T5T"&JPJ%>" size="18" value="<%=ZFGJYF(i,j)%>"></td> <%j=j+1%> <td height="20" width="500" align="center"> <%JPJ=i*100+j%><input type="text" name="<%="T5T"&JPJ%>" size="65" value="<%=ZFGJYF(i,j)%>"></td><%j=j+1%> </tr> <% JS=JS+1 next else 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"><%JPJ=i*100+j%><input type="hidden" name="<%="T5T"&JPJ%>" size="16" value="<%=ZFGJYF(i,j)%>"> <%=ZFGJYF(i,j)%></td><%j=j+1%> <td height="20" width="140" align="center"><%JPJ=i*100+j%><input type="hidden" name="<%="T5T"&JPJ%>" size="16" value="<%=ZFGJYF(i,j)%>"><%=ZFGJYF(i,j)%></td><%j=j+1%> <td height="20" width="160" align="center"><%JPJ=i*100+j%><input type="hidden" name="<%="T5T"&JPJ%>" size="18" value="<%=ZFGJYF(i,j)%>"><%=ZFGJYF(i,j)%></td><%j=j+1%> <td height="20" width="200" align="center"><%JPJ=i*100+j%><input type="hidden" name="<%="T5T"&JPJ%>" size="26" value="<%=ZFGJYF(i,j)%>"><%=ZFGJYF(i,j)%></td><%j=j+1%> <td height="20" width="500" align="center"><%JPJ=i*100+j%><input type="hidden" name="<%="T5T"&JPJ%>" size="65" value="<%=ZFGJYF(i,j)%>"><%=ZFGJYF(i,j)%></td><%j=j+1%> </tr> <% JS=JS+1 next i=ZFGJYF_num j=0 %> <tr> <td height="20" width="40" bgcolor='#DDDDDD' align="center"><%=JS%></td><%j=j+1%> <td height="20" width="160" align="center"><%JPJ=i*100+j%> <Select name="<%="T5T"&JPJ%>" id="<%="T5T"&JPJ%>" ><option value="<%=ZFGJYF(i,j)%>"><%=ZFGJYF(i,j)%></option> <% for C_II=0 to Ubound(CYRMC_2) %> <option value="<%=CYRMC_2(C_II)%>"><%=CYRMC_2(C_II)%></option> <% next %> </Select> </td> <%j=j+1%> <td height="20" width="140" align="center"><%JPJ=i*100+j%><input type="text" name="<%="T5T"&JPJ%>" size="16" value="<%=ZFGJYF(i,j)%>"></td><%j=j+1%> <td height="20" width="160" align="center"><%JPJ=i*100+j%><input type="text" name="<%="T5T"&JPJ%>" size="18" value="<%=ZFGJYF(i,j)%>"></td><%j=j+1%> <td height="20" width="200" align="center"><%JPJ=i*100+j%><input type="text" name="<%="T5T"&JPJ%>" size="26" value="<%=ZFGJYF(i,j)%>"></td><%j=j+1%> <td height="20" width="500" align="center"><%JPJ=i*100+j%><input type="text" name="<%="T5T"&JPJ%>" size="65" value="<%=ZFGJYF(i,j)%>"></td><%j=j+1%> </tr> <% end if %> <tr> <td height="20" width="200" bgcolor='#DDDDDD' align="center" colspan="2">�� ��</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> <%'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"> �� �� �� ӡ �� Ʊ</td> <td height="20" width="600" bgcolor="#CCFFFF" align="center"><input type="radio" name="TFLAG" value="1" >�� <input type="radio" name="TFLAG" value="0" checked>�� </tr> </table> </td> </tr> <%'8888######################################################################%> </table> <p align="center"><input type="submit" value="Submit" name="B1"> <font color="#FF0000">����ע�������粻��������ɶ�����</font></p> </form> <% else %> <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="132" align="center"><%=YWDMX(0)%></td> <td height="20" width="150" align="center"> </td> <td height="20" width="150" align="center"> </td> <td height="20" 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" align="left" colspan="3"><%=YWDMX(1)%></td> <td height="20" width="144" bgcolor='#DDDDDD' align="right">Full Name</td> <td height="20" width="146" align="left"><%=YWDMX(9)%></td> <td height="20" align="left" colspan="2" rowspan="4"> </td> </tr> <tr> <td height="20" width="150" bgcolor='#DDDDDD' align="left">¼��ʱ��</td> <td height="20" align="left" colspan="3"><%=YWDMX(2)%></td> <td height="20" width="144" bgcolor='#DDDDDD' align="right">Street</td> <td height="20" width="146" align="left"><%=YWDMX(10)%></td> </tr> <tr> <td height="20" width="150" bgcolor='#DDDDDD' align="left">�ɽ�����</td> <td height="20" align="left" colspan="3"><%=YWDMX(3)%></td> <td height="20" width="144" bgcolor='#DDDDDD' align="right">City</td> <td height="20" width="146" align="left"><%=YWDMX(11)%></td> </tr> <tr> <td height="20" width="150" bgcolor='#DDDDDD' align="left">�ͻ�Email</td> <td height="20" align="left" colspan="3"><%=YWDMX(4)%></td> <td height="20" width="144" bgcolor='#DDDDDD' align="right">State/Province</td> <td height="20" width="146" align="left"><%=YWDMX(12)%></td> </tr> <tr> <td height="20" width="150" bgcolor='#DDDDDD' align="left">Ebay Item #</td> <td height="20" align="left" colspan="3"><%=YWDMX(5)%></td> <td height="20" width="144" bgcolor='#DDDDDD' align="right">Zip/Post Code</td> <td height="20" width="146" align="left"><%=YWDMX(13)%></td> <td height="20" width="124" 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" align="left" colspan="3"><%=YWDMX(6)%></td> <td height="20" width="144" bgcolor='#DDDDDD' align="right">Country</td> <td height="20" align="left" colspan="3"><%=YWDMX(14)%></td> </tr> <tr> <td height="20" width="150" bgcolor='#DDDDDD' align="left">���۵���ַ1</td> <td height="20" align="left" colspan="7"><%=YWDMX(7)%></td> </tr> <tr> <td height="20" width="150" bgcolor='#DDDDDD' align="left">���۵���ַ2</td> <td height="20" align="left" colspan="7"><%=YWDMX(8)%></td> </tr> <tr> </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>�� �� �� ϸ</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">�� ��</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> <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>ʵ �� �� ȡ �� �� �� ��</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>�� �� �� Ϣ</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">�� ��</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%> </table> <% end if end if %> <% response.write"<a href=invoice1.asp?LL=" response.write LLP & "&LN=" & LLN & "&LM=" &LLPP & " target='_black'>" response.write "��ӡ��Ʊ(��֧��IE5.0���������)</a>" response.write "<br/>" response.write "<br/>" response.write "<br/>" response.write "<br/>" response.write "<br/>" %> <%Set fs=Nothing%> </body> </html>