Question

asp判断用户是否已经存在的问题

<!--#include file="conn.asp"-->
<!--#include File="inc/MD5.asp"-->

<%if request("action")="reg_p1" then

Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from user_p where user='"&request("user")&"'"
rs.open sql,conn,1,3

if not rs.eof then
response.write "<script language=JavaScript>alert('该用户名（邮箱）已经注册，请登录或者重新使用其他邮箱进行注册！');" & "history.back()" & "</script>"
else
rs.addnew()
rs("user")=request("user")
rs("psw")=md5(trim(request("psw")))
rs("tel")=request("tel")
rs("date")=date()
rs.update()
end if

rs.close
set rs=nothing

Set rs1=Server.CreateObject("ADODB.Recordset")
sql="select id from user_p where user='"&request("user")&"'"
rs1.open sql,conn,1,1
userid=rs1(0)
rs1.close
set rs1=nothing

response.write "<script language=JavaScript>alert('注册成功，点击进入下一步！');" & "window.location.href='reg_p2.asp'" & "</script>"
end if%>

说明：记录不存在，数据也写入了数据库，但是不能跳转到下一步，弹出的对话框是：“该用户名（邮箱）已经注册，请登录或者重新使用其他邮箱进行注册！”
？？？？？？？？？？？？？？？？？急急！

Answer 1

弹出的对话框是：“该用户名（邮箱）已经注册，请登录或者重新使用其他邮箱进行注册！”
说明执行了语句:response.write "<script language=JavaScript>alert('该用户名（邮箱）已经注册，请登录或者重新使用其他邮箱进行注册！');" & "history.back()" & "</script>"说明if not rs.eof条件成立

奇怪的是楼主你数据也写入了数据库，那说明else语句也执行了。从代码上看似乎没问题。有点奇怪。
楼主可以把response.write "<script language=JavaScript>alert('注册成功，点击进入下一步！');" & "window.location.href='reg_p2.asp'" & "</script>"这句语句放在else语句下试试，看是否被执行。。

还有。楼主的
Set rs1=Server.CreateObject("ADODB.Recordset")
sql="select id from user_p where user='"&request("user")&"'"
rs1.open sql,conn,1,1
userid=rs1(0)
rs1.close
set rs1=nothing
这段语句也应该放在else语句内吧

<!--#include file="conn.asp"-->
<!--#include File="inc/MD5.asp"-->

<%if request("action")="reg_p1" then

Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from user_p where user='"&request("user")&"'"
rs.open sql,conn,1,3

if not rs.eof then
response.write "<script language=JavaScript>alert('该用户名（邮箱）已经注册，请登录或者重新使用其他邮箱进行注册！');" & "history.back()" & "</script>"
else
rs.addnew()
rs("user")=request("user")
rs("psw")=md5(trim(request("psw")))
rs("tel")=request("tel")
rs("date")=date()
rs.update()

rs.close
set rs=nothing

Set rs1=Server.CreateObject("ADODB.Recordset")
sql="select id from user_p where user='"&request("user")&"'"
rs1.open sql,conn,1,1
userid=rs1(0)
rs1.close
set rs1=nothing

response.write "<script language=JavaScript>alert('注册成功，点击进入下一步！');" & "window.location.href='reg_p2.asp'" & "</script>"
end if
end if%>

Answer 2

把数据库表user_p的字段id设为主键
代码改为：

<!--#include file="conn.asp"-->
<!--#include File="inc/MD5.asp"-->

<%if request("action")="reg_p1" then

Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from user_p where user='"&request("user")&"'"
rs.open sql,conn,1,3

if rs.recordcount>0 then
response.write "<script language=JavaScript>alert('该用户名（邮箱）已经注册，请登录或者重新使用其他邮箱进行注册！');" & "history.back()" & "</script>"
response.end
else
rs.addnew()
rs("user")=request("user")
rs("psw")=md5(trim(request("psw")))
rs("tel")=request("tel")
rs("date")=date()
rs.update()
userid=rs("id")'设成主键自动加1后就可以取到值了。
response.write "<script language=JavaScript>alert('注册成功，点击进入下一步！');" & "window.location.href='reg_p2.asp'" & "</script>"
response.end
end if

rs.close
set rs=nothing
end if%>

Answer 3

if not rs.eof then 改为 if not (rs.bof and rs.eof) then

Answer 4

IF语句中ELSE是否写反了？？？