📄 mail.asp
字号:
<%
if instr(Mailaddress,"@")=0 then error2("E-Mail地址填写错误!")
on error resume next
if SiteSettings("SelectMailMode")="JMail.Message" then
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312"
JMail.AddRecipient Mailaddress
JMail.Subject = MailTopic
JMail.Body = body
JMail.From = SiteSettings("SmtpServerMail")
JMail.SmtpServerUserName = SiteSettings("SmtpServerUserName")
JMail.SmtpServerPassword = SiteSettings("SmtpServerPassword")
JMail.Send SiteSettings("SmtpServer")
Set JMail=nothing
elseif SiteSettings("SelectMailMode")="CDONTS.NewMail" then
Set MailObject = Server.CreateObject("CDONTS.NewMail")
MailObject.Send SiteSettings("SmtpServerMail"),Mailaddress,MailTopic,body
Set MailObject=nothing
end if
If Err Then Response.Write "邮件发送失败!错误原因:" & Err.Description & "<br>"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -