ASP 程序 同一账号可以多次注册,50Q币 求解决
//注册会员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
