<%
	sub Jmail(email,topic,mailbody)
                on error resume next
                dim msg
                Set msg = Server.CreateObject("JMail.Message") 
                msg.silent = true 
                msg.Logging = true 
                msg.Charset = "gb2312" 
                msg.ContentType = "text/html"
                msg.MailServerUserName = "web@qhds.com"  '输入smtp服务器验证登陆名   （邮局中任何一个用户的Email地址） 
                msg.MailServerPassword = "8866121"    '输入smtp服务器验证密码      （用户Email帐号对应的密码,假如对方不需要就不要添，163.com 的就要） 
                msg.From = cmail    '发件人Email 
                msg.FromName = "您的朋友给您发来音乐贺信"   '信笺标题 
                msg.AddRecipient email   '收件人Email 
                msg.Subject = topic    '信件主题 
                msg.Body = mailbody      '正文 
                msg.Send ("61.55.137.17")    'smtp服务器地址 163的是smtp.163.com
                set msg = nothing 
                Set msg=nothing 
                if err then  
                 SendMail=err.description
                 err.clear
                else
                 SendMail="OK"
                end if 
               end sub
              

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

	sub aspemail(email,topic,mailbody)
	on error resume next
	dim mailer,recipient,sender,subject,message
	dim mailserver,result
	Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")  
	recipient=email
	sender=cmail
	subject=topic
	message=mailbody
	mailserver="61.55.137.17"  '这里输入SMTP服务器
	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 & Copyright & " &nbsp;&nbsp; " & Version
	Emailbody=mailbody
	end sub
%>		





