打印本文   关闭窗口

asp使用jmail4.3的模块

作者：未知  文章来源：网络文摘  点击数  更新时间：2006/5/6 12:31:53  文章录入：admin  责任编辑：admin

常常要在网站中使用到JMAIL组件来发邮件。干脆就把常用的功能写成一个模块，方便调用。 把程序放到一个文件中，然后包含再call就可以了。(JMAIL4.3) <%'警告函数 sub w_msg(message,w_to,w_link) 'message是你要弹出的警告信息，w_to=1表示自动后退一页，当w_to<>1时w_link表示要跳转的页面 if w_to="1" then %> <script language="javascript"> <!-- function Index(){ window.alert('<%=message%>');history.back(-1)} Index(); --> </script> <%else%> <script language="javascript"> <!-- function Index(){ window.alert('<%=message%>');window.location="<%=w_link%>"} Index(); --> </script> <%end if end sub%> <% sub sendmail(mailtitle,mailtext,mailaddress,mailcc,mailbcc,attachment,mailserver) if mailtitle="" then mailtitle="系统测试邮件" end if if mailtext="" then mailtext="Just a test" end if if mailaddress="" then call w_msg("邮件地址不能为空","1","") end if if mailserver="" then mailserver="smtp.163.com" end if set msg=server.createobject("JMail.Message") msg.silent = true msg.logging = true msg.Charset="GB2312" msg.ContentType = "text/html" msg.MailServerUserName="yourusername" msg.MailServerPassword="yourpassword" msg.From="youremail" msg.FromName="dorryyang" mailaddress_s=split(mailaddress,",") ' 邮件地址用,格开 for i=0 to ubound(mailaddress_s) msg.AddRecipient trim(mailaddress_s(i)) next if mailcc<>"" then mailcc_s=split(mailcc,",") for i=0 to ubound(mailcc_s) msg.AddRecipientCC trim(mailcc_s(i)) next end if if mailbcc<>"" then mailbcc_s=split(mailbcc,",") for i=0 to ubound(mailbcc_s) msg.AddRecipientBCC trim(mailbcc_s(i)) next end if if attachment<>"" then msg.AddAttachment(attachment) 'attachment写附件地址 end if msg.Subject=mailtitle msg.HTMLBody=mailtext msg.Send(mailserver) msg.close set msg=nothing call w_msg("发送成功","1","") end sub %>

打印本文   关闭窗口