regsave.asp

凡人网络购物系统 v8.0 中文版

<!--#include file="top.asp"-->
<!--#include file="email.asp"-->
<!-- #include file="MD5.asp" -->
<%function IsValidEmail(user_mail)
dim names, name, i, c
IsValidEmail = true
names = Split(user_mail, "@")
if UBound(names) <> 1 then
   IsValidEmail = false
   exit function
end if
for each name in names
   if Len(name) <= 0 then
     IsValidEmail = false
     exit function
   end if
   for i = 1 to Len(name)
     c = Lcase(Mid(name, i, 1))
     if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
       IsValidEmail = false
       exit function
     end if
   next
   if Left(name, 1) = "." or Right(name, 1) = "." then
      IsValidEmail = false
      exit function
   end if
next
if InStr(names(1), ".") <= 0 then
   IsValidEmail = false
   exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
   IsValidEmail = false
   exit function
end if
if InStr(email, "..") > 0 then
   IsValidEmail = false
end if
end function
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 * 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="743" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
<%if founderr=false then
venshopcom="vhw#uv@vhuyhu1fuhdwhremhfw+%dgrge1uhfrugvhw%,!vto@%vhohfw#-#iurp#yhqvkrsbxvhu#zkhuh#xvhuqdph@*%)xvhubqdph)%*%!uv1rshq#vto/frqq/4/6!uv1dggqhz!uv+%xvhuqdph%,@xvhubqdph!uv+%xvhusdvv%,@xvhubsdvv!uv+%xvhupdlo%,@xvhubpdlo!uv+%txhvwlrq%,@txhvwlrq!uv+%dqvzhu%,@dqvzhu!uv+%vdyhprqh|%,@3!uv+%ghjuhh%,@4!uv+%uhjwlph%,@qrz+,!uv+%odqgwlph%,@qrz+,!uv+%xvhubw|sh%,@4!uv+%xvhubodvwls%,@uhtxhvw1vhuyhuyduldeohv+%uhprwhbdggu%,!uv+%xvhubuhjls%,@uhtxhvw1vhuyhuyduldeohv+%uhprwhbdggu%,!uv1xsgdwh!uv1forvh!vhw#uv@qrwklqj!li#Uhtxhvw1Frrnlhv+%yhqvkrs%,+%jxhvw%,?A%%#wkhq!jxhvw@Uhtxhvw1Frrnlhv+%yhqvkrs%,+%jxhvw%,!vhw#uv@vhuyhu1fuhdwhremhfw+%dgrge1uhfrugvhw%,!uv1rshq#%vhohfw#-#iurp#yhqvkrsbedvnhw#zkhuh#xvhubqdph@*%)jxhvw)%*#dqg#edvnhwbfkhfn@3%/frqq/4/6!uv+%xvhubqdph%,@uhtxhvw+%xvhubqdph%,#!uv1xsgdwh!uv1forvh!vhw#uv@qrwklqj!Uhvsrqvh1Frrnlhv+%yhqvkrs%,+%jxhvw%,@%%!hqg#li!Uhvsrqvh1Frrnlhv+%yhqvkrs%,+%xvhubqdph%,@xvhubqdph!Uhvsrqvh1Frrnlhv+%yhqvkrs%,+%xvhubsdvv%,@xvhubsdvv!Uhvsrqvh1Frrnlhv+%yhqvkrs%,+%xvhubw|sh%,@%4%!li#HbVhqgPdqW|sh@4#wkhq!VhqgHpdlo#%%)xvhubpdlo)%%/%%)xvhubqdph)%%)huuphv)%%)pdlobuhjv)%%/%%)xvhubqdph)%%)huuphv)%%)pdlobuhjf)%%/%Mpdlo%!hovhli#HbVhqgPdqW|sh@5#wkhq!VhqgHpdlo#%%)xvhubpdlo)%%/%%)xvhubqdph)%%)huuphv)%%)pdlobuhjv)%%/%%)xvhubqdph)%%)huuphv)%%)pdlobuhjf)%%/%RemFGRPdlo%!hovhli#HbVhqgPdqW|sh@6#wkhq!VhqgHpdlo#%%)xvhubpdlo)%%/%%)xvhubqdph)%%)huuphv)%%)pdlobuhjv)%%/%%)xvhubqdph)%%)huuphv)%%)pdlobuhjf)%%/%Dvshpdlo%!hqg#li"
execute(vencode(venshopcom))
%>
<tr><td width="743" height="48" style="border-top: 2px solid #FFFFFF" background="img/reg1.gif"><p style="margin-left: 40px">注册成功！</td></tr>
<tr><td align="center" background="img/regbg.gif">
<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>
<tr><td width="100%" align="center"><img border="0" src="img/reg2.gif"></td> </tr>
<%else%>
<tr><td width="743" height="48" style="border-top: 2px solid #FFFFFF" background="img/reg1.gif"><p style="margin-left: 40px">注册失败！</td></tr>
<tr><td align="center" background="img/regbg.gif"><table border="0" width="90%" cellspacing="1"><tr><td height="200"><p style="line-height: 150%"><%=errmsg%></td></tr></table></td></tr>
<tr><td width="100%" align="center"><img border="0" src="img/reg2.gif"></td> </tr>
<%end if%></table></center><!--#include file="copy.asp"-->