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

<%set fs=Server.CreateObject("Scripting.FileSystemObject") %>
<%Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")%>
<style type="text/css">

</style>
<body>
<%
Dim kk(50)
Dim TB(50)
Dim St(16)
Dim DL(1000)
xxx=Request.Cookies("ItemID")
'---------------------------------------------------------
Dim JYZB(99)
JYZB_JS=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
		YY=trim(f.ReadLine)
		if left(YY,2)<>"//" and Lcase(left(YY,1))="a" then 
			str=Split(YY,"|")
			JYZB(JYZB_JS)="0" & right(str(0),2)	'ҵ�������
			JYZB_JS = JYZB_JS+1
		end if
	loop
end if
f.Close
Set f=Nothing
JYZB_JS = JYZB_JS-1
'---------------------------------------------------------

Tech=Server.MapPath(xxx &"/Store.inc")
If (fs.FileExists(Tech))=true then
	Set f=fs.OpenTextFile(Tech, 1)
	i=0
	do while f.AtEndOfStream = false
		st(i)=trim(f.ReadLine)
		i=i+1
		if i=17 then exit do
	loop
	f.Close: Set f=Nothing
end if 
'----------------------------------------------------
if request.form("BB1")="Submit" then     
    for i= 0 to 50                              '���ز�Ʒ�۸���
	    TB(i)= trim(request.form("TT"&i))
    next
    Set f=fs.OpenTextFile(Server.MapPath(xxx &"/Tech.inc"), 1)
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then f.skipline
    if f.AtEndOfStream=false then TB(27) = trim(f.ReadLine)
    if f.AtEndOfStream=false then TB(28) = trim(f.ReadLine)
    f.Close:Set f=Nothing
    if len(TB(27)) = 0 then TB(27) = "Y"
    if len(TB(28)) = 0 then TB(28) = "Y"
    if InStr(TB(1),chr(9)) or InStr(TB(2),chr(9)) then
        response.write("<div align='center'><b><font color='#FF0000'>����Ĳ�Ʒ�����пո��뽫��ɾ�������ύ��</font></b></div></br>")
    else
    st(9)=trim(request.form("STT"))
    TB(25)="N"
	zhongliang=TB(9)
	if Isnumeric(zhongliang) then
	    TB(10)=FormatNumber(zhongliang*2.2046,2,-1)
	end if
	tiji1=TB(14)
	tiji2=""
    if len(tiji1)>0 then
       str=split(tiji1,"*")
       if ubound(str)=2 then
           if Isnumeric(str(0)) and Isnumeric(str(1)) and Isnumeric(str(2)) then
		       largenumber=str(0)
			   number1=str(1)
			   number2=str(2)
			   if largenumber<str(1) then
			      largenumber=str(1)
				  number1=str(0)
			   end if
			   if largenumber<str(2) then
			      number2=largenumber
			      largenumber=str(2)
			   end if
			   chaochang=largenumber*1+(number1*1+number2*1)*2
			   if chaochang>=330 then
			      TB(25)="Y"
			   else
			      TB(25)="N"
			   end if
			   TB(15)=FormatNumber(str(0)*0.3937,2,-1)&"*"&FormatNumber(str(1)*0.3937,2,-1)&"*"&FormatNumber(str(2)*0.3937,2,-1)
			   if isnumeric(TB(29))=false then
			      TB(29)=FormatNumber(str(0)*str(1)*str(2)/1000000,4,-1)
			   end if
	       end if
       end if
    end if
	
    tiji2=TB(15)
    if len(tiji2)>0 then
       str=split(tiji2,"*")
       if ubound(str)=2 then
           if Isnumeric(str(0)) and Isnumeric(str(1)) and Isnumeric(str(2)) then
		      if isnumeric(TB(30))=false then
	            TB(30)=FormatNumber(str(0)*str(1)*str(2)/166,1,-1)
			  end if
	       end if
       end if
    end if
	if len(TB(23))=0 then
	     TB(23)=Session("username")
	end if
	
	if len(st(9))=3 and len(Trim(TB(0)))=6 and len(TB(1))<>0 and len(TB(2))<>0 and len(TB(4))<>0  and len(TB(5))<>0 and len(TB(9))<>0 and len(TB(10))<>0 and len(TB(14))<>0 and len(TB(15))<>0 and len(TB(25))<>0 and len(TB(27))<>0 and len(TB(28))<>0  and len(TB(29))<>0 then
	    Tech=Server.MapPath(xxx &"/Store.inc")
	    If (fs.FileExists(Tech))=true then
	    	Set f=fs.OpenTextFile(Tech, 1)
	    	i=0
	    	do while f.AtEndOfStream = false
		    	st(i)=trim(f.ReadLine)
		    	i=i+1
		    	if i=17 then exit do
	    	loop
	    	f.Close: Set f=Nothing
	    end if 
		'----------------------------------------------------
		set f=fs.CreateTextFile(Server.MapPath(xxx &"/Store.inc"),true)  'д���Ʒ�۸�
		f.writeline request.Cookies("ItemNo")&xxx
		st(9)=trim(request.form("STT"))
		for i= 1 to 16
			f.writeline(st(i))
		next
		f.close
		set f=nothing
		'----------------------------------------------------
		set f=fs.CreateTextFile(Server.MapPath(xxx &"/Tech.inc"),true)  'д���Ʒ��������
		f.writeline request.Cookies("ItemNo")&xxx
		'response.write left(pagename,3)&xxx
		for i= 1 to 50
			f.writeline(TB(i))
		next     
		f.close
		set f=nothing
		 Temp=Server.MapPath("../../../ASC365_CANADA/TJGSCPXX/CPXX_" & left(TB(0),3) & ".txt")
	      '--------------------------------------------------
	        If (fs.FileExists(Temp))=true then
		       Set f=fs.OpenTextFile(Temp, 1)
		         j=0
                 flg_change=0
		         do while f.AtEndOfStream = false
			       DL(j)=trim(f.ReadLine)
				   sk=0
				   if len(DL(j))>0 then
				     str=split(DL(j),"|")
				     if TB(0)=str(0) then
                        if str(12)<>TB(14) or str(13)<>TB(29) or str(14)<>TB(9) then
                           str(12)=TB(14)
                           str(13)=TB(29)
                           str(14)=TB(9)
                           '--------------- �޸ĺ���ϵ�� -----------
                           if IsNumeric(str(15)) then
                                if str(15) > 0 then
                                    haiyunxishu = str(13)*180*6/str(15)
                                    if haiyunxishu*1 >0.25 then
                                        str(29) = round(haiyunxishu*1+1,2)
                                    else
                                        str(29) = 1.25
                                    end if
                                else
                                    str(29) = 1.25
                                end if
                           else
                                str(29) = 1.25
                           end if
                           flg_change=1
                           end if
					   sk=1
				     end if
				     if sk=1 then
				      str1=""
					  for ss=0 to ubound(str) - 1
				        str1=str1&str(ss)&"|" 
					  next
					  DL(j)=str1
				     end if
				   end if
			       j=j+1
			       if j=1000 then exit do
		        loop
		        f.Close
		        Set f=Nothing
                if 1=flg_change then
                    set f=fs.CreateTextFile(Temp,true)
                    for ss=0 to j-1
                       f.WriteLine(DL(ss))
                    next
                    f.close
                    set f=nothing
                end if
	        end if
	else
	    if len(st(9))=3 and len(TB(0))=6 and len(TB(1))<>0 and len(TB(2))<>0 and len(TB(4))<>0  and len(TB(5))<>0 and len(TB(9))=0 and len(TB(10))=0 and len(TB(14))=0 and len(TB(15))=0 and len(TB(27))=0 and len(TB(28))=0  then 
		  Tech=Server.MapPath(xxx &"/Store.inc")
	      If (fs.FileExists(Tech))=true then
	    	Set f=fs.OpenTextFile(Tech, 1)
	    	i=0
	    	do while f.AtEndOfStream = false
		    	st(i)=trim(f.ReadLine)
		    	i=i+1
		    	if i=17 then exit do
	    	loop
	    	f.Close: Set f=Nothing
	      end if 
		'----------------------------------------------------
		  set f=fs.CreateTextFile(Server.MapPath(xxx &"/Store.inc"),true)  'д���Ʒ�۸�
		    f.writeline request.Cookies("ItemNo")&xxx
		    st(9)=trim(request.form("STT"))
		    for i= 1 to 16
			   f.writeline(st(i))
	        next
		    f.close
		  set f=nothing
		'----------------------------------------------------
		  set f=fs.CreateTextFile(Server.MapPath(xxx &"/Tech.inc"),true)  'д���Ʒ��������
		  f.writeline request.Cookies("ItemNo")&xxx
		  'response.write left(pagename,3)&xxx
		  for i= 1 to 50
			f.writeline(TB(i))
		  next     
		  f.close
		  set f=nothing
		  
		end if
	end if
    '���ǹܿ����۲�Ʒ��д���ļ�Product_tongji.inc ���룬���ƣ���λ,��ֻ�в�������޸Ŀ��ۣ��ܿ�棬�������ﲻ��ɾ���룩
    flg_find = 0
    if lcase(trim(TB(27)))="y" and lcase(trim(TB(28))) ="y" then
        Temp=Server.MapPath("../Product_tongji.inc")
        '--------------------------------------------------
        If (fs.FileExists(Temp))=false then 
            set f = fs.CreateTextFile(Temp,true)
        end if
        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,6) = TB(0) then
                        flg_find = 1
                        exit do
                    end if
                end if 
            loop
            f.close
            set f = nothing
        end if
        if flg_find*1 = 0 then
            set f = fs.OpenTextFile(Temp,8)
            f.Writeline(TB(0) & "|"& TB(1) & "|" & TB(4)& "|" & st(9))
            f.close
            set f = nothing
        end if
    end if

end if 'if ��Ʒ�������Ʊ��
end if
'----------------------------------------------------
Set f=fs.OpenTextFile(Server.MapPath(xxx &"/Tech.inc"), 1)
for ss= 0 to 50
	TB(ss)=""
next
i=0
   do while f.AtEndOfStream=false
    WW=trim(f.ReadLine)
	TB(i)=WW
	i=i+1
   loop
f.Close:Set f=Nothing
'----------------------------------------------------
Tech=Server.MapPath(xxx &"/Store.inc")
If (fs.FileExists(Tech))=true then
	Set f=fs.OpenTextFile(Tech, 1)
	i=0
	do while f.AtEndOfStream = false
		st(i)=trim(f.ReadLine)
		i=i+1
		if i=17 then exit do
	loop
	f.Close: Set f=Nothing
end if 
'----------------------------------------------------

i=0
Set f=fs.OpenTextFile(Server.MapPath("../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="796" height="43" style="border-collapse: collapse">
<tr><form method="post" action="">
	<td height="43" width="800" bgcolor="efefef">
	<table border="1" width="796" height="18" style="border-collapse: collapse" bordercolor="#C3DAF9">
	<% S=0:ii=0: for n=0 to 30 %>
	<tr>
	<%if len(kk(ii))=0 then exit for %>
	<td height="18" width="150"><p align="right"><font size="2"><%=KK(ii)%></font></td>
	<td height="18" width="250">
	<input type="text" name="<%="TT" & S %>" <% s=s+1%> size="40" style="font-size: 12px; font-family: Verdana"value="<%=TB(ii)%>"<%if ii*1 = 28 then%> disabled="disabled" <%end if%>><% ii=ii+1 %></td>
	<%if len(kk(ii))=0 then exit for %>
	<td height="18" width="150"><p align="right"><font size="2"><%=KK(ii)%></font></td>
	<td height="18" width="250">
	<input type="text" name="<%="TT" & S %>" <% s=s+1%> size="40" style="font-size: 12px; font-family: Verdana"value="<%=TB(ii)%>"<%if ii*1 = 27 then%> disabled="disabled" <%end if%>><% ii=ii+1 %></td>
	</tr>
	<% next %>
	<tr>
	   <td height="18" width="150"><p align="right"><font size="2"><span class="STYLE1">**</span>ҵ�������</font></td>
	   <td height="18" width="250">
	   <select name="STT" id="STT" ><option value="<%=ST(9)%>"><%=ST(9)%></option>
         <% for C_II=0 to JYZB_JS %>
       <option value="<%=JYZB(C_II)%>"><%=JYZB(C_II)%></option>
         <% next %>
       </select>	</td>
	   <td height="18" width="400" colspan="2"><font color="red">�޸Ĺܿ��״̬���޸Ŀ���״̬����ϵ����</font></td>
	</tr>
	</table>
	<input type="submit" value="Submit" name="BB1"></td>
	</form>
</tr>
<tr>
  <td  bgcolor="#3399FF"><span class="STYLE1">��*�ŵı�������Ϊ�Զ����㣬����ȷ��д���װ�ߴ��ʽ��1*1.1*1.2</span> </td>
</tr>
</table>
<%Set fs=Nothing%>
</body>
</html>