<%

'连接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

%>