Microsoft OLE DB Provider for ODBC Drivers (0x80004005)　 --> 打开数据库出错，没有在指定目录发现数据库


Microsoft VBScript 编译器错误 错误 '800a0400'

缺少语句

/yrd/lyou/add.asp，行3

option explicit

cx.asp
连显示也不行。。。。

我不懂asp语言。请给我一个比较模块化的，改改地址就好的程序代码好吗。
一个是连接数据库，一个是数据库的查询（就是显示）

这个是我乱抄书上的：
Dim db,strconn
strconn="dbq=db/yuan.mdb;driver={microsoft access driver(*.mdb)}"
set db=server.createobject("adodb.connection"
db.open strconn
dim strsql,rs
strsql="select * from link"
set rs=db.execute(strsql)

Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: 'db/yuan.mdb'

/yrd/lyou/add.asp，行16


这个是什么缘故？

代码：
<% option explicit %>
<!--#include file="conn.asp"-->

<% dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from link"
rs.open sql,conn,1,1
if request.form("xm")<>"" and request.form("ph")<>"" then


dim xm,ph,add,strsql
xm=request.form("xm")
ph=request.form("ph")
add=request.form("add")
strsql="insert into link(xm,ph,add) values('"&xm&"',"&ph&",'"&add&"')"
db.execute(strsql) ←这里
response.redirect"cx.asp"
else
response.write"请将信息填写完整，"
response.write"<a href='bm.htm'>重新填写</a>"
end if
%>

确定没有错，文件yuan.mdb在add.asp所在目录下的db目录里。

add.asp
db/yuan.mdb

难道不可以用相对目录？

行者呢，行者都会下载并分析所有代码。然后给出完全的解答。我喜欢他的敬业。