email.asp

网上购物,不错的购物系统,花了好长时间来改的

<%
on error resume next
dim sendok
select case selectmail
case "Jmail"
	dim JMail
	set JMail=server.CreateObject("Jmail.message")

	JMail.Silent=true
	JMail.Charset = "gb2312"
	JMail.FromName = Tradename
	JMail.from = systemEmail
	JMail.Subject = mailtopic
	JMail.Body=Body
'	JMail.contenttype ="text/html"
	JMail.MailServerUserName =MailServerUserName
	JMail.MailServerPassWord =MailServerPassword
	if instr(MailServerUserName,"@")>0 then				'判断域名（如果你用“[e-mail]”这样的用户名登录时，请指明domain.com
		mailuserdomain=mid(MailServerUserName,instr(MailServerUserName,"@")+1,len(MailServerUserName)-instr(MailServerUserName,"@"))
		JMail.MailDomain = mailuserdomain
	end if
	mailto=REPLACE(mailto,", ",",")
	rcpt=split(mailto,",")
	for i=0 to ubound(rcpt)
		JMail.AddRecipient rcpt(i) '增加收件人
	next
	sendok=JMail.send(smtp)
    if err then 
	sendok=err.description
	err.clear
	else
	sendok="OK"
	end if
case "CDONTS"
	Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
	if err then 
		err.clear
		exit sub
	end if
	objCDOMail.from=systemEmail			'
	objCDOMail.To =mailto
	objCDOMail.Subject =mailtopic
	objCDOMail.BodyFormat = 1 	'0 HTML / 1 Text
	objCDOMail.MailFormat = 0 	'MIME
	objCDOMail.Body =body
	objCDOMail.Importance = 1			' : 0 - 低重要性  1 - 中等重要性（默认）  2 - 高重要性
	objCDOMail.Send
	Set objCDOMail = Nothing
	if err then 
	sendok=err.description
	err.clear
	else
	sendok="OK"
	end if

case else
	sendmsg="系统未开启邮件功能，请记住您的注册信息"
end select
%>