谁帮我看这代码出错了ASP连接数据库插入数据

来源:百度知道 编辑:UC知道 时间:2024/05/26 19:20:42
</head>
<%
dim conn
dim connstr
startime=timer()
db="abccccc.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(db)
conn.Open connstr
%>
<%
user=request.form("user")
password=request.form("password")
key=request.form("key")
level=request.form("level")
srv=request.form("srv")
%>
<%
dim rs,sql
set rs=Server.CreateObject("ADODB.Recordset")
sql="insert into uer(user,password,key,level,srv) values ('"&user&"','"&password&"','"&key&"','"&level&"','"&srv&"')"
rs.addnew
rs("user")=user
rs("password")=passowrd
rs("key")=key
rs("level")=level<

sql="insert into uer(user,password,key,level,srv) values ('"&user&"','"&password&"','"&key&"','"&level&"','"&srv&"')"
rs.addnew
rs("user")=user
rs("password")=passowrd
rs("key")=key
rs("level")=level
rs("srv")=srv
rs.update
rs.close
conn.close
这里插入数据重复了,去掉上面的sql="insert into uer(user,password,key,level,srv) values ('"&user&"','"&password&"','"&key&"','"&level&"','"&srv&"')"
或者下面的rs.addnew
rs("user")=user
rs("password")=passowrd
rs("key")=key
rs("level")=level
rs("srv")=srv
rs.update

再有错,请补充

错误提示???