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>
<%
    useremail2=Trim(Request.form("email2"))
    userpassword2=Trim(Request.Form("password2"))
	countryname=Request.Form("T6")
	'Md5_Pass=Md5(Md5(password1,16),32)
'-----�����ж��û��������롢��֤���Ƿ�Ϊ��
'-----�����ж���֤�롢�û����������Ƿ���ȷ����¼��¼���
    set rs=server.createobject("adodb.recordset")
    sql33="select * from UserInfo where UserEmail='"&useremail2&"' and UserType=2"
    rs.open sql33,conn,1,3
      if not rs.bof then
        Response.write"<script language=javascript>alert(""The Email Address has already been registered"");location.href='index1.asp?ID=Register';</script>"
		Response.End()
	  else
	   rs.addnew
	   rs("UserName")=""
	   rs("UserPass")=userpassword2
	   rs("UserEmail")=useremail2
	   rs("UserType")=2
	   rs("UserCountry")=countryname
	   rs("Useful")=0
	   rs.update
	   rs.close
	   set rs=nothing
	   conn.close
	   D_link="http://screenprinting.asc365.com/Emailactive.asp?Email="&useremail2
	   D_message=""
	   D_message=D_message&"<table border='1' width='800' height='113' bordercolor='#CCCCCC' style='border-collapse: collapse'>" & chr(13) & chr(10)
	   D_message=D_message&"<tr>" & chr(13) & chr(10)
	   D_message=D_message&"<td height='85' width='400'><p>Dear "
	   D_message=D_message&useremail2
	   D_message=D_message&",</p>" & chr(13) & chr(10)
	   D_message=D_message&" <p>You can click the follow Link to active your email</p>"&chr(13)&chr(10)
	   D_message=D_message&"<a href='"
	   D_message=D_message&D_link
	   D_message=D_message&"'>"&D_link
	   D_message=D_message&"</a>"& chr(13) & chr(10)
	   D_message=D_message&"</td></tr>" & chr(13) & chr(10)
	   D_message=D_message&"</table>"
	   dim objCDOMail
       Set objCDOMail = Server.CreateObject("CDO.Message") 
       objCDOMail.From ="damao7000@asc365.com"                '������ַ
       objCDOMail.To =useremail2      '���յ�ַ
       objCDOMail.Subject = "Message of Your Password"       '�ʼ�����
       objCDOMail.HTMLBody = D_message          '�ʼ����ݣ���Html��д��
       objCDOMail.Send
       Set objCDOMail = Nothing 
	   Response.write"<script>alert('A message has been sent to your mailbox, please activate the mailbox');top.location.href='index.asp?ID=Register'</script>"
	  end if 
%>
</head>