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
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <head> <style> .v {border-collapse: collapse; border:1px solid #00FFFF} .v td{border:1px solid #60FFFF;} </style> </head> <% 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 '----------------------------------------------------------------- %> <body style="margin:0 auto; text-align:center; width:1200px"> <% if request.Form("log")="Login" then pass=request.Form("pass") if pass="asc365pass" then response.Cookies("pass")="asc365pass" end if end if pass=request.Cookies("pass") if pass<>"asc365pass" then if pass<>"asc365pass" then %> <form method="POST" action=""> <p><font size="3" face="Verdana">���������룺</font> <font face="Verdana" size="2"> <input type="password" name="pass" size="12" > </font> <input type="submit" value="Login" name="log"></p> </form> <% response.End() end if end if %> <% Dim DL(999,30) '0-��Ʒ����,1-��Ʒ����ȫ��,2-��ƷӢ��ȫ��,3-���,4-��λ,5-��װ����/��λ,6-��ɫ,7-�ͺ�,8-��ѹ(����),9-Ƶ��(Hz),10-��Ʒ�ߴ�(L*W*H) '11-��Ʒ����(Kg),12-���װ�ߴ�(L*W*H),13-�������(M3),14-��Ʒë��(Kg),15-���ô�۸�,16-�ܴ���۸�, '17��������1��18�������۸����ڣ�19�������۸�20����ע '21��������2��22�������۸����ڣ�23�������۸�24����ע '25��������3��26�������۸����ڣ�27�������۸�28����ע��29��ϵ�� dl_i=0 Dim Tproduct(50) Dim mm(16) Dim yiyi(10000,2) Dim Pro(50) yiyi_i=0 It_No=request.Cookies("It_No") Temp=server.MapPath("yiyi/"&It_No&".txt") if (fs.FileExists(Temp)=true) then set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream=false temp11=trim(f.ReadLine) if len(temp11)>0 then temp12=split(temp11,"|") yiyi(yiyi_i,0)=temp12(0) yiyi(yiyi_i,1)=temp12(1) yiyi_i=yiyi_i+1 end if loop f.close set f=nothing end if 'if request.form("It_B")="Search" and Isnumeric(It_No)=true and len(It_No)=6 then if request.Form("B1")="Submit" then for ss=0 to 1000 yiyi(ss,0)="" yiyi(ss,1)="" next jjj=0 for i=0 to 999 productid=request.Form("product"&i) kucun=request.Form("kucun"&i) kemai=request.Form("kemai"&i) ttyiyi=request.Form("yiyi"&i) beizhu=request.Form("beizhu"&i) if len(productid)=6 then LL=left(productid,3) RR=right(productid,3) if ttyiyi=0 then yiyi(jjj,0)=productid yiyi(jjj,1)=beizhu jjj=jjj+1 end if Temp=Server.MapPath("../../Admin/")&"/"&LL&"/"&RR&"/Tech.inc" if (fs.FileExists(Temp))=true then set f=fs.OpenTextFile(Temp,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 set f=fs.CreateTextFile(Temp,true) Pro(28)= kucun Pro(27)=kemai for s = 0 to 50 f.writeLine(Pro(s)) next f.close :set f=nothing end if end if next Temp=server.MapPath("yiyi/"&It_No&".txt") set f=fs.CreateTextFile(Temp,true) for ds=0 to jjj-1 f.writeLine(yiyi(ds,0)&"|"&yiyi(ds,1)) next f.close:set f=nothing end if if request.Form("It_B")="Search" then It_No=request.Form("Ta") Response.Cookies("It_No")=It_No end if It_No=request.Cookies("It_No") if Isnumeric(It_No)=true and len(It_No)=3 then yiyi_i=0 Temp=server.MapPath("yiyi/"&It_No&".txt") if (fs.FileExists(Temp)=true) then set f=fs.OpenTextFile(Temp,1) do while f.AtEndOfStream=false temp11=trim(f.ReadLine) if len(temp11)>0 then temp12=split(temp11,"|") yiyi(yiyi_i,0)=temp12(0) yiyi(yiyi_i,1)=temp12(1) yiyi_i=yiyi_i+1 end if loop f.close set f=nothing end if For i=0 to 999 LLN=right("000"&i,3) 'Dim Tproduct(50) for ss=0 to 49 Tproduct(ss)="" next Temp=Server.MapPath("../../Admin/")&"/"&It_No&"/"&LLN&"/Tech.inc" if (fs.FileExists(Temp))=true then set f=fs.OpenTextFile(Temp,1) j=0 do while f.AtEndOfStream=false Tproduct(j)=trim(f.ReadLine) j=j+1 if j>30 then exit do loop DL(dl_i,0)=Tproduct(0) DL(dl_i,1)=Tproduct(1) DL(dl_i,2)=Tproduct(2) DL(dl_i,9)=Tproduct(28) DL(dl_i,13)=Tproduct(27) Temp=Server.MapPath("../../Admin/")&"/"&It_No&"/"&LLN&"/Store.inc" for ss=0 to 16 mm(ss)=0 next if (fs.FileExists(Temp))=true then set f=fs.OpenTextFile(Temp,1) j=0 do while f.AtEndOfStream=false mm(j)=trim(f.ReadLine) j=j+1 if j>16 then exit do loop end if DL(dl_i,3)=mm(3) DL(dl_i,6)=mm(9) Temp=Server.MapPath("../../../ASC365_los/Admin/")&"/"&It_No&"/"&LLN&"/Store.inc" for ss=0 to 16 mm(ss)=0 next if (fs.FileExists(Temp))=true then set f=fs.OpenTextFile(Temp,1) j=0 do while f.AtEndOfStream=false mm(j)=trim(f.ReadLine) j=j+1 if j>16 then exit do loop end if DL(dl_i,4)=mm(3) Temp=Server.MapPath("../../../ASC365_van/Admin/")&"/"&It_No&"/"&LLN&"/Store.inc" for ss=0 to 16 mm(ss)="" next if (fs.FileExists(Temp))=true then set f=fs.OpenTextFile(Temp,1) j=0 do while f.AtEndOfStream=false mm(j)=trim(f.ReadLine) j=j+1 if j>16 then exit do loop end if DL(dl_i,5)=mm(3) Temp=Server.MapPath("../../../ASC365_YYT/Admin/")&"/"&It_No&"/"&LLN&"/Store.inc" for ss=0 to 16 mm(ss)="" next if (fs.FileExists(Temp))=true then set f=fs.OpenTextFile(Temp,1) j=0 do while f.AtEndOfStream=false mm(j)=trim(f.ReadLine) j=j+1 if j>16 then exit do loop end if DL(dl_i,14)=mm(3) Tech=server.MapPath("../../Admin/ZT_CANADA.ss") If (fs.FileExists(Tech))=true then set f=fs.OpenTextFile(Tech,1) do while f.AtEndOfStream=false temp1=f.ReadLine if len(Temp1)>0 then Temp=split(temp1,"|") if It_No&LLN=Temp(0) then DL(dl_i,10)=Temp(1) end if end if loop f.close set f=nothing end if Tech=server.MapPath("../../Admin/ZT_LOSUSA.ss") If (fs.FileExists(Tech))=true then set f=fs.OpenTextFile(Tech,1) do while f.AtEndOfStream=false temp1=f.ReadLine if len(Temp1)>0 then Temp=split(Temp1,"|") if It_No&LLN=Temp(0) then DL(dl_i,11)=Temp(1) end if end if loop f.close set f=nothing end if Tech=server.MapPath("../../Admin/ZT_WGHCAN.ss") If (fs.FileExists(Tech))=true then set f=fs.OpenTextFile(Tech,1) do while f.AtEndOfStream=false temp1=f.ReadLine if len(Temp1)>0 then Temp=split(Temp1,"|") if It_No&LLN=Temp(0) then DL(dl_i,12)=Temp(1) end if end if loop f.close set f=nothing end if Tech=server.MapPath("../../Admin/ZT_YYTCHI_IN.ss") If (fs.FileExists(Tech))=true then set f=fs.OpenTextFile(Tech,1) do while f.AtEndOfStream=false temp1=f.ReadLine if len(Temp1)>0 then Temp=split(Temp1,"|") if It_No&LLN=Temp(0) then DL(dl_i,15)=Temp(1) end if end if loop f.close set f=nothing end if for s=0 to yiyi_i-1 if yiyi(s,0)=DL(dl_i,0) then DL(dl_i,7)=yiyi(s,1) DL(dl_i,8)=1 end if next dl_i=dl_i+1 end if next end if %> <br> <form method="POST" action=""> <p><font size="3" face="Verdana">������ǰ��λ��Ʒ���룺</font> <font face="Verdana" size="2"> <input type="text" name="Ta" size="6" value="<%=It_No%>"> </font> <input type="submit" value="Search" name="It_B"></p> </form> <br> <div>"�Ƿ������"����ָ����Ʒ��ʵ�ʵ���Ʒ������С�Ŀ�浥λ���������֮���������Ʒ���ڿ��ͳ���У���Ҫͳ�ƽ�ȥ�� �����Ʒ���ܿ�棬�뽫������Ϊ<font color="#FF0000">n</font><br> ��Կ�������壬<font color="#FF0000">����ѡ���ǣ�</font>Ȼ���ں��汸ע��ע������,�Դ������</div> <table width="1200" border="1" cellspacing="0" cellpadding="0" class="v"> <tr> <th width="60" scope="col">��Ʒ����</th> <th width="138" scope="col">��������</th> <th width="138" scope="col">Ӣ������</th> <th width="50" scope="col">����</th> <th width="80" scope="col">�Ƿ������</th> <th width="80" scope="col">�Ƿ������Ʒ</th> <th width="60" scope="col">������</th> <th width="60" scope="col">������;</th> <th width="60" scope="col">��ɼ����</th> <th width="60" scope="col">��ɼ���;</th> <th width="60" scope="col">�¸绪���</th> <th width="60" scope="col">�¸绪��;</th> <th width="60" scope="col">��̨���</th> <th width="60" scope="col">��̨��;</th> <th width="100" scope="col">�Ƿ�Կ��������</th> <th width="151" scope="col">��ע</th> </tr> <form method="POST" action="?Action=Change"> <% for i=0 to dl_i-1 if len(DL(i,0))>0 then if DL(i,3)="0"then DL(i,3)="" end if if DL(i,4)="0"then DL(i,4)="" end if if DL(i,5)="0"then DL(i,5)="" end if if DL(i,14)="0"then DL(i,14)="" end if %> <tr><input type="hidden" name="product<%=i%>" size="6" value="<%=DL(i,0)%>"> <td width="60"><%=DL(i,0)%></td> <td width="138"><%=DL(i,1)%></td> <td width="138"><%=DL(i,2)%></td> <td width="50"><%=DL(i,6)%></td> <td width="80"><input type="text" name="kucun<%=i%>" size="6" value="<%=DL(i,9)%>"></td> <td width="80"><input type="text" name="kemai<%=i%>" size="6" value="<%=DL(i,13)%>"></td> <td width="60"><%=DL(i,3)%></td> <td width="60"><%=DL(i,10)%></td> <td width="60"><%=DL(i,4)%></td> <td width="60"><%=DL(i,11)%></td> <td width="60"><%=DL(i,5)%></td> <td width="60"><%=DL(i,12)%></td> <td width="60"><%=DL(i,14)%></td> <td width="60"><%=DL(i,15)%></td> <td width="100"> <% if DL(i,8)=1 then %> <input type="radio" name="yiyi<%=i%>" value="0" checked="checked">��</input><input type="radio" name="yiyi<%=i%>" value="1" >��</input> <% else %> <input type="radio" name="yiyi<%=i%>" value="0">��</input><input type="radio" name="yiyi<%=i%>" value="1" checked="checked">��</input> <% end if %> </td> <td width="151"><input type="text" name="beizhu<%=i%>" size="40" value="<%= DL(i,7)%>"></td> </tr> <% end if next %> <tr> <td colspan="10" align="center"><input type="submit" value="Submit" name="B1"></td> </tr> </form> </table> </div> </body> </html>