reg.asp

BJXSHOP购物管理系统是一个功能完善、展示信息丰富的电子商店销售平台；针对企业与个人的网上销售系统；开放式远程商店管理；完善的订单管理、销售统计、结算系统；强力搜索引擎支持；提供网上多种在线支付方

sub sendemail()

if sendmail>0 then

dim rs1
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select jmailuser,jmailmail,jmailsmtp,jmailpassword from shop_config",conn,1,1
dim email,title,msg,smtpserver,smtpuser,smtppwd,smtpemail,jmail,isgo
'发送邮件参数设置
smtpserver = trim(rs1("jmailsmtp"))   '//邮件服务器
smtpuser = trim(rs1("jmailuser"))           '//用户名
smtpemail = trim(rs1("jmailmail"))  '//邮件地址
smtppwd = trim(rs1("jmailpassword"))           '//密码

rs1.close
set rs1=nothing
'收件人信息
dim grtts,mimawenti
select case session("grtt")
case "1"
grtts="团体用户。<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;团体用户需要我们的未审通过后方可享受我们为您提供的团体购书优惠价格"
case "0"
grtts="个人用户"
end select
if trim(request("quesion"))="" then
mimawenti="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;您没有填写密码保护问题，为了您的用户安全，建议您返回网站补填密码保护功能。"
else
mimawenti="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;您的密码问题是：<font color=red>"&trim(request("quesion"))&"</font>&nbsp;&nbsp;问题答案是：<font color=red>"&trim(request("answer"))&"</font>"
end if
email=trim(request("useremail"))         '//收信人地址
title="您在"&webname&"的注册信"                    '//标题  
msg="<table width=70% border=0 align=left cellpadding=1 cellspacing=1 style='FONT-SIZE: 12px;COLOR: #000000; FONT-FAMILY: verdana;'><tr><td style='line-height:14pt'>亲爱的用户"&trim(request("username"))&"("&trim(request("userzhenshiname"))&")，您好：<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;感谢您在"&webname&"注册"&grtts&"。<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;您的用户名是：<font color=red>"&trim(request("username"))&"</font>&nbsp;&nbsp;密码是：<font color=red>"&trim(request("userpassword1"))&"</font><br>"&mimawenti&"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;请牢记以上安全信息，欢迎您再次访问我们的网站 <a href=http://"&weburl&" target=_blank><font color=red >"&webname&"</font></a><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;若您需要咨询服务，请发邮件至"&webemail&"。<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(此邮件不可以直接回复，否则我们的客户服务部收不到您的来信。)</td></tr><tr><td style='line-height:14pt'><br><div align=right>"&webname&"<br>"&year(date)&"年"&month(date)&"月"&day(date)&"日</div></td></tr></table>"             '//信件内容


'发送邮件
select case sendmail
case 1
Set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
jMail.ContentType = "text/html"
jmail.From = smtpemail  '//这里是发信人地址
jmail.FromName = webname       '//发信人姓名

jmail.Subject = title         '//标题
jmail.AddRecipient email      '//地址
jmail.Body = msg              '//内容


jmail.MailServerUserName = smtpuser 
jmail.MailServerPassWord = smtppwd
isgo = jmail.Send(smtpserver)

if err then 
   'SendMail= err.description
   sendmailZ="由于系统出错邮件未发出。<br>"
   err.clear
else
   sendmailZ="一封注册邮件已发往您的信箱中，请注意查收。<br>"
end if
jmail.Close
set jmail = nothing
'Response.Write  SendMail

case 2

Dim objCDO 
Set objCDO = Server.CreateObject("CDONTS.NewMail") 
objCDO.bodyFormat=0		'/支持html
objCDO.mailFormat=0		'/支持html
objCDO.To = email
objCDO.From = smtpemail	& "("& webname &")" 		
'objCDO.bcc = "[e-mail]" ’Blind cc   抄送
objCDO.Subject = title 
objCDO.Body = msg 
objCDO.Importance = 2 'High importance! 
'objCDO.AttachFile("\\server\jane\resume.doc","Resume.doc")  //附件
objCDO.Send  'Send off the email! 
'Cleanup 
Set objCDO = Nothing 

end select

end if

end sub



function HTMLEncode(fString)

	fString = replace(fString, ">", "&gt;")
	fString = replace(fString, "<", "&lt;")

	fString = Replace(fString, CHR(13), "")
	HTMLEncode = fString
end function
conn.close
set conn=nothing
%>


<SCRIPT LANGUAGE="JavaScript">
<!--
function checks()
{
   if(checkspace(document.userinfo.username.value)) {
	document.userinfo.username.focus();
    alert("用户名不能为空，请重新输入！");
	return false;
  }
    if(checkspace(document.userinfo.username.value) || document.userinfo.username.value.length < 4) {
	document.userinfo.username.focus();
    alert("用户名长度不能小于4，请重新输入！");
	return false;
  }
    if(checkspace(document.userinfo.userpassword.value) || document.userinfo.userpassword.value.length < 6) {
	document.userinfo.userpassword.focus();
    alert("密码长度不能小于6，请重新输入！");
	return false;
  }
    if(document.userinfo.userpassword.value != document.userinfo.userpassword1.value) {
	document.userinfo.userpassword.focus();
	document.userinfo.userpassword.value = '';
	document.userinfo.userpassword1.value = '';
    alert("两次输入的密码不同，请重新输入！");
	return false;
  }
       if(checkspace(document.userinfo.zhuzhaitel.value)) {
	document.userinfo.zhuzhaitel.focus();
    alert("请输入您的住宅电话以便联系！");
	return false;
  }

 if(document.userinfo.useremail.value.length!=0)
  {
    if (document.userinfo.useremail.value.charAt(0)=="." ||        
         document.userinfo.useremail.value.charAt(0)=="@"||       
         document.userinfo.useremail.value.indexOf('@', 0) == -1 || 
         document.userinfo.useremail.value.indexOf('.', 0) == -1 || 
         document.userinfo.useremail.value.lastIndexOf("@")==document.userinfo.useremail.value.length-1 || 
         document.userinfo.useremail.value.lastIndexOf(".")==document.userinfo.useremail.value.length-1)
     {
      alert("Email地址格式不正确！");
      document.userinfo.useremail.focus();
      return false;
      }
   }
 else
  {
   alert("Email不能为空！");
   document.userinfo.useremail.focus();
   return false;
   }
    {
document.all.item("ddd").disabled=true;
userinfo.submit();
}
}
function checkcompany()
{
   if(checkspace(document.userinfo.companyname.value)) {
	document.userinfo.companyname.focus();
    alert("请您认真填写公司名称！");
	return false;
  }
     if(checkspace(document.userinfo.username.value)) {
	document.userinfo.username.focus();
    alert("用户名不能为空，请重新输入！");
	return false;
  }
       if(checkspace(document.userinfo.zhuzhaitel.value)) {
	document.userinfo.zhuzhaitel.focus();
    alert("请输入您的办公电话以便联系！");
	return false;
  }
    if(checkspace(document.userinfo.username.value) || document.userinfo.username.value.length < 4) {
	document.userinfo.username.focus();
    alert("用户名长度不能小于4，请重新输入！");
	return false;
  }
    if(checkspace(document.userinfo.userpassword.value) || document.userinfo.userpassword.value.length < 6) {
	document.userinfo.userpassword.focus();
    alert("密码长度不能小于6，请重新输入！");
	return false;
  }
    if(document.userinfo.userpassword.value != document.userinfo.userpassword1.value) {
	document.userinfo.userpassword.focus();
	document.userinfo.userpassword.value = '';
	document.userinfo.userpassword1.value = '';
    alert("两次输入的密码不同，请重新输入！");
	return false;
  }

 if(document.userinfo.useremail.value.length!=0)
  {
    if (document.userinfo.useremail.value.charAt(0)=="." ||        
         document.userinfo.useremail.value.charAt(0)=="@"||       
         document.userinfo.useremail.value.indexOf('@', 0) == -1 || 
         document.userinfo.useremail.value.indexOf('.', 0) == -1 || 
         document.userinfo.useremail.value.lastIndexOf("@")==document.userinfo.useremail.value.length-1 || 
         document.userinfo.useremail.value.lastIndexOf(".")==document.userinfo.useremail.value.length-1)
     {
      alert("公司邮箱格式不正确！");
      document.userinfo.useremail.focus();
      return false;
      }
   }
 else
  {
   alert("公司邮箱不能为空！");
   document.userinfo.useremail.focus();
   return false;
   }
      {
document.all.item("ddd").disabled=true;
userinfo.submit();
}
}


function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}

	function regInput(obj, reg, inputStr)
	{
		var docSel	= document.selection.createRange()
		if (docSel.parentElement().tagName != "INPUT")	return false
		oSel = docSel.duplicate()
		oSel.text = ""
		var srcRange	= obj.createTextRange()
		oSel.setEndPoint("StartToStart", srcRange)
		var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
		return reg.test(str)
	}

//-->
</script>
</body>
</html>