asp使用jmail4.3的模块

　　把程序放到一个文件中，然后包含再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
end if
msg.silent = true
msg.logging = true
msg.Charset=GB2312
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
%>