<%
'连接Access2013的accdb文件
Dim conn
Set conn = Server.CreateObject("adodb.connection")
conn.Connectiontring="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & server.mappath("test.accdb")
conn.Open
conn.Close
Set conn=Nothing
%>
转载于:https://blog.51cto.com/gunxsword/1793230