为什么总是提示我用户已经存在呢?(在库中没有)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
option explicit
dim conn,db,sql,username,userphone
dim rs
db="mdb/aaaa.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
sql="select *from aaaaa"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
username=request.form("textname")
userphone=request.form("textphone")
sql="select * from aaaaa where name=username"
if not rs.eof then '表示有记录
response.write "该用户已经存在"
else
sql="insert into aaaaa (name,phone) values ('"&username&"','"&userphone&"')"
conn.Execute(sql)
response.write "用户:"&username&"添加成功!"
end if
rs.close
conn.close
set conn=nothing
%>
就第一次添加成功了,再添加的时候就提示我用户已经存在了....这是怎么回事啊???
