📄 aspsend4.asp

📁 直接解压即可都是asp源码超经典的啊

💻 ASP

字号:

<%@LANGUAGE = VBSCRIPT%>
<html>

<head>
<style type="text/css">
<!--
body {
	font-size: 12px;
}
-->
</style>
</head>

<body>

<%
Dim mailsend
Dim sender
Dim password
Dim username
Dim email
Dim domain
password=request.querystring("p")
username=request.querystring("n")
user_name=request.querystring("username")
domain=request.querystring("domain")			 
email=request.querystring("email")
user_name=request.querystring("username")
' 发送帐号是 admin
sender = "webmaster@pnxp.com"


' 创建MailSend对象
Set mailsend = Server.CreateObject("easymail.MailSend")

mailsend.CreateNew sender, "temp"


' 发信人名称
mailsend.MailName = "文苑主机"

' 收件人邮件地址

mailsend.EM_To = email

mailsend.EM_Subject = "企业邮局开通通知"
mailsend.EM_Text = "尊敬的"&user_name&":"&chr(13)+chr(10)+chr(13)+chr(10)&"感谢您对主机频道的关注与支持并欢迎您使用主机频道的产品与服务。您的邮局信息如下："&chr(13)+chr(10)&"------------------------"&chr(13)+chr(10)+chr(13)+chr(10)&"邮局域名：http://mail."&domain&""&chr(13)+chr(10)&"如果您的域名不是在我们这注册的，请让您的域名注册商为您做一个MX记录，IP指向61.129.81.113"&chr(13)+chr(10)+chr(13)+chr(10)&"您的邮局管理员："&username&""&chr(13)+chr(10)+chr(13)+chr(10)&"您的管理密  码："&password&""&chr(13)+chr(10)+chr(13)+chr(10)&"------------------------"&chr(13)+chr(10)&"请登陆您的邮局（ http://mail."&domain&" ），检验用户名及密码。并进行相应的邮局管理操作。"&chr(13)+chr(10)+chr(13)+chr(10)&"文苑主机频道，用心服务每个客户。"&chr(13)+chr(10)+chr(13)+chr(10)&"http://www.pnxp.com"
if mailsend.Send() = false then
	Response.Write "邮件发送失败!"
else
	response.Write "<div align=center>邮件发送成功!</div>"
end if


Set mailsend = Nothing
%>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -