user_reg_inc.asp

来自「网店批发系统,很好很强大,很好很强大很好很强大」· ASP 代码 · 共 121 行
ASP
121 行
<%
	dim j,Reg,action,username,userpassword,useremail,yanzheng,userzhenshiname,MoMNo,babysex,shouhuodizhi,youbian,usertel,shouji,Timenow,TPL_NICK
	dim topic,getpass,mailbody,JMail,SendMail,mailaddress,sendmsg
	
	action = sqlchg(Request.QueryString("action"))
	username = sqlchg(Request.Form("username"))
	userpassword = md5(sqlchg(Request.Form("userpassword")))
	useremail = sqlchg(Request.Form("useremail"))
	yanzheng = sqlchg(Request.Form("yanzheng"))
	userzhenshiname = sqlchg(Request.Form("userzhenshiname"))
	if userzhenshiname = "" then
		userzhenshiname = "未填"
	end if
	MoMNo = sqlchg(Request.Form("MoMNo"))
	if MoMNo = "" then
		MoMNo = "未填"
	end if
	babysex = sqlchg(Request.Form("babysex"))
	shouhuodizhi = sqlchg(Request.Form("shouhuodizhi"))
	if shouhuodizhi = "" then
		shouhuodizhi = "未填"
	end if
	youbian = sqlchg(Request.Form("youbian"))
	if youbian = "" then
		youbian = "0"
	end if
	usertel = sqlchg(Request.Form("usertel"))
	if usertel = "" then
		usertel = "0"
	end if
	shouji = sqlchg(Request.Form("shouji"))
	if shouji = "" then
		shouji = "0"
	end if
	Timenow = now()
	
	if action = "Reg" then
		if Cint(yanzheng) <> Cint(session("verifyCode")) then
			Response.Write("<script language='javascript'>alert('请填写正确的验证码！');history.go(-1);</script>")
			Response.End()
		end if
		
		if username = "管理员" then
			Response.Write("<script language='javascript'>alert('该用户名已经注册！');history.go(-1);</script>")
			Response.End()
		end if	
		
		dim rs_r
		rs_r = shop.DBClass("Select count(*) from [User] where Username = '"&username&"'")
		if rs_r(0,0) <> 0 then 
			Response.Write("<script language='javascript'>alert('该用户名已经注册！');history.go(-1);</script>")
			Response.End()
		end if
		
		call shop.DBExecute("Insert into [User] (UserName,UserPass,UserEmail,UserTrueName,UserIdcard,UserSex,UserAddress,UserCode,UserTel,UserPhone,UserRegDate,UserFace) values ('"&username&"','"&userpassword&"','"&useremail&"','"&userzhenshiname&"','"&MoMNo&"','"&babysex&"','"&shouhuodizhi&"','"&youbian&"','"&usertel&"','"&shouji&"','"&Timenow&"','face/face%20(4).gif')")
		Session("UserName") = username
		Session.Timeout = 30
		
		'读其他数据
		User = shop.DBClass("Select u.UserName,l.LevelName,l.LevelNum,l.LevelJifen from [User] u inner join [Level] l on u.UserFlag = l.LevelOrder where u.Username='"&Username&"'")
		
		Session("LevelName") = User(1,0)
		Session("LevelNum") = User(2,0)
		Session("LevelJifen") = User(3,0)		
		Session.Timeout = 30

'**********************************发送邮件**************************************************
		topic="您在" & config(0,0) & "的注册资料"
		getpass=sqlchg(Request.Form("userpassword"))
		
		mailbody="<html>"
		mailbody=mailbody & "<title>注册信息</title>"
		mailbody=mailbody & "<body>"
		mailbody=mailbody & "<TABLE border=0 width='95%' align=center><TBODY><TR>"
		mailbody=mailbody & "<TD valign=middle align=top>"
		mailbody=mailbody & username &"，您好：<br><br>"
		mailbody=mailbody & "欢迎您注册本购物中心，我们将提供给您最好的服务！<br>"
		mailbody=mailbody & "下面是您的注册信息：<br><br>"
		mailbody=mailbody & "注册名："&username&"<br>"
		mailbody=mailbody & "密  码："&getpass&"<br>"
		mailbody=mailbody & "<br><br>"
		mailbody=mailbody & "<center><font color=red>再次感谢您注册本系统！</font>"
		mailbody=mailbody & "</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"
		mailbody=mailbody & "</body>"
		mailbody=mailbody & "</html>"
		
		Set JMail=Server.CreateObject("JMail.Message")
			JMail.Charset="gb2312"
			JMail.ContentType = "text/html"
			
		jmail.from = config(25,0)
		jmail.silent = true
		jmail.Logging = true
		jmail.FromName = config(26,0)
		jmail.mailserverusername = config(27,0)
		jmail.mailserverpassword = config(28,0)
		jmail.AddRecipient UserEmail
		jmail.body=mailbody
		JMail.Subject=topic
		
		if not jmail.Send ( mailaddress ) then
			SendMail=""
		else
			SendMail="OK"
		end if
		
		'response.Write UserEmail&"||"&topic&"||"&getpass&"||"&mailbody&"||"&SendMail
		'response.End()
		
		if SendMail="OK" then
			sendmsg="您的注册信息已经发往您的邮箱，请注意查收!"
		else
			sendmsg=""
		end if
'**********************************发送邮件**************************************************
	else
		'dim regquery,reg
		'regquery = "Select NewsContent from News where NewsType = 2"
		'reg = shop.DBClass(regquery)
	end if
%>
⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?
user_reg_inc.asp

user_reg_inc.asp - 源码说明

⌨️ 快捷键说明
