📄 mail2.asp
字号:
<%
'on error resume next
receiver="hongceng_3@hotmail.com"
mailbody="<html>"'邮件内容
mailbody=mailbody & "<body>"
mailbody=mailbody & "this is a texitsl"
mailbody=mailbody & "</body>"
mailbody=mailbody & "</html>"
filename="g3.gif" '附件文件名
path=Server.MapPath("other/"&filename) '附件的路径
set objmail=server.createobject("CDONTS.newmail")
objmail.to= receiver
objmail.from="loveanseng@vip.net"'发送邮件
objmail.subject="我是邮件标题"
objmail.body=mailbody
objmail.bodyformat=0
objmail.MailFormat=0
objmail.importance=2'邮件等级
objmail.AttachFile path,filename
objmail.send
set objmail=nothing
if err.number<>0 then
respnose.write err.description
err.clear
else
response.write "ok mail is sending "& receiver &" right."
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -