email.asp

购物系统时尚版.强大的后台文章编辑器的功能

<%
Sub SendAction(subject, mailaddress, email, sender, content, fromer, hjff, passnamef, passwordf)
set jmail=server.createobject("jmail.message")
jmail.charset="gb2312"
jmail.silent=true
jmail.addrecipient email
jmail.subject=subject
jmail.fromname = sender
jmail.from=fromer
jmail.appendtext "这是一封html格式的邮件"
jmail.appendhtml content
jmail.priority = hjff
jmail.MailServerUserName =passnamef
jmail.MailServerPassWord =passwordf
err=jmail.send(mailaddress)
jmail.close
set jmail=nothing 
End Sub
%>