email.asp

该软件是用asp编写的

<%
	sub Jmail(e_email,e_topic,e_mailbody)
	on error resume next
	dim JMail
	Set JMail=Server.CreateObject("JMail.SMTPMail")
	JMail.Logging=True
	JMail.Charset="gb2312"
	JMail.ContentType = "text/html"
	JMail.ServerAddress=SMTPServer
	JMail.Sender=siteEmail
	JMail.Subject=e_topic
	JMail.Body=e_mailbody
	JMail.AddRecipient e_email
	JMail.Priority=1
	JMail.Execute 
	Set JMail=nothing 
	if err then 
	SendMail=err.description
	err.clear
	else
	SendMail="OK"
	end if
	end sub

	sub Cdonts(e_email,e_topic,e_mailbody)
	on error resume next
	dim  objCDOMail
	Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
	objCDOMail.From =siteEmail
	objCDOMail.To =e_email
	objCDOMail.Subject =e_topic
	objCDOMail.BodyFormat = 0 
	objCDOMail.MailFormat = 0 
	objCDOMail.Body =e_mailbody
	objCDOMail.Send
	Set objCDOMail = Nothing
	if err then 
	SendMail=err.description
	err.clear
	else
	SendMail="OK"
	end if
	end sub

	sub aspemail(e_email,e_topic,e_mailbody)
	on error resume next
	dim mailer,recipient,sender,subject,message
	dim mailserver,result
	Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")  
	recipient=e_email
	sender=siteEmail
	subject=e_topic
	message=e_mailbody
	mailserver=SMTPServer
	result=mailer.SendMail(mailserver, recipient, sender, subject, message)
	if err then 
	SendMail=err.description
	err.clear
	else
	SendMail="OK"
	end if
	end sub

	sub Emailbody(body)
	Emailbody=Emailbody &"<style>A:visited {	TEXT-DECORATION: none	}"
	Emailbody=Emailbody &"A:active  {	TEXT-DECORATION: none	}"
	Emailbody=Emailbody &"A:hover   {	TEXT-DECORATION: underline overline	}"
	Emailbody=Emailbody &"A:link 	  {	text-decoration: none;}"
	Emailbody=Emailbody &"A:visited {	text-decoration: none;}"
	Emailbody=Emailbody &"A:active  {	TEXT-DECORATION: none;}"
	Emailbody=Emailbody &"A:hover   {	TEXT-DECORATION: underline overline}"
	Emailbody=Emailbody &"BODY   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt;}"
	Emailbody=Emailbody &"TD	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}</style>"
	Emailbody=Emailbody &"<TABLE border=0 width='95%' align=center><TBODY><TR>"
	Emailbody=Emailbody &"<TD valign=middle align=top>"
	Emailbody=Emailbody & body
	Emailbody=Emailbody &"</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"
	Emailbody=Emailbody & sitename & " &nbsp;&nbsp; " & siteurl
	Emailbody=mailbody
	end sub
%>