dim conn,db
'你数据库的相对路径
db="../onceImoved/donotchickme.mdb"
set conn = server.createobject("adodb.connection")
'conn.open="driver={Microsoft Access Driver (*.mdb)};uid=;pwd=;dbq=" & Server.MapPath(db)
conn.open="provider=microsoft.jet.oledb.4.0;"&"data source="& server.mappath(db)
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>
楼上的就可以了