您所在位置：主题：如何提示用户名已经注册
dongwendong
[专家分：0] 发布于 2007-06-22 15:34:00
<%
if request("ok")<>"" then
name=request("name")
pwd=request("pwd")
pwd1=request("pwd1")
qus=request("qus")
ans=request("ans")
mail=request("mail")
%>
<%
set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from member where name='"&amp;request("name")&amp;"'"
rs.open sqlstr,conn,1,1
if rs.not.eof then
response.Write("用户名已经存在！")
else
sql="insert into member "
sql=sql&amp;"values('"&amp;name&amp;"','"&amp;pwd&amp;"','"&amp;pwd1&amp;"','"&amp;qus&amp;"','"&amp;ans&amp;"','"&amp;mail&amp;"')"
conn.execute(sql)
response.redirect"zhuce1.asp"
end if
end if
%>
我想让它在注册的时候，如果用户名已经存在提示不能注册，最好是来个弹出提示框说“改用户名已经存在！”
我调试了很久都不知道怎办？请哪位大侠帮帮忙啊谢谢
if request("ok")<>"" then
name=request("name")
pwd=request("pwd")
pwd1=request("pwd1")
qus=request("qus")
ans=request("ans")
mail=request("mail")
%>
<%
set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from member where name='"&amp;request("name")&amp;"'"
rs.open sqlstr,conn,1,1
if rs.not.eof then
response.Write("用户名已经存在！")
else
sql="insert into member "
sql=sql&amp;"values('"&amp;name&amp;"','"&amp;pwd&amp;"','"&amp;pwd1&amp;"','"&amp;qus&amp;"','"&amp;ans&amp;"','"&amp;mail&amp;"')"
conn.execute(sql)
response.redirect"zhuce1.asp"
end if
end if
%>
我想让它在注册的时候，如果用户名已经存在提示不能注册，最好是来个弹出提示框说“改用户名已经存在！”
我调试了很久都不知道怎办？请哪位大侠帮帮忙啊谢谢
