下面的代码在其他机子上能运行!!但是我机子上就不能运行!!简单代码如下!
<%
txtname=trim(request.form("txtname"))
txtpasswd=trim(request.form("txtpasswd"))
'if txtname <> "" then
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("database/db1.mdb")
set rs=Server.CreateObject("ADODB.Recordset")
sq1="select * from users where userid='"&txtname&"'"
rs.open sq1,conn,1,3
if rs.eof then
sq1="insert into users(userid,passwd) values('"&txtname&"','"&txtpasswd&"')"
conn.execute sq1
response.write "注册成功"
else
response.write "注册失败"
end if
rs.close
s
set rs=nothing
conn.close
set conn=nothing
'else
'response.write "注册用户名为空"
'end if
%>
运行后显示的错误字段为下>>>>
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 操作必须使用一个可更新的查询。
/TMP5wfytyz7on.asp, 第 13 行
问题出在哪啊 ??我都重装几次软件了
