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">
<div align="center"><font color="#669900"><b><span style="font-size: 12pt">���׶๫˾ȱ����¼��</span></b></font>
  <br>
  <br>
<%
loginnumber=session("Webpassed")
if loginnumber<>"%asc365com%" then
response.End()
end if

if session("asc365allpassword")<>"8879365" then response.end
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Thispage ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") 
'---------------------------------
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
%>
<title>ASC365</title>
</head>
<body>

<%
Dim DHQH(9999,8)		'0-���롢1-���ơ�2-��λ��3-ҵ�����4-���ٿ�桢5-ʵ�ʿ�桢6-��ע��7-�������۲���ȱ���Ǽ�ʱ�䡢8-ҵ���鼰��Ӧ�������
Dim DHQH_JS
Dim DHRQ
Dim MM(16)				'��Ʒ����������
Dim CPMX(26)			'��Ʒ��ϸ
'--------------------------------------------------------------------------
if Month(Date)>3 and Month(Date)<11 then
	DHRQ=DateAdd("h",14,now)	'��������
else
	DHRQ=DateAdd("h",15,now)	'��������
end if
'----------------------------------------
Temp=Server.MapPath("..\..\Admin") & "\CPDGGL"		'��Ʒ��������Ŀ¼
If fs.FolderExists(Temp) <> true Then 
	set fm1=fs.CreateFolder(Temp)
	set fm1=nothing
end if   
'----------------------------------------
DHQH_JS=0
Temp=Server.MapPath("..\..\Admin") & "\CPDGGL\DHQH_inf.sss"		'����ϻ�ȱ�����ļ�
If fs.FileExists(Temp)=true then
	Set f=fs.OpenTextFile(Temp,1)
	do while f.AtEndOfStream = false
		YY=trim(f.ReadLine)
		str=Split(YY,"|")
		for i=0 to 8
			DHQH(DHQH_JS,i)=str(i)
		next
		DHQH_JS=DHQH_JS+1
	loop
	f.Close: Set f=Nothing
end if
%>
</div>
<div align="center">
  <table border="1" width="1400" height="20" bordercolor="#f0f0f0" style="border-collapse: collapse">
	<tr>
		<td height="20" width="40" align="center" bgcolor='#DDDDDD'>���</td>
		<td height="20" width="80" align="center" bgcolor='#DDDDDD'>��Ʒ����</td>
		<td height="20" width="300" align="center" bgcolor='#DDDDDD'>��Ʒ����</td>
		<td height="20" width="40" align="center" bgcolor='#DDDDDD'>��λ</td>
		<td height="20" width="80" align="center" bgcolor='#DDDDDD'>ҵ�����</td>
		<td height="20" width="80" align="center" bgcolor='#DDDDDD'>���ٿ��</td>
		<td height="20" width="80" align="center" bgcolor='#DDDDDD'>ʵ�ʿ��</td>
		<td height="20" width="80" align="center" bgcolor='#DDDDDD'>�������</td>
		<td height="20" width="300" align="center" bgcolor='#DDDDDD'>��Ӧ�������</td>
		<td height="20" width="300" align="center" bgcolor='#DDDDDD'>��ע</td>
	</tr>		
    <%
	for i=DHQH_JS*1-1 to 0 step -1
%>
	<tr>
		<td height="20" width="40" <%if (i mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="center"><%=i*1+1%></td>
		<td height="20" width="80" <%if (i mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="center"><%=DHQH(i,0)%></td>
		<td height="20" width="300" <%if (i mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=DHQH(i,1)%></td>
		<td height="20" width="40" <%if (i mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="center"><%=DHQH(i,2)%></td>
		<td height="20" width="80" <%if (i mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="center"><%=DHQH(i,3)%></td>
		<td height="20" width="80" <%if (i mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"><%=DHQH(i,4)%></td>
		<td height="20" width="80" <%if (i mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="right"><%=DHQH(i,5)%></td>
		<td height="20" width="80" <%if (i mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="center"><%=DHQH(i,7)%></td>
		<td height="20" width="300" <%if (i mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=DHQH(i,8)%></td>
		<td height="20" width="300" <%if (i mod 2)=0 then response.write "bgcolor='#CCFFFF'"%> align="left"><%=DHQH(i,6)%></td>
	</tr>
    <%
	next
%>
  </table>
  <%Set fs=Nothing%>
</div>
</body>
</html>