邮件组件.asp

较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.

<%
on error resume next
dim body
body=""
body=body&"==========下面是你的个人注册资料==========<br>"
body=body&"邮编:<br>sdfkasdlfsdafkasdlfskladfkasdf "
body=body&"dslkfjaskldfjlasdkjflkasdjflkasdjlfkjasdklf"



Set jmail = Server.CreateObject("JMAIL.Message")
jmail.silent = true 
jmail.logging = true
Charset = "Unicode"
'jmail.Charset = "GB2312"
jmail.ContentType = "text/html"
jmail.AddRecipient "[e-mail]"

jmail.From = "[e-mail]" 
jmail.FromName = "蒋政"
jmail.MailServerUserName = "[e-mail]"
jmail.MailServerPassword = "pri"
jmail.Subject = "我是发件测试,请暂勿删除"
jmail.Body = 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


%>