<%
dim regname,myname,email,pass,qq,ip
regname=request.Form("regname")
myname=request.Form("myname")
email=request.Form("email")
pass=request.Form("pass")
qq=request.Form("qq")
ip=request.Form("ip")
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\database\test.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
set rs=server.createobject("adodb.recordset")
sql="select * from reguser where usename='"®name&"'and email='"&email&"'"
rs.open sql,conn,1,1
if rs.eof then '如果没找到
sqlstr="insert into reguser(usename,myname,email,pass,qq,ip)values('"®name&"','"&myname&"','"&email&"','"&pass&"','"&QQ&"','"&IP&"')"
conn.execute(sqlstr)
Response.Write("<script>alert('您已经成功注册成为本站的会员!');location='login.asp';</script>")
response.end
else '否则
response.write("<script>alert('您输入的用户名或email已经存在,请使用其他的注册!');history.back(-1); </script>")
response.end
end if
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
昨天也是这个代码,昨天是我把字段搞错了!现在字段都已经改过来,也可以运行了!但是我要的结果不是这种情况,我要的是检查数据库中的注册用户名(usename)和email两项是否存在,存在则提示出错,不存在则插入!
这段代码运行后只对用户名起作用,对email这一项起不了作用,也就是说还是允许相同的email注册!
大家能不能帮我把这段代码改一下,谢谢!