email.asp

功能完备的留言板 公告管理 用户管理 留言管理 分页 功能的实现 Access数据库

<%
	sub Jmail(email)
	Dim JMail,SendMail
	Set JMail=Server.CreateObject("JMail.SMTPMail")
	JMail.Logging=True
	JMail.Charset="gb2312"
	JMail.ContentType = "text/html"
	JMail.ServerAddress=SMTPServer
	JMail.Sender=SystemEmail
	JMail.Subject=topic
	JMail.Body=mailbody
	JMail.AddRecipient email
	JMail.Priority=3
	JMail.Execute 
	Set JMail=nothing 
	if err then 
	SendMail=err.description
	err.clear
	else
	SendMail="OK"
	end if
	end sub

	sub Cdonts(email)
	dim  objCDOMail
	Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
	objCDOMail.From =SystemEmail
	objCDOMail.To =email
	objCDOMail.Subject =topic
	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)
	Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")  
	recipient=email
	sender=SystemEmail
	subject=topic
	message=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
%>