📄 aspsend1.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
password=request.querystring("password")
username=request.querystring("username")
email=request.querystring("email")
			 
			 
' 发送帐号是 admin
sender = "admin@pnxp.com"


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

mailsend.CreateNew sender, "temp"


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

' 收件人邮件地址

mailsend.EM_To = email

mailsend.EM_Subject = "会员"&username&"的密码"
mailsend.EM_Text = "欢迎使用文苑主机频道的服务。"&chr(13)+chr(10)+chr(13)+chr(10)&"------------------------"&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)+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 + -