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

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<style>a{TEXT-DECORATION:none}</style>
<%
Dim JYZB(10)
JYZB(0)="˿ӡ��"
JYZB(1)="��תӡ��"
JYZB(2)="�칫��"
JYZB(3)="���۶���"
JYZB(4)="����"
JYZB_JS=4
'���ۣ�=��õļ��ô�۸�  X 1.25
'���� $ =����õļ��ô�۸�X1.25��/6.29
'���$�����ֲ���
'ϵ��=(���$/���� $ ) ȡ������������
'�ο���$=���� $  X ϵ��
'=============================================================
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
	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
'------------------------------------------------------------------
set fs=Server.CreateObject("Scripting.FileSystemObject")
'PT=Server.MapPath(".\")
'response.write left(PT,43)
ItemNo=request.form("T3")
ItemNo=trim(ItemNo)
if len(ItemNo)<>3 and IsNumeric(ItemNo)=False then ItemNo="000"
'ZBMC=request.form("T4")
'ZBMC=trim(ZBMC)
%>
<div align="center"><font color="#FF0000" face="Verdana" size="5"><B>���ô�ASC���ʹ�˾��Ӫ��Ʒ����ù�˾�Ƚ�</B></font>
  <br>
  <br>
  <br>
  <br>
  <table border="0" width="400" height="25" style="border-collapse: collapse">
      <tr><form method="POST" action="">
        <td height="25" width="100"><p align="right"><font size="2">�������</font></td>
		  <td height="25" width="100"><input type="text" name="T3" size="10"value="<%=ItemNo%>"></td>
		  <td height="25" width="200"><span lang="en-us"><input type="submit" value="Submit" name="B1"></td>
	  </form>
	  </tr>
    </table>
  <br>
  <br>
  <%'--------------------------------------------------------------------------------------------
Dim QQ(27)
Dim CPMX(999,9)
'0-���룬1-������(��)��2-������(��)��3-����Ӣ(��)��4-����Ӣ(��)��5-��λ(��)��6-��λ(��)��7-����(��)��8-����(��)��9-����(��)*1.25
'--------------------ȡ������Ŀ¼----------------------
if request.form("B1")="Submit" then  '��ȡ�������Ϣ
	Temp=Server.MapPath("../../Admin/"& ItemNo & "/Productlist.inc")
	If (fs.FileExists(Temp))=true then
		Set f=fs.OpenTextFile(Temp, 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)= ItemNo then
					CPMX(right(str(1),3),0)=str(1)
				end if
			end if 	
		loop
		f.Close
		Set f=Nothing
	end if
'-------------------------------------------------------
	for i=0 to 999
		if len(CPMX(i,0))=6 and IsNumeric(CPMX(i,0)) then
			HH=left(CPMX(i,0),3)
			LL=right(CPMX(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
			CPMX(i,1)=QQ(1)		'��������
			CPMX(i,3)=QQ(2)		'Ӣ������
			CPMX(i,5)=QQ(4)		'��λ
			'--------------------------------------------
			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)
			else
'				P0=""				'code
'				P1=""				'������
'				P2=1				'��С������
'				P3=""				'����
'				P4=0				'����US$
'				P5=0				'����------------------
'				P6=0				'���------------------
'				P7=""				'��λ
'				P8=""				'��վ����---------------
				P9=0				'����RMB
'						P10=""				'����ע
'						P11=""				'��ע--------------------
'						CKJ=""
			end if
			CPMX(i,7)=p9		'����RMB
			'-----------------------------------------
		end if
	next
'===========================================================================
	Temp=Server.MapPath("../../TJGSCPXX/CPXX_" & ItemNo & ".txt")
	If (fs.FileExists(Temp))=true then
		Set f=fs.OpenTextFile(Temp, 1)
		do while f.AtEndOfStream = false
			YY=trim(f.ReadLine)
			str=split(YY,"|")
			LLL=""
			if len(str(0))=6 and IsNumeric(str(0)) then
				LLL=right(str(0),3)
				if len(CPMX(LLL,0))<6 then CPMX(LLL,0)=str(0)
				CPMX(LLL,2)=str(1)		'��������
				CPMX(LLL,4)=str(2)		'Ӣ������
				CPMX(LLL,6)=str(4)		'��λ
				CPMX(LLL,8)=str(15)		'�����ô�۸�
				if IsNumeric(CPMX(LLL,8))=False then CPMX(LLL,8)=0
				CPMX(LLL,9)=CPMX(LLL,8)*1.25		'�����ô�۸�*1.25
			end if
		loop
		f.Close: Set f=Nothing
	end if
'===========================================================================
%>
  <table border="1" width="1740" height="20" bordercolor="#f0f0f0" style="border-collapse: collapse">
    <tr>
		<td height="20" width="80" bgcolor="#DDDDDD" align="center">��Ʒ����</td>
        <td height="20" width="300" bgcolor="#DDDDDD" align="center">ASC365����������</td>
        <td height="20" width="300" bgcolor="#EEFFFF" align="center">��ù�˾����������</td>
        <td height="20" width="300" bgcolor="#DDDDDD" align="center">ASC365��Ӣ������</td>
        <td height="20" width="300" bgcolor="#EEFFFF" align="center">��ù�˾��Ӣ������</td>
        <td height="20" width="80" bgcolor="#DDDDDD" align="center">ASC365��λ</td>
        <td height="20" width="80" bgcolor="#EEFFFF" align="center">��õ�λ</td>
        <td height="20" width="100" bgcolor="#DDDDDD" align="center">ASC365����</td>
        <td height="20" width="100" bgcolor="#EEFFFF" align="center">��õ���</td>
        <td height="20" width="100" bgcolor="#DDDDDD" align="center">����*1.25</td>
      </tr>
  <% kk=0
  for i= 0 to 999 
	if len(CPMX(i,0))>0 then
		kk=kk+1
%>
    <tr>
		<td height="20" width="80" align="center"><%=CPMX(i,0)%></td>
        <td height="20" width="300" align="left"><%=CPMX(i,1)%></td>
        <td height="20" width="300" bgcolor="#EEFFFF" align="left"><%=CPMX(i,2)%></td>
        <td height="20" width="300" align="left"><%=CPMX(i,3)%></td>
        <td height="20" width="300" bgcolor="#EEFFFF" align="left"><%=CPMX(i,4)%></td>
        <td height="20" width="80"  align="center"><%=CPMX(i,5)%></td>
        <td height="20" width="80" bgcolor="#EEFFFF" align="center"><%=CPMX(i,6)%></td>
        <td height="20" width="100" align="right"><%=CPMX(i,7)%></td>
        <td height="20" width="100" bgcolor="#EEFFFF" align="right"><%=CPMX(i,8)%></td>
        <td height="20" width="100" align="right"><%=CPMX(i,9)%></td>
      </tr>
  <% end if
next
%>
    <tr>
		<td height="20" width="80" bgcolor="#DDDDDD" align="center">��Ʒ����</td>
        <td height="20" width="300" bgcolor="#DDDDDD" align="center">ASC365����������</td>
        <td height="20" width="300" bgcolor="#EEFFFF" align="center">��ù�˾����������</td>
        <td height="20" width="300" bgcolor="#DDDDDD" align="center">ASC365��Ӣ������</td>
        <td height="20" width="300" bgcolor="#EEFFFF" align="center">��ù�˾��Ӣ������</td>
        <td height="20" width="80" bgcolor="#DDDDDD" align="center">ASC365��λ</td>
        <td height="20" width="80" bgcolor="#EEFFFF" align="center">��õ�λ</td>
        <td height="20" width="100" bgcolor="#DDDDDD" align="center">ASC365����</td>
        <td height="20" width="100" bgcolor="#EEFFFF" align="center">��õ���</td>
        <td height="20" width="100" bgcolor="#DDDDDD" align="center">����*1.25</td>
      </tr>
    </table>
  <%
response.write kk
end if
Set fs=Nothing
%>
  
</div>
</body>

</html>