厨房有没有必要做防水:asp+access数据库连接问题（附源代码以及文件目录结构）

无法建立数据库连接，希望得到各位高手的帮助，多谢了。错误提示如下：
-------------------------------------------------------------
本页无法显示
试图访问的网页出现问题，无法显示。

--------------------------------------------------------------------------------

请尝试以下方法：

单击 刷新按钮或者梢候再试。

打开 localhost 主页，然后查找与所需信息相关的链接。
HTTP 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（适用于支持人员）

错误类型：
Microsoft JET Database Engine (0x80004005)
/lib/web/conn/connect.asp, 第 5 行

页：
GET /lib/web/dzhd.asp

---------------------------------------------------------------
--------------------------------------------------------------

----------------------------------------------------------------
文件目录如下

lib
|
|--admin
| |
| ---data.mdb
|--web
|
|--conn
| |
| ---connect.asp
|
|---dzhd.asp

connect.asp代码：

---------------------------------------------------------------
--------------------------connect.asp--------------------------
<%
dim objConn
set objConn=server.CreateObject("Adodb.connection")
objConnStr="Provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("../../admin/data.mdb")
objConn.open objConnStr
%>
---------------------------------------------------------------
---------------------------------------------------------------

dzhd.asp代码：

---------------------------------------------------------------
--------------------------dzhd.asp-----------------------------

<!--#include file="conn/connect.asp"-->
<%
if request.Form("sub")="sub" then
tsmc=request.Form("tsmc")
zzmc=request.Form("zzmc")
cbs=request.Form("cbs")
isbn=request.Form("isbn")
tsjg=request.Form("tsjg")
shqk="w"
gmqk="w"
if tsmc<>"" and zzmc<>"" and cbs<>"" and isbn<>"" and tsjg<>"" then
response.write "<SCRIPT language=JavaScript>alert('请检查信息是否完整,全部必填,

如果不清楚的地方请填数字“0”！比如说，如果您不知道图书价格那么就在图书价格一栏中填上数字“0”。谢谢合作

。');"
response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
response.End()
else
set objrs=server.CreateObject("adodb.recordset")
sql="select * from xsjg"
objrs.open sql,objconn,1,3
objrs.addnew
objrs("tsmc")=tsmc
objrs("zzmc")=zzmc
objrs("cbs")=cbs
objrs("isbn")=isbn
objrs("tsjg")=tsjg
objrs("shqk")=shqk
objrs("gmqk")=gmqk
objrs.update
objrs.close
set objrs=nothing
end if
end if
%>
以下省略。

--------------------------------------------------------------------
--------------------------------------------------------------------

data.mdb数据词典

包含xsjg数据表