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"> <% if session("asc365allpassword")<>"8879365" then response.end Set fs=Server.CreateObject("Scripting.FileSystemObject") Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") '------------------------------------------------------------- Function YYMMDD(YMD) Y_Y = DatePart("yyyy",YMD) M_M = DatePart("m",YMD) : If Len(M_M) < 2 Then M_M = "0" & M_M D_D = DatePart("d",YMD) : If Len(D_D) < 2 Then D_D = "0" & D_D H_H = DatePart("h",YMD) : If Len(H_H) < 2 Then H_H = "0" & H_H N_N = DatePart("n",YMD) : If Len(N_N) < 2 Then N_N = "0" & N_N S_S = DatePart("s",YMD) : If Len(S_S) < 2 Then S_S = "0" & S_S YYMMDD = Y_Y & M_M & D_D & H_H & N_N & S_S end function '------------------------------------------------------------- function Adddot(NUM) if isnumeric(NUM)=0 then NUM=0 NUM=Round(NUM,2) if instr(NUM,".")=0 then NUM=NUM & ".00" tem=split(NUM,".") if len(tem(1))<2 then tem(1)=tem(1) &"0" if len(tem(1))>2 then tem(1)=left(tem(1),2) NUM=tem(0) &"."& tem(1) if NUM<0 and NUM>-1 and len(NUM)=4 then NUM="-0." & right(NUM,2) if NUM>0 and len(NUM)<4 then NUM="0" & NUM Adddot=NUM end function '------------------------------------------------------------- %> <title>������</title> </head> <body> <div align="center"><font color="#FF0000"><b><span style="font-size: 18pt">���ô�ASC���ʹ�˾������ʷ��ѯ</span></b></font> <br> <br> <% '----------------------------------------------------- RQ=YYMMDD(now) '--------------------------------- Dim YUE(11) YUE(0)="01" YUE(1)="02" YUE(2)="03" YUE(3)="04" YUE(4)="05" YUE(5)="06" YUE(6)="07" YUE(7)="08" YUE(8)="09" YUE(9)="10" YUE(10)="11" YUE(11)="12" '--------------------------------- Dim NIAN(50) Dim NIAN_JS NIAN_JS=0 for i=2012 to left(RQ,4)*1 NIAN(NIAN_JS)=i NIAN_JS=NIAN_JS+1 next '--------------------------------- From_Y= trim(request.form("T1")) if len(From_Y)<>4 then From_Y=NIAN(NIAN_JS-1) From_M= trim(request.form("T2")) if len(From_M)<>2 then From_M="01" To_Y= trim(request.form("T3")) if len(To_Y)<>4 then To_Y=NIAN(NIAN_JS-1) To_M= trim(request.form("T4")) if len(To_M)<>2 then To_M=Mid(RQ,5,2) %> <table border="0" width="580" height="25" style="border-collapse: collapse"> <tr><form method="POST" action=""> <td height="25" width="40"><p align="right"><font size="2"><b>From:</b></font></td> <td height="25" width="100" align="center"> <Select name="T1" id="T1" ><option value="<%=From_Y%>"><%=From_Y%></option> <% for C_II=0 to NIAN_JS-1 %> <option value="<%=NIAN(C_II)%>"><%=NIAN(C_II)%></option> <% next %> </Select><font size="3"><b> ��</b></font> </td> <td height="25" width="100" align="center"> <Select name="T2" id="T2" ><option value="<%=From_M%>"><%=From_M%></option> <% for C_II=0 to 11 %> <option value="<%=YUE(C_II)%>"><%=YUE(C_II)%></option> <% next %> </Select><font size="3"><b> ��</b></font> </td> <td height="25" width="40"><p align="right"><font size="2"><b>To:</b></font></td> <td height="25" width="100" align="center"> <Select name="T3" id="T3" ><option value="<%=To_Y%>"><%=To_Y%></option> <% for C_II=0 to NIAN_JS-1 %> <option value="<%=NIAN(C_II)%>"><%=NIAN(C_II)%></option> <% next %> </Select><font size="3"><b> ��</b></font> </td> <td height="25" width="100" align="center"> <Select name="T4" id="T4" ><option value="<%=To_M%>"><%=To_M%></option> <% for C_II=0 to 11 %> <option value="<%=YUE(C_II)%>"><%=YUE(C_II)%></option> <% next %> </Select><font size="3"><b> ��</b></font> </td> <td height="25" width="100" align="center"><input type="submit" value="Submit" name="B1"></td> </form> </tr> </table> <br><br> <% Dim Fro Dim Too Dim FILENAME_KC Dim TJNYS(50,1) '�����0����ͳ�Ƶ����·��ڴˣ�0-���һ�£�1-�����ڶ��£�2-���������£�4-...... '�����1�������µĻ��� Dim TJNYS_JS for i=0 to 50 TJNYS(i,1)=1 next Dim HJ(100) '�ϼ����ݷ��ڴ����飬0-��漰��;��1-���������ۼƣ�2-���һ�ºϼƣ�3-���һ�������ʣ�4-�����ڶ��ºϼƣ�4-�����ڶ���������...... '-------------------------------------------------------------------------- Dim JYZB(49,100) 'Ŀǰֻ������12���飬�ȶ���0����49����50���飬�㹻�� '@@����Ӫ�飬JYZB(i,0)-���ţ�JYZB(i,1)-���룬JYZB(i,2)-���ƣ�JYZB(i,3)-����JYZB(i,4)-���������� 'JYZB(i,5)-�����ۼƣ�JYZB(i,6)-�����ۼƹ����� 'JYZB(i,7)-���һ�½�JYZB(i,8)-���һ�¹����ʣ�JYZB(i,9)-���һ�������� 'JYZB(i,10)-�����ڶ��½�JYZB(i,11)-�����ڶ��¹����ʣ�JYZB(i,12)-�����ڶ��������ʣ�...... Dim JYZB_JS JYZB_JS=0 Dim JYZB_O(49,100) '�ϲ�Ʒ����ϼ�,Ŀǰֻ������12���飬�ȶ���0����49����50���飬�㹻��0��Ϊ�ܼƣ�49��Ϊʵ�ʵ�99�顣 Dim JYZB_N(49,100) '�²�Ʒ����ϼ�,Ŀǰֻ������12���飬�ȶ���0����49����50���飬�㹻��0��Ϊ�ܼƣ�49��Ϊʵ�ʵ�99�顣 Dim JYGS(20,100) '$$�ֹ�˾ Dim JYGS_JS JYGS_JS=0 Dim YWZB(499,100) 'Ŀǰֻ������140�����࣬�ȶ���0����499����500�����㹻�� '##����Ʒ�࣬YWZB(i,0)-���ţ�YWZB(i,1)-���룬YWZB(i,2)-���ƣ�YWZB(i,3)-����YWZB(i,4)-���������� 'YWZB(i,5)-�����ۼƣ�YWZB(i,6)-�����ۼƹ����� 'YWZB(i,7)-���һ�½�YWZB(i,8)-���һ�¹����ʣ�YWZB(i,9)-���һ�������� 'YWZB(i,10)-�����ڶ��½�YWZB(i,11)-�����ڶ��¹����ʣ�YWZB(i,12)-�����ڶ��������ʣ�...... DIm YWZB_JS YWZB_JS=0 Dim QTFY(20,100) '%%��������, DIm QTFY_JS QTFY_JS=0 Dim SKZH(49,100) '**�տ��˻�, DIm SKZH_JS SKZH_JS=0 '------------------------------------------ Dim JYZB_BB(49,5) 'Ŀǰֻ������12���飬�ȶ���0����49����50���飬�㹻�� '@@����Ӫ�飬JYZB_BB(i,0)-�³�����JYZB_BB(i,1)-�³�����������JYZB_BB(i,2)-��ĩ����JYZB_BB(i,3)-��ĩ�������� 'JYZB_BB(i,4)-��ĩ��;��JYZB_BB(i,5)-��ĩ�����;��� Dim JYZB_BB_O(49,5) '�ϲ�Ʒ����ϼ�,Ŀǰֻ������12���飬�ȶ���0����49����50���飬�㹻��0��Ϊ�ܼƣ�49��Ϊʵ�ʵ�99�顣 Dim JYZB_BB_N(49,5) '�²�Ʒ����ϼ�,Ŀǰֻ������12���飬�ȶ���0����49����50���飬�㹻��0��Ϊ�ܼƣ�49��Ϊʵ�ʵ�99�顣 Dim JYGS_BB(20,5) '$$�ֹ�˾ Dim YWZB_BB(499,5) 'Ŀǰֻ������140�����࣬�ȶ���0����499����500�����㹻�� '##����Ʒ�࣬YWZB_BB(i,0)-�³�����YWZB_BB(i,1)-�³�����������YWZB_BB(i,2)-��ĩ�����;��YWZB_BB(i,3)-��ĩ�����;������ 'YWZB_BB(i,4)-��ĩ��;��YWZB_BB(i,5)-��ĩ�����;��� Dim HJ_BB(5) '�ϼ����ݷ��ڴ����飬0-�³���1-��ĩ��棬2-��ĩ��;��3-��ĩ�ϼ� for i=0 to 5 HJ_BB(i)=0 next for i=0 to 49 for j=0 to 5 JYZB_BB(i,j)=0 '@@����Ӫ�飬 JYZB_BB_O(i,j)=0 '@@����Ӫ�飬 JYZB_BB_N(i,j)=0 '@@����Ӫ�飬 next next for i=0 to 20 for j=0 to 5 JYGS_BB(i,j)=0 '$$�ֹ�˾ next next for i=0 to 499 for j=0 to 5 YWZB_BB(i,j)=0 '##����Ʒ�� next next '-------------------------------------------------------------------------- Dim JYZB_Heji(3,100) Dim JYZB_BB_heji(3,5) for i=0 to 2 for j=3 to 100 JYZB_Heji(i,j) = 0 next for j = 0 to 5 JYZB_BB_heji(i,j) = 0 next next for i=0 to 100 HJ(i)=0 next for i=0 to 49 for j=3 to 100 JYZB(i,j)=0 '@@����Ӫ�飬 JYZB_O(i,j)=0 '@@����Ӫ�飬 JYZB_N(i,j)=0 '@@����Ӫ�飬 SKZH(i,j)=0 '**�տ��˻�, next next for i=0 to 20 for j=3 to 100 JYGS(i,j)=0 '$$�ֹ�˾ QTFY(i,j)=0 '%%��������, next next for i=0 to 499 for j=3 to 100 YWZB(i,j)=0 '##����Ʒ�� next next '---------------------------------------------------------------- Dim Detail_zubie(50,3) '���飬ҵ���飬��Ա z_i = 0 Temp = Server.MapPath("../../../ASC365_CWZ/WEB/WebAdmin/BUMENInf_YT") if fs.FileExists(Temp)=true then set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream=false str=f.ReadLine if len(str)>0 and lcase(left(str,1))="a" and lcase(left(str,3)) <> "a98" then str11=split(str,"|") Detail_zubie(z_i,1)="0"&right(str11(0),2) Detail_zubie(z_i,2)=str11(2) z_i=z_i+1 end if loop f.close:set f = nothing end if Temp = Server.MapPath("../../../ASC365_CWZ/WEB/WebAdmin/kezuwithhaoping") 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 str = split(YY,"|") for i = 0 to z_i*1 - 1 if str(0) = Detail_zubie(i,1) then Detail_zubie(i,0) = str(1) exit for end if next end if loop f.close set f = nothing end if if request.form("B1")="Submit" then Fro=From_Y & From_M Too=To_Y & To_M TJNYS_JS=0 Flag=Too do while Flag*1 >= Fro*1 'ȡҪͳ�Ƶ����������浽TJNYS()������ TJNYS(TJNYS_JS,0)=Flag TJNYS_JS=TJNYS_JS*1+1 Flag=Flag*1-1 if right(Flag,2)=0 then Flag=(left(Flag,4)*1-1) & "12" loop Fro_KS=Fro*1-1 if right(Fro_KS,2)=0 then Fro_KS=(left(Fro_KS,4)*1-1) & "12" TJNYS(TJNYS_JS,0)=Fro_KS 'Ϊ�˱�����ʼ�µ�ǰһ�µĻ��� '--------------------------------------------------------- Temp=Server.MapPath("..\..\..\ASC365_CWZ\Web\WebAdmin") & "\huilv.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 str=Split(YY,"|") for i=0 to TJNYS_JS*1 if TJNYS(i,0)*1=str(0)*1 then TJNYS(i,1)=str(2) exit for end if next end if loop f.Close Set f=Nothing end if '--------------------------------------------------------- Temp=Server.MapPath("..\..\..\ASC365_CWZ\Web\WebAdmin") & "\BUMENInf_YT" 'ҵ�������� If (fs.FileExists(Temp))=true then Set f=fs.OpenTextFile(Temp, 1) do while f.AtEndOfStream = false YY=trim(f.ReadLine) if left(YY,2)<>"//" and Lcase(left(YY,1))="a" then str=Split(YY,"|") JYZB(JYZB_JS,0)=str(2) 'ҵ�����Ա���� if right(str(0),2)<30 or right(str(0),2)>98 then JYZB(JYZB_JS,1)="0" & right(str(0),2) 'ҵ������� 'JYZB(JYZB_JS,2)=str(2) & "����" ' JYZB_JS = JYZB_JS+1 '------------------------ XXX=right(str(0),2) if XXX*1>49 then XXX=XXX*1-50 JYZB_O(XXX,1)=right(str(0),2)*1 & "��" JYZB_O(XXX,2)=str(2) JYZB_N(XXX,1)=right(str(0),2)*1 & "��" JYZB_N(XXX,2)=str(2) end if '------------------------ end if loop f.Close Set f=Nothing end if 'JYZB(JYZB_JS,0)="����" 'ҵ�����Ա���� 'JYZB(JYZB_JS,1)="999" 'ҵ������� 'JYZB(JYZB_JS,2)=str(2) & "����" ' 'JYZB_JS = JYZB_JS+1 '--------------------------------------------------------- Temp=Server.MapPath("..\..\..\ASC365_CWZ\Web\WebAdmin") & "\GSDMMC_Inf" '�ֹ�˾�������� If (fs.FileExists(Temp))=true then Set f=fs.OpenTextFile(Temp, 1) do while f.AtEndOfStream = false YY=trim(f.ReadLine) if left(YY,2)<>"//" then str=Split(YY,"|") JYGS(JYGS_JS,0)=str(1) '��˾���� JYGS(JYGS_JS,1)=str(0) '��˾���� 'JYGS(JYGS_JS,2)=str(2) & "����" ' JYGS_JS = JYGS_JS+1 end if loop end if f.Close Set f=Nothing '--------------------------------------------------------- Temp=Server.MapPath("..\..\..\ASC365_CWZ\Web\WebAdmin") & "\CPL_ZB_Inf" '��Ʒ������ҵ������ϵ If (fs.FileExists(Temp))=true then Set f=fs.OpenTextFile(Temp, 1) do while f.AtEndOfStream = false YY=trim(f.ReadLine) if left(YY,2)<>"//" then str=Split(YY,"|") YWZB(YWZB_JS,0)=str(0) & str(3) YWZB(YWZB_JS,1)=str(1) '���� YWZB(YWZB_JS,2)=str(2) '���� YWZB_JS = YWZB_JS+1 end if loop end if f.Close Set f=Nothing '--------------------------------------------------------- Temp=Server.MapPath("..\..\..\ASC365_CWZ\Web\WebAdmin") & "\QTFY_Inf_YT" '�������ô������ƶ��� If (fs.FileExists(Temp))=true then Set f=fs.OpenTextFile(Temp, 1) do while f.AtEndOfStream = false YY=trim(f.ReadLine) if left(YY,2)<>"//" then str=Split(YY,"|") QTFY(QTFY_JS,0)=str(1) '���� QTFY(QTFY_JS,1)=str(0) '���� 'QTFY(QTFY_JS,2)=str(2) QTFY_JS = QTFY_JS+1 end if loop end if f.Close Set f=Nothing '--------------------------------------------------------- Temp=Server.MapPath("..\..\..\ASC365_CWZ\Web\WebAdmin") & "\SKZH_Inf_YT" '�տ��˻� If (fs.FileExists(Temp))=true then Set f=fs.OpenTextFile(Temp, 1) do while f.AtEndOfStream = false YY=trim(f.ReadLine) if left(YY,2)<>"//" then str=Split(YY,"|") SKZH(SKZH_JS,0)=str(1) '���� SKZH(SKZH_JS,1)=str(0) '���� 'SKZH(SKZH_JS,2)=str(2) SKZH_JS = SKZH_JS+1 end if loop end if f.Close Set f=Nothing '---------------------------��漰��;------------------------------ FILENAME_Fro_KS="10000000HZ.TXT" '�ҳ��³������¿���ļ� Temp=Server.MapPath("..\..\..\ASC365_CANADA\Admin") & "\KJ_KCXS\" & Left(Fro_KS,4) & "\"& Fro_KS & "\" set fo=fs.GetFolder(Temp) for each x in fo.files Namee=x.Name if lcase(right(Namee,6))="hz.txt" and isnumeric(left(Namee,8)) then if left(Namee,8)*1 > left(FILENAME_Fro_KS,8)*1 then FILENAME_Fro_KS=Namee end if next set fo=nothing '---------------------------------- Temp=Server.MapPath("..\..\..\ASC365_CANADA\Admin") & "\KJ_KCXS\" & Left(Fro_KS,4) & "\"& Fro_KS & "\" & FILENAME_Fro_KS If (fs.FileExists(Temp))=true then HJ_BB(0)=0 Set f=fs.OpenTextFile(Temp, 1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if len(YY)<>0 then if left(YY,2)="##" then str=Split(YY,"|") for i=0 to JYZB_JS*1-1 if right(str(0),3)=JYZB(i,1) then JYZB_BB(i,0)=str(14)*1-str(11)*1 exit for end if next else str=Split(YY,"|") HJ_BB(0)=HJ_BB(0)*1+str(14)*1-str(11)*1 '-------------------------------------- for i=0 to 3 JYGS_BB(i,0)=JYGS_BB(i,0)*1+str(i*3+2)*1 '����0����ɼ�1���¸绪2����̨3���ܿ��4���ɽ�ɽ5��̹��6 next '============= if Ubound(str)>17 then for i=5 to int((Ubound(str)-5)/3) JYGS_BB(i-1,0)=JYGS_BB(i-1,0)*1+str(i*3+2)*1 next end if '-------------------------------------- for i=0 to YWZB_JS*1-1 if str(0)=YWZB(i,1) then YWZB_BB(i,0)=str(14)*1-str(11)*1 exit for end if next end if end if loop f.Close: Set f=Nothing '--------------ת��Ԫ------------- Rate=1 for i=0 to TJNYS_JS*1 if TJNYS(i,0)*1=left(FILENAME_Fro_KS,6)*1 then Rate=TJNYS(i,1) exit for end if next 'response.write Rate &"<br>" '---------------------------------- for i=0 to JYZB_JS*1-1 JYZB_BB(i,0)=Round((JYZB_BB(i,0)/Rate),2) next for i=0 to JYGS_JS*1-1 JYGS_BB(i,0)=Round((JYGS_BB(i,0)/Rate),2) next for i=0 to YWZB_JS*1-1 YWZB_BB(i,0)=Round((YWZB_BB(i,0)/Rate),2) next HJ_BB(0)=Round((HJ_BB(0)/Rate),2) '--------------�����------------- for i=0 to JYZB_JS*1-1 JYZB_BB(i,1)=Round((JYZB_BB(i,0)*100/HJ_BB(0)),2) next for i=0 to JYGS_JS*1-1 JYGS_BB(i,1)=Round((JYGS_BB(i,0)*100/HJ_BB(0)),2) next for i=0 to YWZB_JS*1-1 if YWZB(i,1)<900 then YWZB_BB(i,1)=Round((YWZB_BB(i,0)*100/HJ_BB(0)),2) end if next '---------------------------------- end if '------------------------------ FILENAME_KC="10000000HZ.TXT" '�ҳ����µ����¿���ļ� Temp=Server.MapPath("..\..\..\ASC365_CANADA\Admin") & "\KJ_KCXS\" & Left(TJNYS(0,0),4) & "\"& TJNYS(0,0) & "\" if fs.FolderExists(Temp) = false then response.write("<b><font color='#FF0000'>��ǰû��"& Left(TJNYS(0,0),4)&"��"& right(TJNYS(0,0),2)&"�µ����ݣ���������������</font></b></br>") response.end end if set fo=fs.GetFolder(Temp) for each x in fo.files Namee=x.Name if lcase(right(Namee,6))="hz.txt" and isnumeric(left(Namee,8)) then if left(Namee,8)*1 > left(FILENAME_KC,8)*1 then FILENAME_KC=Namee end if next set fo=nothing '---------------------------------- Temp=Server.MapPath("..\..\..\ASC365_CANADA\Admin") & "\KJ_KCXS\" & Left(TJNYS(0,0),4) & "\"& TJNYS(0,0) & "\" & FILENAME_KC '0-����|1-����Ӣ��������| '2-(��)��棤|3-��;��|4-�ϼ�| ------���ô������ '5-(��)��棤|6-��;��|7-�ϼ�| ------������ɼ���� '8-(��)��棤|9-��;��|10-�ϼ�| ------���ô��¸绪��� '11-(��)��棤|12-��;��|13-�ϼ�| ------�й���̨��� '14-(��)��棤|15-��;��|16-�ϼ�| ------�ܹ�˾������ '17-(��)��棤|18-��;��|19-�ϼ�| ------�����ɽ�ɽ��� '20-(��)��棤|21-��;��|22-�ϼ�| ------ '23-(��)��棤|24-��;��|25-�ϼ�| ------ '26-(��)��棤|27-��;��|28-�ϼ�| ------ '29-(��)��棤|30-��;��|31-�ϼ�| ------ '32-(��)��棤|33-��;��|34-�ϼ�| ------ '35-(��)��棤|36-��;��|37-�ϼ�| ------ '38-(��)��棤|39-��;��|40-�ϼ�| ------ '41-(��)��棤|42-��;��|43-�ϼ�| ------ '44-(��)��棤|45-��;��|46-�ϼ�| ------ If (fs.FileExists(Temp))=true then HJ_BB(1)=0 Set f=fs.OpenTextFile(Temp, 1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if len(YY)<>0 then if left(YY,2)="##" then str=Split(YY,"|") for i=0 to JYZB_JS*1-1 if right(str(0),3)=JYZB(i,1) then JYZB_BB(i,2)=str(14)*1-str(11)*1 JYZB_BB(i,4)=str(15)*1-str(12)*1 JYZB_BB(i,5)=str(16)*1-str(13)*1 exit for end if next else str=Split(YY,"|") HJ_BB(1)=HJ_BB(1)*1+str(14)*1-str(11)*1 HJ_BB(2)=HJ_BB(2)*1+str(15)*1-str(12)*1 HJ_BB(3)=HJ_BB(3)*1+str(16)*1-str(13)*1 '-------------------------------------- for i=0 to 3 JYGS_BB(i,2)=JYGS_BB(i,2)*1+str(i*3+2)*1 JYGS_BB(i,4)=JYGS_BB(i,4)*1+str(i*3+3)*1 JYGS_BB(i,5)=JYGS_BB(i,5)*1+str(i*3+4)*1 next '============= if Ubound(str)>17 then for i=5 to int((Ubound(str)-5)/3) JYGS_BB(i-1,2)=JYGS_BB(i-1,2)*1+str(i*3+2)*1 JYGS_BB(i-1,4)=JYGS_BB(i-1,4)*1+str(i*3+3)*1 JYGS_BB(i-1,5)=JYGS_BB(i-1,5)*1+str(i*3+4)*1 next end if '-------------------------------------- for i=0 to YWZB_JS*1-1 if str(0)=YWZB(i,1) then YWZB_BB(i,2)=str(14)*1-str(11)*1 YWZB_BB(i,4)=str(15)*1-str(12)*1 YWZB_BB(i,5)=str(16)*1-str(13)*1 exit for end if next end if end if loop f.Close: Set f=Nothing '--------------ת��Ԫ------------- Rate=6 for i=0 to TJNYS_JS*1 if TJNYS(i,0)*1=left(FILENAME_KC,6)*1 then Rate=TJNYS(i,1) exit for end if next 'response.write Rate &"<br>" '---------------------------------- for i=0 to JYZB_JS*1-1 JYZB_BB(i,2)=Round((JYZB_BB(i,2)/Rate),2) JYZB_BB(i,4)=Round((JYZB_BB(i,4)/Rate),2) JYZB_BB(i,5)=Round((JYZB_BB(i,5)/Rate),2) next for i=0 to JYGS_JS*1-1 JYGS_BB(i,2)=Round((JYGS_BB(i,2)/Rate),2) JYGS_BB(i,4)=Round((JYGS_BB(i,4)/Rate),2) JYGS_BB(i,5)=Round((JYGS_BB(i,5)/Rate),2) next for i=0 to YWZB_JS*1-1 YWZB_BB(i,2)=Round((YWZB_BB(i,2)/Rate),2) YWZB_BB(i,4)=Round((YWZB_BB(i,4)/Rate),2) YWZB_BB(i,5)=Round((YWZB_BB(i,5)/Rate),2) next HJ_BB(1)=Round((HJ_BB(1)/Rate),2) HJ_BB(2)=Round((HJ_BB(2)/Rate),2) HJ_BB(3)=Round((HJ_BB(3)/Rate),2) '--------------�����------------- for i=0 to JYZB_JS*1-1 JYZB_BB(i,3)=Round((JYZB_BB(i,5)*100/HJ_BB(3)),2) next for i=0 to JYGS_JS*1-1 JYGS_BB(i,3)=Round((JYGS_BB(i,5)*100/HJ_BB(3)),2) next for i=0 to YWZB_JS*1-1 if YWZB(i,1)<900 then YWZB_BB(i,3)=Round((YWZB_BB(i,5)*100/HJ_BB(3)),2) end if next '---------------------------------- end if '---------------------------------ȡ�³�����ĩ��ƽ��ֵ------------------------------ for i=0 to JYZB_JS*1-1 JYZB(i,3)=Round((JYZB_BB(i,0)*1+JYZB_BB(i,2)*1)/2,2) next for i=0 to JYGS_JS*1-1 JYGS(i,3)=Round((JYGS_BB(i,0)*1+JYGS_BB(i,2)*1)/2,2) next for i=0 to YWZB_JS*1-1 if YWZB(i,1)<900 then YWZB(i,3)=Round((YWZB_BB(i,0)*1+YWZB_BB(i,2)*1)/2,2) end if next HJ(0)=Round((HJ_BB(0)*1+HJ_BB(1)*1)/2,2) IF HJ(0)>0 then '--------------�����------------- for i=0 to JYZB_JS*1-1 JYZB(i,4)=Round((JYZB(i,3)*100/HJ(0)),2) next for i=0 to JYGS_JS*1-1 JYGS(i,4)=Round((JYGS(i,3)*100/HJ(0)),2) next for i=0 to YWZB_JS*1-1 if YWZB(i,1)<900 then YWZB(i,4)=Round((YWZB(i,3)*100/HJ(0)),2) end if next end if '---------------------------------- '----------------------------------------ȡÿ�µ���������--------------------------- for i=0 to TJNYS_JS-1 Temp=Server.MapPath("..\..\..\ASC365_CANADA\Admin") & "\KJ_KCXS\" & left(TJNYS(i,0),4) & "\" & TJNYS(i,0) & "\" & TJNYS(i,0) & ".sss" 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,2)="@@" then str=Split(YY,"|") for j=0 to JYZB_JS*1-1 if str(2)=JYZB(j,1) then JYZB(j,i*3+7)=str(4) JYZB(j,i*3+8)=str(5) JYZB(j,i*3+9)=str(6) JYZB(j,5)=JYZB(j,5)*1+str(4)*1 '�ϼ� exit for end if next elseif left(YY,2)="$$" then str=Split(YY,"|") for j=0 to JYGS_JS*1-1 if str(2)=JYGS(j,1) then JYGS(j,i*3+7)=str(4) JYGS(j,i*3+8)=str(5) JYGS(j,i*3+9)=str(6) JYGS(j,5)=JYGS(j,5)*1+str(4)*1 '�ϼ� exit for end if next elseif left(YY,2)="##" then str=Split(YY,"|") for j=0 to YWZB_JS*1-1 if str(2)=YWZB(j,1) then YWZB(j,i*3+7)=str(4) YWZB(j,i*3+8)=str(5) YWZB(j,i*3+9)=str(6) YWZB(j,5)=YWZB(j,5)*1+str(4)*1 '�ϼ� exit for end if next elseif left(YY,2)="%%" then str=Split(YY,"|") for j=0 to QTFY_JS*1-1 if str(2)=QTFY(j,1) then QTFY(j,i*3+7)=str(4) QTFY(j,i*3+8)=str(5) QTFY(j,i*3+9)=str(6) QTFY(j,5)=QTFY(j,5)*1+str(4)*1 '�ϼ� exit for end if next elseif left(YY,2)="**" then str=Split(YY,"|") for j=0 to SKZH_JS*1-1 if str(2)=SKZH(j,1) then SKZH(j,i*3+7)=str(4) SKZH(j,i*3+8)=str(5) SKZH(j,i*3+9)=str(6) SKZH(j,5)=SKZH(j,5)*1+str(4)*1 '�ϼ� exit for end if next else HJ(i*2+2)=YY HJ(1)=HJ(1)*1+YY*1 '�ϼ� end if end if loop f.Close Set f=Nothing end if next '----------------------�������ۻ������Ĺ�����------------------------- if HJ(1)*1 = 0 then response.write("<b><font color='#FF0000'>��ʱ����ںϼƽ��Ϊ0����Ӵ�ʱ�䷶Χ</font></b></br>") response.end end if for i=0 to JYZB_JS*1-1 '���㾭Ӫ�鹱���� JYZB(i,6)=Round((JYZB(i,5)*100/HJ(1)),2) next for i=0 to JYGS_JS*1-1 '����ֹ�˾������ JYGS(i,6)=Round((JYGS(i,5)*100/HJ(1)),2) next for i=0 to YWZB_JS*1-1 '�����Ʒ����� ' if YWZB(i,1)<900 then YWZB(i,6)=Round((YWZB(i,5)*100/HJ(1)),2) ' end if next for i=0 to SKZH_JS*1-1 '�����տ��˻������� SKZH(i,6)=Round((SKZH(i,5)*100/HJ(1)),2) next '--------------------��������ºϼƵ�������------------------ for i=0 to TJNYS_JS*1-2 '���һ����û�������� if HJ((i+1)*2+2)<>0 then HJ(i*2+3)=Round(((HJ(i*2+2)-HJ((i+1)*2+2))*100/HJ((i+1)*2+2)),2) 'else ' HJ(i*2+3)=100 end if next '--------------------��������µ�������--------------------- for i=0 to TJNYS_JS*1-2 '���һ����û�������� for j=0 to JYZB_JS*1-1 '���㾭Ӫ�� if JYZB(j,(i+1)*3+7)<>0 then JYZB(j,i*3+9)=Round(((JYZB(j,i*3+7)-JYZB(j,(i+1)*3+7))*100/JYZB(j,(i+1)*3+7)),2) 'else ' JYZB(j,i*3+9)=100 end if next next '===================================================================================== IJK=1 for i=0 to JYZB_JS-1 JYZB(i,3)=Adddot(JYZB(i,3)) if JYZB(i,3)=0 then JYZB(i,3)="" end if JYZB(i,4)=Adddot(JYZB(i,4)) if JYZB(i,4)=0 then JYZB(i,4)="" else JYZB(i,4)=JYZB(i,4) & "%" end if JYZB(i,5)=Adddot(JYZB(i,5)) if JYZB(i,5)=0 then JYZB(i,5)="" end if JYZB(i,6)=Adddot(JYZB(i,6)) if JYZB(i,6)=0 then JYZB(i,6)="" else JYZB(i,6)=JYZB(i,6) & "%" end if for j=0 to TJNYS_JS*1-2 JYZB(i,j*3+7)=Adddot(JYZB(i,j*3+7)) if JYZB(i,j*3+7)=0 then JYZB(i,j*3+7)="" end if JYZB(i,j*3+8)=Adddot(JYZB(i,j*3+8)) if JYZB(i,j*3+8)=0 then JYZB(i,j*3+8)="" else JYZB(i,j*3+8)=JYZB(i,j*3+8) & "%" end if JYZB(i,j*3+9)=Adddot(JYZB(i,j*3+9)) if JYZB(i,j*3+9)=0 then JYZB(i,j*3+9)="" else JYZB(i,j*3+9)=JYZB(i,j*3+9) & "%" end if next JYZB(i,(TJNYS_JS*1-1)*3+7)=Adddot(JYZB(i,(TJNYS_JS*1-1)*3+7)) if JYZB(i,(TJNYS_JS*1-1)*3+7)=0 then JYZB(i,(TJNYS_JS*1-1)*3+7)="" end if JYZB(i,(TJNYS_JS*1-1)*3+8)=Adddot(JYZB(i,(TJNYS_JS*1-1)*3+8)) if JYZB(i,(TJNYS_JS*1-1)*3+8)=0 then JYZB(i,(TJNYS_JS*1-1)*3+8)="" else JYZB(i,(TJNYS_JS*1-1)*3+8)=JYZB(i,(TJNYS_JS*1-1)*3+8) & "%" end if '-------------------------------------- JYZB_BB(i,0)=Adddot(JYZB_BB(i,0)) if JYZB_BB(i,0)=0 then JYZB_BB(i,0)="" end if JYZB_BB(i,1)=Adddot(JYZB_BB(i,1)) if JYZB_BB(i,1)=0 then JYZB_BB(i,1)="" else JYZB_BB(i,1)=JYZB_BB(i,1) & "%" end if JYZB_BB(i,2)=Adddot(JYZB_BB(i,2)) if JYZB_BB(i,2)=0 then JYZB_BB(i,2)="" end if JYZB_BB(i,3)=Adddot(JYZB_BB(i,3)) if JYZB_BB(i,3)=0 then JYZB_BB(i,3)="" else JYZB_BB(i,3)=JYZB_BB(i,3) & "%" end if JYZB_BB(i,4)=Adddot(JYZB_BB(i,4)) if JYZB_BB(i,4)=0 then JYZB_BB(i,4)="" end if JYZB_BB(i,5)=Adddot(JYZB_BB(i,5)) if JYZB_BB(i,5)=0 then JYZB_BB(i,5)="" end if next '-----------------------------�����������ʼ��ʾ------------------------------- %> <table border="1" width="<%=1500+260*(TJNYS_JS*1-1)%>" height="20" bordercolor="#33CCFF" style="border-collapse: collapse"> <tr> <td height="20" width="<%=1500+260*(TJNYS_JS*1-1)%>" bgcolor="#FF6EC7" align="left" colspan="<%=(TJNYS_JS*1-1)*3+14%>"><b> ��ҵ�������</b></td> </tr> <tr> <td height="20" width="60" bgcolor="#DDDDDD" align="center" rowspan="2">���</td> <td height="20" width="80" bgcolor="#DDDDDD" align="center" rowspan="2">�������</td> <td height="20" width="260" bgcolor="#DDDDDD" align="center" rowspan="2">ҵ�����Ա����</td> <% if Fro=Too then %> <td height="20" width="180" bgcolor="#DDDDDD" align="center" rowspan="2">������۱���</td> <% end if %> <td height="20" width="180" bgcolor="#DDDDDD" align="center" colspan="2">���ۻ�����</td> <% for i=0 to TJNYS_JS*1-2 %> <td height="20" width="260" bgcolor="#DDDDDD" align="center" colspan="3"><%=left(TJNYS(i,0),4)%>��<%=right(TJNYS(i,0),2)%>�����۶�</td> <% next %> <td height="20" width="180" bgcolor="#DDDDDD" align="center" colspan="2"><%=left(TJNYS(TJNYS_JS*1-1,0),4)%>��<%=right(TJNYS(TJNYS_JS*1-1,0),2)%>�����۶�</td> <td height="20" width="360" bgcolor="#DDDDDD" align="center" colspan="4"><%=left(TJNYS(0,0),4)%>��<%=right(TJNYS(0,0),2)%>��<%=mid(FILENAME_KC,7,2)%>�տ�漰��;(���˾)</td> <td height="20" width="160" bgcolor="#DDDDDD" align="center" colspan="2"><%=left(Fro_KS,4)%>��<%=right(Fro_KS,2)%>��<%=mid(FILENAME_Fro_KS,7,2)%>�տ��(���˾)</td> </tr> <tr> <td height="20" width="100" bgcolor="#DDDDDD" align="center">���<font color="#FF0000">$</font></td> <td height="20" width="80" bgcolor="#DDDDDD" align="center">������</td> <% for i=0 to TJNYS_JS*1-2 %> <td height="20" width="100" bgcolor="#DDDDDD" align="center">���<font color="#FF0000">$</font></td> <td height="20" width="80" bgcolor="#DDDDDD" align="center">������</td> <td height="20" width="80" bgcolor="#DDDDDD" align="center">������</td> <% next %> <td height="20" width="100" 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">�����<font color="#FF0000">$</font></td> <td height="20" width="100" bgcolor="#DDDDDD" align="center">��;���<font color="#FF0000">$</font></td> <td height="20" width="100" bgcolor="#DDDDDD" align="center">�ϼƽ��<font color="#FF0000">$</font></td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">����</td> <td height="20" width="100" bgcolor="#DDDDDD" align="center">���<font color="#FF0000">$</font></td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">����</td> </tr> <tr> <td height="20" width="60" align="center"></td> <td height="20" width="80" align="center"></td> <td height="20" width="260" align="center">�� ��</td> <% if Fro=Too then %> <td align="right" height="20" width="180"><%if Isnumeric(HJ(1))=true and Isnumeric(HJ_BB(1))=true then %><%=Round(HJ_BB(1)/HJ(1),2)%><%end if%></td> <% end if %> <td height="20" width="100" align="right"><font color="#FF0000"><%=Adddot(HJ(1))%></font></td> <td height="20" width="80" align="center"></td> <% for i=0 to TJNYS_JS*1-2 %> <td height="20" width="100" align="right"><font color="#FF0000"><%=Adddot(HJ(i*2+2))%></font></td> <td height="20" width="80" align="center"></td> <% if HJ(i*2+3)<>0 then%> <td height="20" width="80" align="right"><font color="#FF0000"><%=Adddot(HJ(i*2+3))%>%</font></td> <% else %> <td height="20" width="80" align="right"></td> <% end if %> <% next %> <td height="20" width="100" align="right"><font color="#FF0000"><%=Adddot(HJ((TJNYS_JS*1-1)*2+2))%></font></td> <td height="20" width="80" align="center"></td> <td height="20" width="100" align="right"><font color="#FF0000"><%=Adddot(HJ_BB(1))%></font></td> <td height="20" width="100" align="right"><font color="#FF0000"><%=Adddot(HJ_BB(2))%></font></td> <td height="20" width="100" align="right"><font color="#FF0000"><%=Adddot(HJ_BB(3))%></font></td> <td height="20" width="60" align="center"></td> <td height="20" width="100" align="right"><font color="#FF0000"><%=Adddot(HJ_BB(0))%></font></td> <td height="20" width="60" align="center"></td> </tr> <% for ii = 1 to 3 IJK=1 for i=0 to JYZB_JS-1 '-------------------------------------- kezu = 0 for jj = 0 to z_i*1 -1 if Detail_zubie(jj,1) = JYZB(i,1) then kezu = Detail_zubie(jj,0) exit for end if next '-------------------------------------- if kezu*1 = ii*1 then if (IJK mod 2)<>0 then %> <tr> <td height="20" width="60" align="center"><%=IJK%></td> <td height="20" width="80" align="center"><%=JYZB(i,1)%></td> <td height="20" width="260" align="left"><%=JYZB(i,0)%></td> <% if Fro=Too then %> <td height="20" width="180" align="right"><%if Isnumeric(JYZB_BB(i,2))=true and Isnumeric(JYZB(i,5))=true then %><%=Round(JYZB_BB(i,2)/JYZB(i,5),2)%><%end if%></td> <% end if %> <td height="20" width="100" align="right"><%=JYZB(i,5)%></td> <td height="20" width="80" align="right"><%=JYZB(i,6)%></td> <% for j=0 to TJNYS_JS*1-2 %> <td height="20" width="100" align="right"><%=JYZB(i,j*3+7)%></td> <td height="20" width="80" align="right"><%=JYZB(i,j*3+8)%></td> <td height="20" width="80" align="right"><%=JYZB(i,j*3+9)%></td> <% next %> <td height="20" width="100" align="right"><%=JYZB(i,(TJNYS_JS*1-1)*3+7)%></td> <td height="20" width="80" align="right"><%=JYZB(i,(TJNYS_JS*1-1)*3+8)%></td> <td height="20" width="100" align="right"><%=JYZB_BB(i,2)%></td> <td height="20" width="100" align="right"><%=JYZB_BB(i,4)%></td> <td height="20" width="100" align="right"><%=JYZB_BB(i,5)%></td> <td height="20" width="60" align="right"><%=JYZB_BB(i,3)%></td> <td height="20" width="100" align="right"><%=JYZB_BB(i,0)%></td> <td height="20" width="60" align="right"><%=JYZB_BB(i,1)%></td> </tr> <%else %> <tr> <td height="20" width="60" bgcolor="#99FFFF" align="center"><%=IJK%></td> <td height="20" width="80" bgcolor="#99FFFF" align="center"><%=JYZB(i,1)%></td> <td height="20" width="260" bgcolor="#99FFFF" align="left"><%=JYZB(i,0)%></td> <% if Fro=Too then %> <td height="20" width="180" align="right" bgcolor="#99FFFF" ><%if JYZB(i,5)<>"" and JYZB_BB(i,2)<>"" then %><%=Round(JYZB_BB(i,2)/JYZB(i,5),2)%><%end if%></td> <% end if %> <td height="20" width="100" bgcolor="#99FFFF" align="right"><%=JYZB(i,5)%></td> <td height="20" width="80" bgcolor="#99FFFF" align="right"><%=JYZB(i,6)%></td> <% for j=0 to TJNYS_JS*1-2 %> <td height="20" width="100" bgcolor="#99FFFF" align="right"><%=JYZB(i,j*3+7)%></td> <td height="20" width="80" bgcolor="#99FFFF" align="right"><%=JYZB(i,j*3+8)%></td> <td height="20" width="80" bgcolor="#99FFFF" align="right"><%=JYZB(i,j*3+9)%></td> <% next %> <td height="20" width="100" bgcolor="#99FFFF" align="right"><%=JYZB(i,(TJNYS_JS*1-1)*3+7)%></td> <td height="20" width="80" bgcolor="#99FFFF" align="right"><%=JYZB(i,(TJNYS_JS*1-1)*3+8)%></td> <td height="20" width="100" bgcolor="#99FFFF" align="right"><%=JYZB_BB(i,2)%></td> <td height="20" width="100" bgcolor="#99FFFF" align="right"><%=JYZB_BB(i,4)%></td> <td height="20" width="100" bgcolor="#99FFFF" align="right"><%=JYZB_BB(i,5)%></td> <td height="20" width="60" bgcolor="#99FFFF" align="right"><%=JYZB_BB(i,3)%></td> <td height="20" width="100" bgcolor="#99FFFF" align="right"><%=JYZB_BB(i,0)%></td> <td height="20" width="60" bgcolor="#99FFFF" align="right"><%=JYZB_BB(i,1)%></td> </tr> <% end if IJK=IJK+1 if JYZB(i,5) <> "" and IsNumeric(JYZB(i,5)) then JYZB_heji(ii*1-1,5) = JYZB_heji(ii*1-1,5)*1 + JYZB(i,5)*1 end if if JYZB(i,6) <> "" then if IsNumeric(left(JYZB(i,6),len(JYZB(i,6))-1)) then JYZB_heji(ii*1-1,6) = JYZB_heji(ii*1-1,6)*1 + left(JYZB(i,6),len(JYZB(i,6))-1)*1 end if end if for j=0 to TJNYS_JS*1-2 if JYZB(i,j*3+7) <> "" and IsNumeric(JYZB(i,j*3+7)) then JYZB_heji(ii*1-1,j*3+7) = JYZB_heji(ii*1-1,j*3+7)*1 + JYZB(i,j*3+7)*1 end if if JYZB(i,j*3+8) <> "" then if IsNumeric(left(JYZB(i,j*3+8),len(JYZB(i,j*3+8))-1)) then JYZB_heji(ii*1-1,j*3+8) = JYZB_heji(ii*1-1,j*3+8)*1 + left(JYZB(i,j*3+8),len(JYZB(i,j*3+8))-1)*1 end if end if next if JYZB(i,(TJNYS_JS*1-1)*3+7) <> "" and IsNumeric(JYZB(i,(TJNYS_JS*1-1)*3+7)) then JYZB_heji(ii*1-1,(TJNYS_JS*1-1)*3+7) = JYZB_heji(ii*1-1,(TJNYS_JS*1-1)*3+7)*1 + JYZB(i,(TJNYS_JS*1-1)*3+7)*1 end if if JYZB(i,(TJNYS_JS*1-1)*3+8) <> "" then if IsNumeric(left(JYZB(i,(TJNYS_JS*1-1)*3+8),len(JYZB(i,(TJNYS_JS*1-1)*3+8))-1)) then JYZB_heji(ii*1-1,(TJNYS_JS*1-1)*3+8) = JYZB_heji(ii*1-1,(TJNYS_JS*1-1)*3+8)*1 + left(JYZB(i,(TJNYS_JS*1-1)*3+8),len(JYZB(i,(TJNYS_JS*1-1)*3+8))-1)*1 end if end if if JYZB_BB(i,2) <> "" and IsNumeric(JYZB_BB(i,2)) then JYZB_BB_heji(ii*1-1,2) = JYZB_BB_heji(ii*1-1,2)*1 + JYZB_BB(i,2)*1 end if if JYZB_BB(i,4) <> "" and IsNumeric(JYZB_BB(i,4)) then JYZB_BB_heji(ii*1-1,4) = JYZB_BB_heji(ii*1-1,4)*1 + JYZB_BB(i,4)*1 end if if JYZB_BB(i,5) <> "" and IsNumeric(JYZB_BB(i,5)) then JYZB_BB_heji(ii*1-1,5) = JYZB_BB_heji(ii*1-1,5)*1 + JYZB_BB(i,5)*1 end if if JYZB_BB(i,0) <> "" and IsNumeric(JYZB_BB(i,0)) then JYZB_BB_heji(ii*1-1,0) = JYZB_BB_heji(ii*1-1,0)*1 + JYZB_BB(i,0)*1 end if if JYZB_BB(i,3) <> "" then if IsNumeric(left(JYZB_BB(i,3),len(JYZB_BB(i,3))-1)) then JYZB_BB_heji(ii*1-1,3) = JYZB_BB_heji(ii*1-1,3)*1 + left(JYZB_BB(i,3),len(JYZB_BB(i,3))-1)*1 end if end if if JYZB_BB(i,1) <> "" then if IsNumeric(left(JYZB_BB(i,1),len(JYZB_BB(i,1))-1)) then JYZB_BB_heji(ii*1-1,1) = JYZB_BB_heji(ii*1-1,1)*1 + left(JYZB_BB(i,1),len(JYZB_BB(i,1))-1)*1 end if end if end if next for j=0 to TJNYS_JS*1-2 '���һ����û�������� if JYZB_heji(ii*1-1,(j+1)*3+7)*1<>0 then JYZB_heji(ii*1-1,j*3+9)=Round(((JYZB_heji(ii*1-1,j*3+7)-JYZB_heji(ii*1-1,(j+1)*3+7))*100/JYZB_heji(ii*1-1,(j+1)*3+7)),2) end if next %> <tr bgcolor="#CCCCCC"> <td colspan="3" align="center"> <%if ii*1 = 1 then%> һ�ƺϼ� <%elseif ii*1 = 2 then%> ���ƺϼ� <%elseif ii*1 = 3 then%> ���ƺϼ� <%end if%> </td> <%if Fro=Too then%> <td height="20" width="180" align="right"><%if Isnumeric(JYZB_BB_heji(ii*1-1,2))=true and Isnumeric(JYZB_heji(ii*1-1,5))=true then %><%=Round(JYZB_BB_heji(ii*1-1,2)/JYZB_heji(ii*1-1,5),2)%><%end if%></td> <%end if%> <td height="20" width="100" align="right"><%=JYZB_heji(ii*1-1,5)%></td> <td height="20" width="80" align="right"><%=Adddot(JYZB_heji(ii*1-1,6))%>%</td> <% for j=0 to TJNYS_JS*1-2 %> <td height="20" width="100" align="right"><%=JYZB_heji(ii*1-1,j*3+7)%></td> <td height="20" width="80" align="right"><%=Adddot(JYZB_heji(ii*1-1,j*3+8))%>%</td> <td height="20" width="80" align="right"><%=Adddot(JYZB_heji(ii*1-1,j*3+9))%>%</td> <% next %> <td height="20" width="100" align="right"><%=JYZB_heji(ii*1-1,(TJNYS_JS*1-1)*3+7)%></td> <td height="20" width="80" align="right"><%=Adddot(JYZB_heji(ii*1-1,(TJNYS_JS*1-1)*3+8))%>%</td> <td height="20" width="100" align="right"><%=JYZB_BB_heji(ii*1-1,2)%></td> <td height="20" width="100" align="right"><%=JYZB_BB_heji(ii*1-1,4)%></td> <td height="20" width="100" align="right"><%=JYZB_BB_heji(ii*1-1,5)%></td> <td height="20" width="60" align="right"><%=Adddot(JYZB_BB_heji(ii*1-1,3))%>%</td> <td height="20" width="100" align="right"><%=JYZB_BB_heji(ii*1-1,0)%></td> <td height="20" width="60" align="right"><%=Adddot(JYZB_BB_heji(ii*1-1,1))%>%</td> </tr> <% next '================================================================================ %> <% '================================================================================ %> </table> <% end if %> </div> <%Set fs=Nothing%> </html>