//注册会员
sub User_RegSave()
    user_info_UserName =my_request("username",0)
    user_info_PassWord =my_request("PassWord",0)
    user_info_PassWord2=my_request("PassWord2",0)
    user_info_question =my_request("question",0)
    user_info_answer   =my_request("answer",0)
    user_info_RealName =my_request("realname",0)
    user_info_email    =my_request("email",0)
    user_info_sex      =my_request("sex",1)
    CheckCode          =my_request("codeid",0)
    urlpath=my_request("urlpath",0)
    urlpath=replace(urlpath,"/","")
      
    ErrMsg=""
    if user_info_UserName="" then
     FoundErr=True
     ErrMsg=ErrMsg & "<li>用户名不能为空！</li>"
    end if
    if user_info_PassWord="" then
     FoundErr=True
     ErrMsg=ErrMsg & "<li>密码不能为空！</li>"
    end if
    if user_info_PassWord2="" then
     FoundErr=True
     ErrMsg=ErrMsg & "<li>重复密码不能为空！</li>"
    end if
    if user_info_question="" then
     FoundErr=True
     ErrMsg=ErrMsg & "<li>取回密码问题不能为空！</li>"
    end if
    if user_info_answer="" then
     FoundErr=True
     ErrMsg=ErrMsg & "<li>问题答案不能为空！</li>"
    end if
        if  user_info_RealName="" then
     FoundErr=True
     ErrMsg=ErrMsg & "<li>姓名不能为空！</li>"
    end if
    if user_info_email="" then
     FoundErr=True
     ErrMsg=ErrMsg & "<li>电子邮件不能为空！</li>"
    end if
    if user_info_sex="" then
     FoundErr=True
     ErrMsg=ErrMsg & "<li>性别不能为空！</li>"
    end if  
    if CheckCode="" then
     FoundErr=True
     ErrMsg=ErrMsg & "<li>验证码不能为空！</li>"
    end if
    if user_info_PassWord<>user_info_PassWord2 then
     FoundErr=True
     ErrMsg=ErrMsg & "<li>密码与重复密码不一致！</li>"
    end if
    if session("CheckCode")="" then
     FoundErr=True
     ErrMsg=ErrMsg & "<li>你登录时间过长，请重新返回登录页面进行登录。

</li>"
    end if
    if CheckCode<>CStr(session("CheckCode")) then
     FoundErr=True
     ErrMsg=ErrMsg & "<li>您输入的确认码和系统产生的不一致，请重新输入。

</li>"
    end if
   
    if FoundErr<>True then
        user_info_PassWord=md5(user_info_PassWord,32)
        Set rs= Server.CreateObject("ADODB.Recordset")
        sql="select * from user_info"
        rs.open sql,conn,1,3
        rs.addnew
        rs("user_info_UserName")=user_info_UserName
        rs("user_info_PassWord")=user_info_PassWord
        rs("user_info_question")=user_info_question
        rs("user_info_answer")  =user_info_answer
        rs("user_info_RealName")=user_info_RealName
        rs("user_info_email")   =user_info_email
        rs("user_info_sex")     =user_info_sex
        rs("user_info_RegTime") =now()
        rs("user_info_LastLoginTime")=now()
        rs("user_info_LoginNums")=rs("user_info_LoginNums")+1
        rs("user_info_LastLoginIp")=Request.ServerVariables

("REMOTE_ADDR")
        rs.update
      
        session("user_info_id")=rs("user_info_id")
        session("user_info_UserName")=rs("user_info_UserName")
        session("user_info_LoginIn")=true
        
        rs.close
        set rs=nothing
        Session("CheckCode")=""

        if urlpath<>"" then
            call ok("恭喜，您已成功注册成会员！",urlpath)
        else
            call ok("恭喜，您已成功注册成会员！","user_Personal.asp")
        end if
    else
     call WriteErrMsg(ErrMsg)
    end if
end sub
ASP 程序 同一账号可以多次注册,50Q币 求解决 联系QQ:378980878