📄 sendmail.asp
字号:
<%
Function SendMail(email,topic,mailbody)
on error resume next
dim JMail
Set JMail=Server.CreateObject("JMail.Message")
JMail.silent=true
JMail.Logging=true
JMail.Charset="gb2312"
JMail.MailServerUserName = "yanminqiang" '您的邮件服务器登录名
JMail.MailServerPassword = "790923" '登录密码
JMail.ContentType = "text/html"
JMail.Priority = 1
JMail.From = "yanminqiang@163.com" '邮件地址
JMail.FromName = "神马机票订购" '网站名称
JMail.AddRecipient email
JMail.Subject = topic
JMail.Body = mailbody
JMail.Send ("smtp.163.com") '发邮件服务器地址
Set JMail=nothing
SendMail="OK"
If err then SendMail="False"
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -