📄 aspsend3.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
Dim id
password=request.querystring("p")
username=request.querystring("n")
user_name=request.querystring("username")
domain=request.querystring("domain")			 
email=request.querystring("email")
id=request.querystring("id")			 
' 发送帐号是 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)&"主机域名："&domain&""&chr(13)+chr(10)&"IP地址：61.129.81.113（您可以通过此IP上传，但不能通过此IP访问您的网站）"&chr(13)+chr(10)+chr(13)+chr(10)&"您的FTP用户名："&username&""&id&""&chr(13)+chr(10)+chr(13)+chr(10)&"您的FTP密  码："&password&""&chr(13)+chr(10)+chr(13)+chr(10)&"------------------------"&chr(13)+chr(10)&"请登陆您的主机（ http://"&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 + -