email.asp

迅捷网上调查系统管理

<%
dim SendMailed
	sub Jmail(email)
	Dim JMail,SendMail
	Set JMail=Server.CreateObject("JMail.SMTPMail")
	JMail.Charset="gb2312"
	JMail.ServerAddress=""
	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
	SendMailed="OK"
	end if
	end sub
'------------------------------------------------------
	sub Cdonts(email)
	dim  CDONMail
	Set CDONMail = Server.CreateObject("CDONTS.NewMail")	
	CDONMail.From =SystemEmail
	CDONMail.To =email
	CDONMail.Subject =topic
	CDONMail.Body =mailbody
	CDONMail.Send
	Set CDONMail = Nothing
	if err then 
	SendMailed=err.description
	err.clear
	else
	SendMailed="OK"
	end if
	end sub
%>