<%
Dim SendMail

Sub Jmail(email,topic,mailbody)
	On Error Resume Next
	Dim JMail
	Set JMail=Server.CreateObject("JMail.Message")
	'JMail.silent=true
	JMail.Logging=True
	JMail.Charset="gb2312"
	JMail.MailServerUserName = Newasp.MailUserName '您的邮件服务器登录名
	JMail.MailServerPassword = Newasp.MailPassword '登录密码
	JMail.ContentType = "text/html"
	JMail.Priority = 1
	JMail.From = Newasp.MailFrom  '邮件地址
	JMail.FromName = Newasp.SiteName  '网站名称
	JMail.AddRecipient email
	JMail.Subject = topic
	JMail.Body = mailbody
	JMail.Send (Newasp.MailServer)   '发邮件服务器地址
	Set JMail=nothing
	SendMail="OK"
	If Err Then SendMail="False"
End Sub
	
Sub Cdonts(email,topic,mailbody)
	On Error Resume Next
	Dim objCDOMail
	Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
	objCDOMail.From = Newasp.MailFrom  '邮件地址
	objCDOMail.To = email
	objCDOMail.Subject = topic
	objCDOMail.BodyFormat = 0 
	objCDOMail.MailFormat = 0 
	objCDOMail.Body = mailbody
	objCDOMail.Send
	Set objCDOMail = Nothing
	SendMail="OK"
	If Err Then SendMail="False"
End Sub

Sub aspemail(email,topic,mailbody)
	On Error Resume Next
	Dim Mailer
	Set Mailer=Server.CreateObject("Persits.MailSender") 
	Mailer.Charset = "gb2312"
	Mailer.IsHTML = True
	Mailer.username = Newasp.MailUserName	'服务器上有效的用户名
	Mailer.password = Newasp.MailPassword	'服务器上有效的密码
	Mailer.Priority = 1
	Mailer.Host = Newasp.setting(9)
	Mailer.Port = 25 ' 该项可选.端口25是默认值
	Mailer.From = Newasp.MailFrom   '邮件地址
	Mailer.FromName = Newasp.SiteName ' 该项可选
	Mailer.AddAddress email,email
	Mailer.Subject = topic
	Mailer.Body = mailbody
	Mailer.Send
	SendMail="OK"
	If Err Then SendMail="False"
End Sub
%>
