Set Rec3=Server.CreateObject("ADODB.Recordset")
SQL3="Select * from Users where User='"&Name3&"' or UserName='"&User3&"'"
Rec3.Open SQL3,GJ_Cnn,1,3
if rec3.bof or rec3.eof then 'Name3是表单提交的真实姓名,User3是表单提交的用户名
rec3.addnew
rec3("user")=Name3
rec3("userName")=User3
rec3("passWord")=pw3
rec3("Reg_Date")=date
rec3("LeiB")=LB3
rec3("ShenHe")=0
rec3.update ' 如果数据库里没有用户提交的信息就更新该记录
Response.Redirect "index.asp" '注册成功后重定向到登陆页面
else
if rec3("User")=Name3 then Response.Redirect "reg.asp?Err=10&N='"&Name3&"'" end if '重定向到注册页面,并附上提示信息:该真实姓名的用户已注册
if rec3("UserName")=User3 then Response.Redirect "reg.asp?Err=9" end if '重定向到注册页面,并附上提示信息:该用户名已被使用
end if
rec3.close
set rec3=nothing