这个问题很烦人，请大家帮帮忙！我查了好多资料都不行！

[wendy2003feng]

错误提示是：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0xc3c Thread 0xd68 DBC 0x1199c3c Jet'。
/zhaopin/conn.asp, 第 6 行

界面是：
让客户添加个人信息，然后加到Access数据库中，
我从网上找了很多方法，可是都不行，我的是XP系统的,请大家帮帮忙！谢谢大家！

[kafly]

:( PWS坏了吧？别的ACCESS能打开？

[wendy2003feng]

别的能打开啊，我的代码是这样的：
<%
if request("action")="save" then
dim username,password,email
username=session("username")
password=sessionID
set rs=server.CreateObject("adodb.recordset")
sql="select * from person where username='" & username & "'and password='" & password & "'"

rs.addnew
rs("name")=trim(request("name"))
rs("cardid")=trim(request("cardid"))
rs("sex")=trim(request("sex"))
rs("birth")=trim(request("birth"))
rs("minzu")=trim(request("minzu"))
rs("marry")=trim(request("marry"))
rs("hometown")=trim(request("hometown"))
rs("currcity")=trim(request("currcity"))
rs("phone")=trim(request("phone"))
rs("mobile")=trim(request("mobile"))
rs("edu")=trim(request("edu"))
rs("brief")=trim(request("brief"))
rs.update
response.redirect("detail_edu.asp")
rs.close
set rs=nothing
end if
%>

[kafly]

相当晕，狂晕


都没执行查询语句SQL
sql="select * from person where username='" & username & "'and password='" & password & "'"

后面加
rs.open sql,conn,1,3


还有conn建立了吗？

[wendy2003feng]

刚才粘错了，有SQL语句，
<%
if request("action")="save" then
dim username,password,email
username=session("username")
password=sessionID
set rs=server.CreateObject("adodb.recordset")
sql="select * from person where username='" & username & "'and password='" & password & "'"
rs.open sql,conn,1,3
rs.addnew
rs("name")=trim(request("name"))
rs("cardid")=trim(request("cardid"))
rs("sex")=trim(request("sex"))
rs("birth")=trim(request("birth"))
rs("minzu")=trim(request("minzu"))
rs("marry")=trim(request("marry"))
rs("hometown")=trim(request("hometown"))
rs("currcity")=trim(request("currcity"))
rs("phone")=trim(request("phone"))
rs("mobile")=trim(request("mobile"))
rs("edu")=trim(request("edu"))
rs("brief")=trim(request("brief"))
rs.update
response.redirect("detail_edu.asp")
rs.close
set rs=nothing
end if
%>
我的连接文件是这样的conn.asp:
<%
dim conn,connstr
connstr="DBQ="+server.mappath("person\data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'connstr="Driver={sql server};uid=sa;pwd=sa;database=ceoa;server=ce2"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>

[wendy2003feng]

请问kafly(王者) 你的ＱＱ是多少，能方便告诉我吗？我的是121733313

[cjl8882000]

想问下 你是要加记录还是要修改记录啊？
加记录的话 查询语句就不要带条件了吧
如果是修改记录的话 就不要用RSN.ADDNEW了吧

你试试这样改行不行

CONN是没问题的 这是我找到程序里唯一的问题 如果还不行 就检查下你的机器设置了

[cjl8882000]

rs.update
response.redirect("detail_edu.asp")
rs.close
set rs=nothing
end if

刚发现还有个问题………… 你的REDIRECT放的太前面了吧 都转向你还怎么关闭记录集啊……
如果你前面的页面也都这么写的话 那就很有问题了…………

[cjl8882000]

还有 你试试把connstr="DBQ="+server.mappath("person\data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
换成connstr="DBQ="+server.mappath("..\person\data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"试下

[veking]

如果是更新：

<%
if request("action")="save" then
dim username,password,email
username=session("username")
password=sessionID
set rs=server.CreateObject("adodb.recordset")
sql="select * from person where username='" & username & "'and password='" & password & "'"
rs.open sql,conn,1,3

if not rs.eof or not rs.bof then

rs("name")=trim(request("name"))
rs("cardid")=trim(request("cardid"))
rs("sex")=trim(request("sex"))
rs("birth")=trim(request("birth"))
rs("minzu")=trim(request("minzu"))
rs("marry")=trim(request("marry"))
rs("hometown")=trim(request("hometown"))
rs("currcity")=trim(request("currcity"))
rs("phone")=trim(request("phone"))
rs("mobile")=trim(request("mobile"))
rs("edu")=trim(request("edu"))
rs("brief")=trim(request("brief"))
rs.update
rs.close
set rs=nothing

response.redirect("detail_edu.asp")
else
response.write("<script> alert('保存错误，请重新提交数据！');history.back(-1);</script>")
end if
end if
%>
我的连接文件是这样的conn.asp:
<%
dim conn,connstr
connstr="DBQ="+server.mappath("person\data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'connstr="Driver={sql server};uid=sa;pwd=sa;database=ceoa;server=ce2"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>

如果是插入新记录:

<%
if request("action")="save" then
dim username,password,email
username=session("username")
password=sessionID
set rs=server.CreateObject("adodb.recordset")
sql="select * from person"
rs.open sql,conn,1,3
rs.addnew
rs("name")=trim(request("name"))
rs("cardid")=trim(request("cardid"))
rs("sex")=trim(request("sex"))
rs("birth")=trim(request("birth"))
rs("minzu")=trim(request("minzu"))
rs("marry")=trim(request("marry"))
rs("hometown")=trim(request("hometown"))
rs("currcity")=trim(request("currcity"))
rs("phone")=trim(request("phone"))
rs("mobile")=trim(request("mobile"))
rs("edu")=trim(request("edu"))
rs("brief")=trim(request("brief"))
rs.update
rs.close
set rs=nothing

response.redirect("detail_edu.asp")
end if
%>
我的连接文件是这样的conn.asp:
<%
dim conn,connstr
connstr="DBQ="+server.mappath("person\data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'connstr="Driver={sql server};uid=sa;pwd=sa;database=ceoa;server=ce2"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>

[Ischema]

明显ACCESS文件丢失
重装

[wendy2003feng]

我这是添加记录，sql语句我是要加条件的，因为不加条件怎么知道是加在哪一行的啊？一个用户有一条记录，上个页面是注册信息，这个页面是个人信息，我把这个全放在一条记录中的，所以SQL得加条件，不然就不知道加到哪了啊！！

自己顶一下！！

[wendy2003feng]

没有人啊，自己顶！！