<% If IsFlash1="Yes" Then %> <% Else %> <% end If%>
会员中心
<% 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 %>