denglu.asp是登陆界面，denglu1.asp验证用户名和密码，如果用户名不存在就在库里加入该用户名和密码，denglu1.asp老是出错，帮忙看看哪有错误，代码只写了主体部分。acess数据库db1.mdb,biao1表建了2个字段user_id,user_password字符型，数据库在附件里。

denglu.asp:

<h1 align=center>denglu</h1>

<form action="denglu1.asp" method="post"> <p>用户名： <input name="name" size=50> <p>密码 ： <input name="password" size=50>

<p> <td align="center" width="30%" bgcolor=<%=tColor2%> > <input type=submit value="登陆">

denglu1.asp

Set cnn = Server.CreateObject("ADODB.Connection") Cnn.open "Driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("db1.mdb")

set rs=Server.CreateObject("ADODB.recordset")

userid=request.form("name") userpwd=request.form("password") sqlstr="select * from biao1 where user_id=' "&userid&" ' " rs.open sqlstr,cnn,1,1 if rs.eof then sqlstr="insert into biao1 (user_id,user_password) values (' "&userid&" ',' "&userpwd&" ')" rs.open sqlstr,cnn,3,2 response.write "ok" else response.write rs("user_id") end if rs.close

这个代码哪里有问题，怎么通不过？出现错误如下：

错误类型： ADODB.Recordset (0x800A0E79)

[此贴子已经被作者于2004-09-02 09:24:09编辑过]

<% Set cnn = Server.CreateObject("ADODB.Connection")

Cnn.open "Driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("db1.mdb")

set rs=Server.CreateObject("ADODB.recordset")

userid=request.form("name") userpwd=request.form("password") sqlstr="select * from biao1 where user_id=' "&userid&" ' " rs.open sqlstr,cnn,1,1 if rs.eof then sqlstr="insert into biao1 (user_id,user_password) values (' "&userid&" ',' "&userpwd&" ')" rs.close '加上这行，先要关闭才能再打开 rs.open sqlstr,cnn,3,2 response.write "ok" else response.write rs("user_id")

end if 'rs.close '-----去掉这行，执行insert语句后rs总是关闭的，再执行关闭会出错 %>

改了但还是有错误，怎么回事？错误如下：HTTP 500.100 - 内部服务器错误 - ASP 错误 错误类型： Microsoft OLE DB Provider for ODBC Drivers (0x80004005) 将用另一种方法连接数据库（将driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db1.mdb")换成了Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath）试了一下错误如下：错误类型： Microsoft JET Database Engine (0x80004005)

怎么回事，救命阿

我这里运行正常