|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。前一段工夫有发过一个复杂的JMAIL邮件发邮件的代码,明天就把这个代码做一个详细的注解,并增添了别的两个格局的代码,并举几个复杂的例子:
起首是jmail.smtpmail的中心代码:<%
Setjmail=Server.CreateObject("JMAIL.SMTPMail")创立一个JMAIL工具
jmail.silent=trueJMAIL不会抛出破例毛病,前往的值为FALSE跟TRUE
jmail.logging=true启用利用日记
jmail.Charset="GB2312"邮件笔墨的代码为简体中文
jmail.ContentType="text/html"邮件的格局为HTML的
jmail.ServerAddress="ServerAddress"发送邮件的服务器
jmail.AddRecipientEmail邮件的收件人
jmail.SenderName="SenderName"邮件发送者的姓名
jmail.Sender="EmailAddress"邮件发送者的邮件地点
jmail.Priority=1邮件的告急程序,1为最快,5为最慢,3为默许值
jmail.Subject="MailSubject"邮件的题目
jmail.Body="MailBody"邮件的内容
jmail.AddRecipientBCCEmail密件收件人的地点
jmail.AddRecipientCCEmail邮件抄送者的地点
jmail.Execute()实行邮件发送
jmail.Close封闭邮件工具
%>
w3Jmail4.3组件从头计划了其外部布局――利用Message工具取代本来的单一工具Jmail.smtpmail发送邮件,有些办法必要身份考证的(如163、yahoo等),能够用上面的办法办理:
<%
Setjmail=Server.CreateObject("JMAIL.Message")创建发送邮件的工具
jmail.silent=true屏障破例毛病,前往FALSE跟TRUE两值j
mail.logging=true启用邮件日记
jmail.Charset="GB2312"邮件的笔墨编码为国标
jmail.ContentType="text/html"邮件的格局为HTML格局
jmail.AddRecipientEmail邮件收件人的地点
jmail.From="EmailFromforSender"发件人的E-MAIL地点
jmail.MailServerUserName="UserNameofEmail"登录邮件服务器所需的用户名
jmail.MailServerPassword="PasswordofEmail"登录邮件服务器所需的暗码
jmail.Subject="MailSubject"邮件的题目
jmail.Body="MailBody"邮件的内容
jmail.Prority=1邮件的告急程序,1为最快,5为最慢,3为默许值
jmail.Send("ServerAddress")实行邮件发送(经由过程邮件服务器地点)
jmail.Close()封闭工具
%>
再讲一下微软自带的CDONTS组件的发信的办法:
<%
Setcdomail=Server.CreateObject("CDONTS.NewMail")创建邮件工具
cdomail.Subject="MailSubject"邮件题目
cdomail.From="SendersMail"发件人的地点
cdomail.To="Emailwillfrom"收件人的地点
cdomail.Body="MailBody"邮件的内容
cdomail.Send实行发送
%>
这类办法发送邮件是最复杂的,同时也带来必定的成绩,就是很少有服务器会开这项服务!
我们写程序,一样平常情形下都是说要代码模块化,如许便利保护,同时也便利移植。因而,我在这里将这个发邮件的写成一个子程,在挪用的时分能够间接挪用(固然,假如你乐意写成函数的话也是能够的,这个次要是看团体乐趣):
<%
参数申明
Subject:邮件题目
MailAddress:发件服务器的地点,如smtp.163.com
Email:收件人邮件地点
Sender:发件人姓名
Content:邮件内容
Fromer:发件人的邮件地点
SubSendAction(subject,mailaddress,email,sender,content,fromer)
Setjmail=Server.CreateObject("JMAIL.SMTPMail")创立一个JMAIL工具
jmail.silent=trueJMAIL不会抛出破例毛病,前往的值为FALSE跟TRUE
jmail.logging=true启用利用日记
jmail.Charset="GB2312"邮件笔墨的代码为简体中文
jmail.ContentType="text/html"邮件的格局为HTML的
jmail.ServerAddress=mailaddress发送邮件的服务器
jmail.AddRecipientEmail邮件的收件人
jmail.SenderName=sender邮件发送者的姓名
jmail.Sender=fromer邮件发送者的邮件地点
jmail.Priority=1邮件的告急程序,1为最快,5为最慢,3为默许值
jmail.Subject=subject邮件的题目
jmail.Body=content邮件的内容
因为没有效到密抄跟抄送,这里屏障失落这两句,假如您有必要的话,能够在这里恢复
jmail.AddRecipientBCCEmail密件收件人的地点
jmail.AddRecipientCCEmail邮件抄送者的地点
jmail.Execute()实行邮件发送
jmail.Close封闭邮件工具
EndSub
挪用此Sub的例子
DimstrSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject="这是一封用JMAIL发送的测试邮件"
strContent="JMail组件发送测试乐成!"
strEmail="runbing@eyou.com"
strFromer="runbing@eyou.com"
strMailAddress="mail.ubbcn.com"
CallSendAction(strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)
%>
以上是我对发邮件代码的一个大略的看法,忘人人不惜见教!
转自:静态网制造指南www.ckuyun.comASP脚本是采用明文(plaintext)方式来编写的。 |
|