<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("database.mdb")
%>
上面这段代码，一时能运行，一时又不能运行！为什么啊？

最好用oledb链接

生成连接字符串可以去看我写的那个帖子
https://bbs.bccn.net/thread-231572-1-1.html

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER=driver do Microsoft Access Driver (*.mdb); DBQ="&Server.MapPath("database.mdb")
%>
改为这个加个“driver do”

现在好了，呵呵！

dim conn,connstr
set conn = server.createobject("adodb.connection")
connstr= "provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source = " & Server.MapPath("文件夹/数据库名.mdb")
if err then
err.clear
else
conn.open connstr
end if

Sub closeconn()
    conn.close
    set conn=nothing
end sub
on error resume next


这是我最常用的,看是否能给你帮助!