www.gusucode.com > 艺帆全站DIV+CSS体育用品公司网站源码 1.7.5源码程序 > member/register_pass.asp

    <!--#include file="../conn.asp"-->
<!--#include file="md5.Asp"-->
<%
dim u,i,letters,ip,useradmin,userpassword,userpassword2,sh,zsname,sex,wen,da,gsname,gsadd,youbian,tel,fax,sj,mail,wz,VerifyCode
ip=request.servervariables("remote_addr")
useradmin=replace(trim(request("useradmin")),"'","") 
userpassword=replace(trim(Request("userpassword")),"'","") 
userpassword2=replace(trim(Request("userpassword2")),"'","") 
zsname=request.form("zsname")
sex=request.form("sex")
wen=request.form("wen")
da=request.form("da")
gsname=request.form("gsname")
youbian=request.form("youbian")
gsadd=request.form("gsadd")
tel=request.form("tel")
fax=request.form("fax")
sj=request.form("sj")
mail=request.form("mail")
wz=request.form("wz")
sh=request.form("sh")
VerifyCode=request.form("VerifyCode")
if useradmin="" then
response.write "<script>alert('请填写登陆帐号!');history.go(-1);</script>"  
response.end 
end if
letters="0123456789abcdefghijklmnopqrstuvwxyz" 
useradmin=Lcase(trim(Request.Form("useradmin"))) 
for i=1 to len(useradmin) 
u=mid(useradmin,i,1) 
if Instr(letters,u)=0 then 
response.write "<script>alert('登陆帐号只能由字母、数字及下划线组成!');history.go(-1);</script>" 
response.end 
end if 
next 
if len(useradmin)<2 or len(useradmin)>12 then   
response.write "<script>alert('帐号必须为2至12位!');history.go(-1);</script>" 
response.end 
end if 
if userpassword="" or userpassword2="" then
response.write "<script>alert('请填写登陆密码!!');history.go(-1);</script>"  
response.end 
end if
if userpassword<>userpassword2 then 
response.write "<script>alert('两次密码输入不一致,请重新输入!');history.go(-1);</script>"  
response.end 
end if
letters="0123456789abcdefghijklmnopqrstuvwxyz" 
userpassword=Lcase(trim(Request.Form("userpassword"))) 
for i=1 to len(userpassword) 
u=mid(userpassword,i,1) 
if Instr(letters,u)=0 then 
response.write "<script>alert('登陆密码只能由字母、数字及下划线组成!');history.go(-1);</script>" 
response.end 
end if 
next 
if len(userpassword)<6 or len(userpassword)>20 then   
response.write "<script>alert('密码必须为6至20位!');history.go(-1);</script>" 
response.end 
end if 
if zsname="" then
response.write "<script>alert('请填写真实姓名!');history.go(-1);</script>"  
response.end 
end if
if wen="" then
response.write "<script>alert('请选择密码保护问题!');history.go(-1);</script>"  
response.end 
end if
if da="" then
response.write "<script>alert('请输入密码保护答案');history.go(-1);</script>"  
response.end 
end if
if  VerifyCode="" then 
response.Write("<script language=javascript>alert('验证码不能为空!');history.go(-1)</script>") 
response.end
end if 
if cstr(Session("firstecode"))<>cstr(Request.Form("VerifyCode")) then
response.Write("<script language=javascript>alert('验证码错误!');history.go(-1)</script>")
response.End
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where useradmin='"&useradmin&"'" 
rs.open sql,conn,1,3
if not rs.eof then
response.write "<script>alert('对不起，此登陆帐号名已被注册！请更换其它帐号!');history.go(-1);</script>"  
response.end 
end if
rs.addnew
rs("useradmin")=useradmin
rs("userpassword")=md5(request.form("userpassword"))
rs("zsname")=zsname
rs("sex")=sex
rs("wen")=wen
rs("da")=da
rs("ip")=ip
rs("gsname")=gsname
rs("youbian")=youbian
rs("gsadd")=gsadd
rs("tel")=tel
rs("fax")=fax
rs("sj")=sj
rs("mail")=mail
rs("wz")=wz
rs("sh")=sh
rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
Response.Write "<script>alert('恭喜!注册成功，返回首页进行登陆！');window.location.href='/index.asp';</script>" 
%>