ASP发送HTML格式的mail
sub sendPassword
dim myMail
set myMail= Server.CreateObject("CDONTS.Newmail")
myMail.From = "
tingweb@8848.net"
myMail.To = "
tingweb@8848.net"
myMail.Subject = "
tingweb@8848.netTRY"
myMail.BodyFormat = 0
myMail.MailFormat = 0
dim HTML
HTML = "<!DOCTYPE HTML PUBLIC '-//IETF//DTD HTML//EN'>"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
HTML = HTML & "<title>CSDN</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body>"
HTML = HTML & "現在就去<a href='http://www.csdn.net'>CSDN</a>吧！︰）<br>"
HTML = HTML & "Thanks,<br>"
HTML = HTML & date
HTML = HTML & "</body>"
HTML = HTML & "</html>"
myMail.Body = HTML
myMail.Send
set myMail = nothing
end sub
