<%
dim startime,endtime,conn,connstr,db
startime=timer()
'更改为你的数据库,注意路径正确性
db="data/dvBBS5.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
c & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动,请用下面连接方法
'c & 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
%>