ASP与ACCESS数据库连接驱动

<%
dim startime,endtime,conn,connstr,db
startime=timer()
'更改为你的数据库,注意路径正确性
db="data/dvBBS5.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr

.....


Conn.close
Set conn = Nothing
<I>
%> 

当ACCESS有密码保护时,用下面的连接方法 

<%   
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    字串4

%>