email.asp

来自「一套设计完善、高效的web商城解决方案」· ASP 代码 · 共 59 行

<%
Sub JMail(ToMail,MailTitle,MailBody)
	on error resume next
	Dim JMail,SendMail
	Set JMail=server.CreateObject("JMail.message")
	JMail.Charset="gb2312"
	JMail.ContentType = "text/html"
	JMail.from = MailSend
	JMail.silent = true
	JMail.Logging = true
	JMail.FromName = Title
	JMail.MailServerUserName = MailUserName
	JMail.MailServerPassword = MailPassword 
	JMail.AddRecipient ToMail
	JMail.body=MailBody
	JMail.Subject=MailTitle
	JMail.Send ( Mailaddress )
	SendMail="OK"
	If err then SendMail="False"
	err.clear
	Set JMail=nothing
End Sub

Sub Cdonts(ToMail,MailTitle,MailBody)
	on error resume next
	dim  objCDOMail
	Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
	objCDOMail.From = MailSend
	objCDOMail.To = ToMail
	objCDOMail.Subject = MailTitle
	objCDOMail.BodyFormat = 0 
	objCDOMail.MailFormat = 0 
	objCDOMail.Body = MailBody
	objCDOMail.Send
	SendMail="OK"
	If err then SendMail="False"
	err.clear
	Set objCDOMail = Nothing
End Sub

Sub SendMsg1()
	Dim SendMsg1_1
	if SendMail="OK" then
		SSendMsg1_1="<div align=center><font color=red>邮件发送成功！</font></div>"
	else
		SendMsg1_1="<div align=center><font color=#0000FF>因系统错误，邮件未能发送。</font></div>"
	end if
	response.Write ""&SendMsg1_1&""
End Sub
Sub SendMsg2()
	Dim SendMsg2_1
	if SendMail="OK" then
		SendMsg2_1="您的推荐信已经成功发出！"
	else
		SendMsg2_1="因系统错误，您的推荐信未能成功发送！"
	end if
	response.Write "<script language='javascript'>alert('"&SendMsg2_1&"');window.close();</script>"
End Sub
%>