📄 email.asp
字号:
<%
REM This file is used to test whether the server can send email
dim sender
dim mailto
dim subject
dim body
sender="Flybird <flybirdspf@163.net>"
mailto="shen.pengfei@usa.net"
subject="test whether the server can send email"
body="It's OK!"
sendMail sender,mailto,subject,body
function sendMail(sender,mailto,subject,body)
on error resume next
Dim MailObject
Set MailObject = Server.CreateObject("CDONTS.NewMail")
MailObject.From=sender
MailObject.To=mailto
MailObject.Subject=subject
MailObject.Body=body
MailObject.Send
if err>0 then
err.clear
sendMail=false
else
sendMail=true
end if
end function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -