email.asp

来自「AspEase Auction System Ver2.0/动易拍卖系统 Ver」· ASP 代码 · 共 66 行

<%	
dim SendMail
sub Jmail(semail,stopic,sbody)
	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=SystemEmail
	JMail.Subject=stopic 
	JMail.Body=sbody
	JMail.AddRecipient semail
	JMail.Priority=1
	JMail.MailServerUserName = smtpuser ' 您的邮件服务器登录名
	JMail.MailServerPassword = smtpass '登录密码
	JMail.Execute 
	Set JMail=nothing 
	if err then 
	SendMail=err.description
	err.clear
	else
	SendMail="OK"
	end if
	end sub

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

	sub aspemail(semail,stopic,sbody)
	on error resume next
	dim mailer,recipient,sender,subject,message
	dim mailserver,result
	Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")  
	recipient=semail
	sender=SystemEmail
	subject=stopic
	message=sbody
	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
%>