www.gusucode.com > 运动用品商城网站系统源代码程序 > regsave.asp
<!--#include file="conn.asp"--> <!--#include file="IncAsp/venshop_top.asp"--> <!--#include file="IncAsp/venshop_email.asp"--> <!-- #include file="IncAsp/venshop_md5.asp" --> <div align="center"> <table cellpadding="0" cellspacing="0" class="all_t1"> <tr><td class="all_l_td" valign="top"> <!--#include file="IncAsp/venshop_log.asp"--><div class="d5"></div> </td> <td valign="top" class="all_c_td"> <% if trim(request("user_name"))="" then errmsg=errmsg+"<br>"+"<li>用户名不能为空" founderr=true else user_name=DelStr(request("user_name")) end if if trim(request("user_pass"))="" or trim(request("user_pass2"))="" then errmsg=errmsg+"<br>"+"<li>密码或确认不能为空" founderr=true else user_pass=md5(DelStr(request("user_pass"))) user_pass2=md5(DelStr(request("user_pass2"))) end if if user_pass <> user_pass2 then errmsg=errmsg+"<br>"+"<li>两次密码不同" founder=true end if if isvalidemail(trim(request("user_mail")))=false then errmsg=errmsg+"<br>"+"<li>你的E-mail有错误" founderr=true else user_mail=DelStr(request("user_mail")) end if question=DelStr(request("question")) answer=DelStr(request("answer")) set rs=server.createobject("adodb.recordset") sql="select username from venshop_user where username='"&user_name&"'" rs.open sql,conn,1,1 if not rs.eof then errmsg=errmsg+"<br>"+"<li>用户名已被别人注册" founderr=true end if rs.close set rs=nothing errmes="您好" %><center> <table border="0" width="99%" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111"> <% if founderr=false then set rs=server.createobject("adodb.recordset") sql="select * from venshop_user where username='"&user_name&"'" rs.open sql,conn,1,3 rs.addnew rs("username")=user_name rs("userpass")=user_pass rs("usermail")=user_mail rs("question")=question rs("answer")=answer rs("savemoney")=0 rs("degree")=1 rs("regtime")=now() rs("landtime")=now() rs("user_type")=1 rs("user_lastip")=request.servervariables("remote_addr") rs("user_regip")=request.servervariables("remote_addr") rs("user_fav")="" rs.update rs.close set rs=nothing if Request.Cookies("venshop")("guest")<>"" then guest=Request.Cookies("venshop")("guest") set rs=server.createobject("adodb.recordset") rs.open "select user_name from venshop_basket where user_name='"&guest&"' and basket_check=0",conn,1,3 do while not rs.eof rs("user_name")=request("user_name") rs.update rs.movenext loop rs.close set rs=nothing Response.Cookies("venshop")("guest")="" end if Response.Cookies("venshop")("user_name")=user_name Response.Cookies("venshop")("user_pass")=user_pass Response.Cookies("venshop")("user_type")=1 mail_regs=replace(replace(replace(replace(mail_regs,"#U",user_name),"#M",user_mail),"#Q",question),"#A",answer) mail_regc=replace(replace(replace(replace(mail_regc,"#U",user_name),"#M",user_mail),"#Q",question),"#A",answer) if E_SendManType=1 then SendEmail ""&user_mail&"",""&mail_regs&"",""&mail_regc&"","Jmail" elseif E_SendManType=2 then SendEmail ""&user_mail&"",""&mail_regs&"",""&mail_regc&"","ObjCDOMail" elseif E_SendManType=3 then SendEmail ""&user_mail&"",""&mail_regs&"",""&mail_regc&"","Aspemail" end if %> <tr><td class="sort"> <IMG src="Skin/<%=venshop_skin%>/home.gif" border=0 align="absmiddle"> 注册成功!</td></tr> <tr><td align="center"> <table width="90%" border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111"> <tr><td width="33%" height="30" align="right">用户名:</td><td width="67%" height="30"><%=user_name%></td></tr> <tr><td width="33%" height="30" align="right">E-mail:</td><td width="67%" height="30"><%=user_mail%></td></tr> <tr><td width="33%" height="30" align="right">密码保护问题:</td><td width="67%" height="30"><%if question="" then%>没有填写,建议登录之后尽快完善密码保护资料,以便密码丢失时及时找回。<%else%><%=question%><%end if%></td></tr> <tr><td width="33%" height="30" align="right">找回密码答案:</td><td width="67%" height="30"><%if answer="" then%>没有填写,建议登录之后尽快完善密码保护资料,以便密码丢失时及时找回。<%else%><%=answer%><%end if%></td></tr> <tr><td height="100" colspan="2"> <p style="line-height: 150%"><%if E_SendManType<>0 then%>感谢您的注册,系统已经自动发送一份邮件到您的注册邮箱,请查收;<br><%end if%><a href="modify.asp"><font color="#FF0000">请完善您的个人资料,方便以后购物;</font></a><br> <a href="index.asp">暂不填写,现在返回首页。</a></td></tr></table></td></tr> <%else%> <tr><td class="sort"> <IMG src="Skin/<%=venshop_skin%>/home.gif" border=0 align="absmiddle"> 注册失败!</td></tr> <tr><td align="center"><table border="0" width="90%" cellspacing="1"><tr><td height="200"><p style="line-height: 150%"><%=errmsg%></td></tr></table></td></tr> <%end if%></table></td></tr></table></div><!--#include file="IncAsp/venshop_copy.asp"-->