<%
E_Server = "smtp.126.com" '发件服务器
E_ServerUser = "xxxxxx@126.com" '登录用户名
E_ServerPass = "xxxxxxxxxxxx" '登录密码
E_SendManMail = "xxxxxx@126.com" '发件人邮件地址
E_SendManName = "系统管理员" '发件人姓名

Sub Aspemail(Email,Topic,Mailbody)
On Error Resume Next
Dim Mailer
Set Mailer = Server.CreateObject("Persits.MailSender")
Mailer.Charset = "gb2312"
Mailer.IsHTML = True
Mailer.username = E_ServerUser
Mailer.password = E_ServerPass
Mailer.Priority = 1
Mailer.Host = E_Server
Mailer.Port = 25
'开启SSL模式，使用465端口
' Mailer.SSL = True
' Mailer.Port = 465
Mailer.From = E_SendManMail
Mailer.FromName = E_SendManName
Mailer.AddAddress Email,Email
Mailer.Subject = Topic
Mailer.Body = Mailbody
Mailer.Send
SendMail = "True"
If Err Then SendMail = "False"
Response.Write SendMail
End Sub

Aspemail "收件人邮件地址","邮件主题","邮件内容"
%>