<%
if founderr=false then
dim Sendername,Subject,Content,Priority,InceptName,InceptEmail,sMailBody
Subject="您在本站成功注册!"
if VIPUser="yes" then
sMailBody="您在本站注册的用户名:"&UserName& vbCrLf & "密码:"&Password& ",请保管好！"
else
sMailBody="您在本站注册的用户名:"&UserName& vbCrLf & "密码:"&Password& ",保管好,请注册VIP会员，可以给你最大的优惠！"
end if
Sendername=WebmasterName
Senderemail=WebmasterEmail
if Sendername="" then
FoundErr=True
ErrMsg=ErrMsg & "
发件人不能为空！"
end if
if Senderemail="" then
FoundErr=True
ErrMsg=ErrMsg & "
发件人Email不能为空！"
end if
if Subject="" then
FoundErr=True
ErrMsg=ErrMsg & "
邮件主题不能为空！"
end if
if trim(sMailBody)="" then
FoundErr=True
ErrMsg=ErrMsg & "
邮件内容不能为空！"
end if
if Email="" then
FoundErr=True
ErrMsg=ErrMsg & "
收件人Email不能为空！"
else
Masteremail=Email
end if
Priority=1
Set JmailMsg = Server.CreateObject("JMail.Message")
JmailMsg.silent = true
JmailMsg.Logging = true
JmailMsg.Charset = "gb2312"
JmailMsg.ContentType="text/plain"
sMailBody=sMailBody & vbCrLf & vbCrLf & "此邮件是网站系统自动进行发送。"
JmailMsg.MailServerUserName = MailServerUserName
JmailMsg.MailServerPassword = MailServerPassword
JmailMsg.From = Senderemail
JmailMsg.FromName = Sendername
JmailMsg.AddRecipient Masteremail '发件人email
JmailMsg.Subject = Subject
JmailMsg.Body = sMailBody & vbCrLf
JmailMsg.Send MailServer
if JmailMsg.ErrorCode>0 then
response.write "邮件发送失败：" & JmailMsg.ErrorMessage & "
可能错误来源：" & JmailMsg.ErrorSource & "
返回"
end if
JmailMsg.close
set JmailMsg = nothing
if VIPUser="yes" then
response.write "邮件发送成功：
返回 查看付款方式 "
else
response.write "邮件发送成功：
返回"
end if
call RegSuccess()
else
call WriteErrmsg()
end if
%>