📄 可发附件的jmal邮件.asp
字号:
<%
on error resume next
dim body
body=""
body=body&"==========下面是你的个人注册资料==========<br>"
body=body&"邮编:<br>sdfkasdl<br>fsdafkasdlfskladfkasdf "
body=body&"dslkfjaskldfjlas<br>dkjflkasdjflka<Br>sdjlfkjasdklf"
fname=server.mappath("p.rar")
'也可直接写fname="c:\p.rar"
Set jmail = Server.CreateObject("JMAIL.Message")
jmail.silent = true
jmail.logging = true
'Charset = "Unicode"
'jmail.Charset = "GB2312"
'jmail.ContentType = "text/html"
jmail.AddRecipient "pri@cqcm.net"
jmail.From = "pri@cqcm.net"
jmail.FromName = "蒋政"
jmail.MailServerUserName = "pri@cqcm.net"
jmail.MailServerPassword = "pri"
jmail.Subject = "附件测试,请暂勿删除"
jmail.AddAttachment fname
'jmail.HTMLBody = "<html><head><<I>meta</I> content=zh-cn http-equiv=Content-Language><<I>meta</I> http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=text/css>A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt} --></style></head><body bgcolor=""#FFFFFF"" text=""#666666"" leftmargin=""0"" topmargin=""30"" link=""#FF9900""><center>点击这里<a href=' cid:" & contentId & "' >[附件文件]</a>将文件保存</center></body></html>"
jmail.HTMLBody = body
jmail.Priority = 1
jmail.Send("cqcm.net")
jmail.Close()
if err.number<>0 then
response.write err.description
err.clear
else
response.write "mail is sending"
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -